Á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 2 Próxima »

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.

Proccess Explorer

#DEFINE CRLF   Chr(13)+Chr(10)#DEFINE VK_F12 123User Function Exemplo()Local cMensagem := ""Local oDialog := NilLocal 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  e verifique o gerenciador de tarefas"}, oDialog, , , , , , .T., , , 200, 20)  SetKey(VK_F12, {||ProcessMessage()})//+----------------------------------------------------------------------------+//|Apresenta o diálogo                                                         |//+----------------------------------------------------------------------------+  oDialog:Activate()Return 

Exemplo da função ProccessMessage
Microsiga Protheus 8.11 , Protheus 10

  • Sem rótulos