PtGetSessions

PtGetSessions ( ) --> 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()

ACTIVATE MSDIALOG oDlg CENTERED

Return