Função: ProcessMessage
Minimiza o efeito de 'congelamento' da aplicação durante a execução de um processo longo forçando o refresh do Smart Client.
ProcessMessage ( ) --> 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
Exemplo
#include "totvs.ch"
#DEFINE CRLF Chr(13)+Chr(10)
User Function prgprocessmsg()
Local cMensagem := ""
Local oDialog := 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()})
//+----------------------------------------------------------------------------+
//|Apresenta o diálogo |
//+----------------------------------------------------------------------------+
oDialog:Activate()
Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas