| Composition Setup |
|---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
| Portuguese |
| Pagetitle |
|---|
...
|
...
|
Obtém
...
todas
...
as
...
threads
...
que
...
estão
...
no
...
ar,
...
em
...
um
...
determinado
...
ambiente,
...
e
...
retorna
...
um
...
número
...
inteiro
...
indicando
...
o
...
total
...
de
...
threads
...
livres.
| Bloco de código | ||
|---|---|---|
| ||
IPCCount( <cSemaforo> ) --> nRet cSemaforo > )
|
...
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cSemaforo |
...
caractere | Indica o local ou semáforo em que as threads foram iniciadas. | X |
|
Nome | Tipo | Descrição |
|---|---|---|
nRet |
...
numérico | Retorna um número inteiro indicando o total de threads livres. |
| Bloco de código | ||||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#DEFINE SEMAFORO 'IDUNICOTESTE'
User Function ipccount()
StartJob("U_ipcjobs",GetEnvServer(),.F.)
StartJob("U_ipcjobs",GetEnvServer(),.F.)
Sleep( 7000 )
nRetnFree := IpcCountIPCCount(SEMAFORO) conout("Existem " + cvaltochar(nRet)// Verifica o número de IPCs ativos + " threads em espera no semaforo " + SEMAFORO)
Return
User Function ipcjobs()
Local cPar
while !killapp()
IpcWaitEx( SEMAFORO, 5000, @cPar )
enddo
Return
|
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
...