Histórico da Página
...
Portuguese | ||||||
---|---|---|---|---|---|---|
Função: PtGetSessionsRetorna um array com a lista de sessões da conexão entre o Smart Client e o Application Server. PtGetSessions ( ) --> aSessions aSessions
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.
User Function TstSession() DEFINE MSDIALOG oDlg TITLE "Exemplo CreateSession" FROM 000,000 TO 500,650 PIXEL // Cria pasta da WorkSpace
:= TWorkspaceFolder():New( oDlg, 000, 000, 500, 500 )
:= CONTROL_ALIGN_ALLCLIENT // Cria primeira aba
:= TWorkSpace():New( " Aba 01 MDI ", workFolder )
da barra de status - Tela 01") Thread_01 := getThread()
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
// Cria segunda aba
:= TWorkSpace():New( " Aba 02 MDI ", workFolder )
da barra de status - Tela 02") Thread_02 := getThread()
Thread_02, workSpace2, "u_tstMdi", "", "Texto da Janela - 02" ) // Retorna a lista de processos
:= PtGetSessions() oDlg:Activate()ACTIVATE MSDIALOG oDlg CENTERED Return Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
|