Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Portuguese

Pagetitle
ProcessMessage
ProcessMessage

Função:

ProcessMessage

ProcessMessages

Minimiza 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.

Proccess Explorer

Exemplo da função ProccessMessage
Image Added
TOTVSAppServer
Bloco de código
languagetext
titleExemplo
#include "totvs.ch"

#DEFINE CRLF   Chr(13)+Chr(10)
#DEFINE VK_F12 123User


User Function 
Exemplo
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
Image Removed
Microsiga Protheus 8.11 , Protheus 10