Árvore de páginas

Você está vendo a versão antiga da página. Ver a versão atual.

Comparar com o atual Ver Histórico da Página

« Anterior Versão 3 Atual »

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

ACTIVATE MSDIALOG oDlg CENTERED

Return

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

 

  • Sem rótulos