Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
PtGetSessions
PtGetSessions

Função: PtGetSessions

Retorna um array com a lista de sessões da conexão entre o Smart Client e o Application Server.

PtGetSessions ( ) --> aSessions

aSessions
    (vetor)
  • Retorna um array com todas as sessões da conexão.

Serão listadas, no array, apenas as sessões da conexão corrente entre o Smart Client e o Application Server.

Exemplo do array de saída da função.

 

  • aProcess
    • aProcess[1] = "MAIN_THREAD"
    • aProcess[2] = "093539"
    • aProcess[3] = "093541"

User

Function

TstSession()

DEFINE

MSDIALOG

oDlg

TITLE

"Exemplo

CreateSession"

FROM

000,000

TO

500,650

PIXEL

//

Cria

pasta

da

WorkSpace


workFolder

:=

TWorkspaceFolder():New(

oDlg,

000,

000,

500,

500

)


workFolder:Align

:=

CONTROL_ALIGN_ALLCLIENT

//

Cria

primeira

aba


workSpace1

:=

TWorkSpace():New(

"

Aba

01

MDI

",

workFolder

)


workSpace1:SetStatusBarText("Texto

da

barra

de

status

-

Tela

01")

Thread_01

:=

getThread()


CreateSession(

Thread_01,

workSpace1,

"u_tstMdi",

"",

"Texto

da

Janela

-

01"

)

//

Sleep

de

500

milisegundos

para

terminar

a

criação


//

da

primeira

Session

e

permitir

a

criação

da

segunda


Sleep(500)

//

Cria

segunda

aba


workSpace2

:=

TWorkSpace():New(

"

Aba

02

MDI

",

workFolder

)


workSpace2:SetStatusBarText("Texto

da

barra

de

status

-

Tela

02")

Thread_02

:=

getThread()


CreateSession(

Thread_02,

workSpace2,

"u_tstMdi",

"",

"Texto

da

Janela

-

02"

)

//

Retorna

a

lista

de

processos


aProcess

:=

PtGetSessions()

oDlg:Activate()

ACTIVATE MSDIALOG oDlg CENTERED

Return

Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server