Histórico da Página
...
| Portuguese | ||||||
|---|---|---|---|---|---|---|
Função:ProcessMessageProcessMessagesMinimiza o efeito de 'congelamento' da aplicação durante a execução de um processo longo forçando o refresh do Smart Client.ProcessMessage ProcessMessages ( ) --> Nil Nil (Nulo) O uso excessivo desta função gera um alto tráfego de informações entre o Application Server e o Smart Client e compromete os recursos do servidor, estação e rede. Exemplo: A partir do Proccess Explorer é possível verificar o efeito da função, no processo do aplicativo em "I/O Bytes History", através do pulso dentro do histórico.
Exemplo da função ProccessMessage TOTVSAppServer |
| Bloco de código | ||||
|---|---|---|---|---|
| ||||
#include "totvs.ch" #DEFINE CRLF Chr(13)+Chr(10)#DEFINE VK_F12 123User User FunctionExemplo prgprocessmsg() Local cMensagem := "" Local oDialog :=NilLocal Nil Local oSay := Nil //+----------------------------------------------------------------------------+ //|Cria o diálogo para exemplificar o uso do ProcessMessage | //+----------------------------------------------------------------------------+ oDialog := tDialog():New() oDialog:cTitle := "Exemplo de ProcessMessage" oDialog:nWidth := 800 oDialog:nHeight := 600 oSay := tSay():New(10, 10, {||; "Pressione F12 e verifique o gerenciador de tarefas"}, oDialog, , , , , , .T., , , 200, 20) SetKey(VK_F12, {||ProcessMessage ProcessMessages()}) //+----------------------------------------------------------------------------+ //|Apresenta o diálogo | //+----------------------------------------------------------------------------+ oDialog:Activate() Return Exemplo da função ProccessMessage |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas