N�o travar anima��o igual o TAnimate

Question

Ol� galera!Algu�m sabe como fazer uma anima��o por exemplo, em gif, que n�o congele em um processamento? Quando coloco um TAnimate e o ativo, ele n�o congela a anima��o. Como � feito? Algu�m sabe? Ten...

Alexandrej · Answer

[quote:6bc59f4552=�Tchelllo�]Ol� galera!Algu�m sabe como fazer uma anima��o por exemplo, em gif, que n�o congele em um processamento? Quando coloco um TAnimate e o ativo, ele n�o congela a anima��o. Como � feito? Algu�m sabe? Tentei com o JvBmpAnimator da biblioteca Jedi, que � exatamente o que eu preciso, mas o problema � que ele congela a anima��o quando inicio algum processo.Fico aguardando uma dica!Obrigado desde j�![/quote:6bc59f4552]Se esse processo for por exemplo, um while, voc� pode tentar colocar um Application.ProcessMessages dentro do looping....

Tchelllo · Answer

Ol� Alexandrej!Este processo n�o � um loop. Trabalho com 3 camadas. O que eu fa�o � disparar um m�todo no servidor a partir da app. cliente. Nesse momento o programa fica congelado at� que o m�todo seja finalizado. Por isso o uso do Application.ProcessMessages n�o tem como ser executado....

Massuda · Answer

O TAnimate (que � apenas uma �casca� para um controle do Windows) usa uma thread separada para fazer a anima��o; se voc� fizer TAnimate.Timers = True, a anima��o � feita usando um timer interno do Windows. De qualquer forma, como � algo separado do seu programa, n�o � afetado pelo processo lento no seu programa.

Tchelllo · Answer

Massuda, vc teria id�ia +- de como esta thread � feita para executar a anima��o do TAnimate?...

Alexandrej · Answer

[quote:68fef4158d=�Tchelllo�]Ol� Alexandrej!Este processo n�o � um loop. Trabalho com 3 camadas. O que eu fa�o � disparar um m�todo no servidor a partir da app. cliente. Nesse momento o programa fica congelado at� que o m�todo seja finalizado. Por isso o uso do Application.ProcessMessages n�o tem como ser executado.[/quote:68fef4158d]Ent�o uma thread � o ideal mesmo....

Tchelllo · Answer

Me tirem uma d�vida ent�o:Quando usamos thread, n�o podemos fazer desta forma, ex:procedure Button1Click(Sender: TObject);var i: integer;      s: string;begin  IniciaThread;  for i := 0 to 2000000 do    s := IntToStr(i);    end;No caso a thread fica congelada do mesmo jeito. O correto � da forma abaixo:procedure Button1Click(Sender: TObject);begin  IniciaThread;  IniciaLoop;end;Nos 2 casos, a thread n�o era pra ser executada tbm? O que estou fazendo de errado?...

Alexandrej · Answer

[quote:f5a6f5eb04=�Tchelllo�]Me tirem uma d�vida ent�o:Quando usamos thread, n�o podemos fazer desta forma, ex:procedure Button1Click(Sender: TObject);var i: integer;      s: string;begin  IniciaThread;  for i := 0 to 2000000 do    s := IntToStr(i);    end;No caso a thread fica congelada do mesmo jeito. O correto � da forma abaixo:procedure Button1Click(Sender: TObject);begin  IniciaThread;  IniciaLoop;end;Nos 2 casos, a thread n�o era pra ser executada tbm? O que estou fazendo de errado?[/quote:f5a6f5eb04]Voc� deve criar uma thread passando algum objeto como par�metro para receber o resultado do processamento. A noite se precisar posso explicar melhor, durante o dia � complicado. :(Mas existem bastante exemplos no google, digite na busca: delphi + thread + definitivo....

Tchelllo · Answer

Eu j� cheguei a ler essa dica da �Thread definitiva�. Mas se coloco por exemplo um c�digo depois que iniciei a thread, a mesma congela at� o processo terminar.

como no exemplo que dei:

procedure Button1Click(Sender: TObject);
var i: integer;
s: string;
begin
IniciaThread;

for i := 0 to 2000000 do
s := IntToStr(i);
end;

Se fizer assim a thread fica congelada tbm. N�o era pra ficar executando?

Massuda · Answer

Seu loop for deveria estar no TThread.Execute (assumindo que voc� esteja usando um objeto de thread derivado de TThread), n�o onde ele est� no seu exemplo. Mostre o que � IniciaThread....

Tchelllo · Answer

Ol� Massuda!IniciaThread � apenas um exemplo indicando que al� eu estou iniciando uma thread (MinhaThread.Create(False))O que eu quero exatamente � o seguinte: Mostrar uma tela de espera com anima��o enquanto executo um m�todo no servidor. A anima��o � pra mostrar que o programa n�o est� travado.O correto � eu colocar a chamada ao m�todo na minha thread? E o c�digo que cria a tela de espera com anima��o? Na Thread tbm ou em uma outra?...

Massuda · Answer

Geralmente coloca-se o processo demorado numa thread separada, assim a UI do seu programa continua viva. Exemplo bem simples e n�o testado:

const
  WM_MINHA_THREAD_ACABOU = WM_USER + 1;

type
  TMeuFormPrincipal = class(TForm)
    procedure Button1Click(Sender: TObject);
  private
    procedure WMMinhaThreadAcabou(var Msg: TMessage); message WM_MINHA_THREAD_ACABOU;
    ...
  end;

  TMinhaThread = class(TThread)
  protected
    procedure Execute; override;
    ...
  end;

...

procedure TMinhaThread.Execute;
begin
  FreeOnTerminate := True;

  try
    // faz algo demorado aqui
  except
    // trata eventuais exce��es
  end;

  // avisa a UI que terminou
  PostMessage(Application.MainForm.Handle, WM_MINHA_THREAD_ACABOU, 0, 0);
end;

...

procedure TMeuFormPrincipal.Button1Click(Sender: TObject);
begin
  // inicia a anima��o, desabilita o bot�o, etc

  // inicia a thread
  TMinhaThread.Create(False);
end;  

procedure TMeuFormPrincipalWMMinhaThreadAcabou(var Msg: TMessage); 
begin
  // p�ra a anima��o, habilita o bot�o, etc
end;

Tchelllo · Answer

No meu sistema, eu tenho v�rios m�todos demorados onde eu coloco uma tela de espera antes do iniciar.

Teria uma forma mais f�cil e r�pida de fazer isso ao inv�s de criar uma thread pra cada m�todo?

F�rum N�o travar anima��o igual o TAnimate #348413