Problemas com Threads

Question

Pessoal.N�o to entendendo o que t� acontecendo.Uso Delphi 2007 com todas as atualiza��es.procedure Thread_Restore.Criar_Ponto;begin  frm_CreateRestore.lbl.Caption := �Teste..�;end;procedure Thread_Res...

Massuda · Answer

Pelo c�digo que voc� postou, � isso mesmo que deve ocorrer. O .Execute da thread apenas atualiza o label e depois, como n�o h� mais nada a ser feito, a thread p�ra....

Bernardop · Answer

O problema � que o LABEL n�o est� atualizando....

Massuda · Answer

[quote:9ca88b42f3=�BernardoP�]O problema � que o LABEL n�o est� atualizando.[/quote:9ca88b42f3]Voc� n�o disse isso antes.frm_CreateRestore tem um valor v�lido? Ou seja, esse form � criado automaticamente pelo Delphi ou quando voc� cria manualmente o form usa essa vari�vel para receber o form?...

Bernardop · Answer

Todos s�o criado com o procedimento Create_Form(Tfrm_CreateRestore, frm_CreateRestore);...

Bernardop · Answer

Qual seria o problema de usar threads - m�todo syncronize com form�s criados dinamicamente?...

Massuda · Answer

Nenhum, desde que a vari�vel frm_CreateRestore corresponda ao form criado dinamicamente....

Bernardop · Answer

Corresponde.procedure Create_Form(Tfrm:TFormClass; frm:TForm);begin  frm := Tfrm.Create(Application);  try    frm.Position := poScreenCenter;    frm.BorderStyle := bsNone;    frm.ShowModal;  finally    FreeAndNil(frm);  end;end;Muito estranho n�o estar sincronizando. O c�digo do form � exatamente o que postei anteriormente.Alguma sugest�o?...

Massuda · Answer

Na verdade n�o. Nesse seu c�digo, o frm � tratado como uma vari�vel local, de modo que mudan�as feitas em frm n�o s�o refletidas na vari�vel que foi passada.

Experimente por um breakpoint depois do .Create e veja qual o valor de frm_CreateRestore; provavelmente ser� nil. Sem entrar no m�rito do c�digo em si, faltou por um [b:96ccf1c26e]var[/b:96ccf1c26e]...

procedure Create_Form(Tfrm:TFormClass; var frm:TForm);

...para esse seu c�digo funcionar. Por causa disso, quando a thread � executada, deve estar dando um access violation (valor nil) o que encerra a thread.

Bernardop · Answer

Mas colocando esse var na frente,como vou chamar o procedimento?J� que chamar dessa maneiraCreate_Form(Tfrm_CreateRestore, frm_CreateRestore);n�o funcionaria mais....

Massuda · Answer

[quote:895b8d72e6=�BernardoP�]...como vou chamar o procedimento?[/quote:895b8d72e6]Da mesma maneira que faz agora.[quote:895b8d72e6=�BernardoP�]...n�o funcionaria mais.[/quote:895b8d72e6]Funciona....

Bernardop · Answer

O Delphi 2007 me retorna:[DCC Error] E2033 Types of actual and formal var parameters must be identical...

Massuda · Answer

[quote:8223f958bd=�BernardoP�]E2033 Types of actual and formal var parameters must be identical[/quote:8223f958bd]Tinha esquecido que isso poderia ocorrer... Isso pode ser resolvido mudando um pouco sua Create_Form...[code:1:8223f958bd]procedure Create_Form(Tfrm:TFormClass; var frm); var  F: TForm;begin   F := Tfrm.Create(Application);   Tfrm(frm) := F;  try     F.Position := poScreenCenter;     F.BorderStyle := bsNone;     F.ShowModal;   finally     FreeAndNil(F);     Tfrm(frm) := nil;  end; end;[/code:1:8223f958bd]...

Bernardop · Answer

Tanto a linha Tfrm(frm) := F; e a Tfrm(frm) := nil;Ambos der�o [DCC Error] E2066 Missing operator or semicolon...

Massuda · Answer

Desculpe... nessas linhas, onde � Tfrm, devia ser TForm. ent�o fica assim

procedure Create_Form(Tfrm:TFormClass; var frm); 
var 
  F: TForm; 
begin 
  F := Tfrm.Create(Application); 
  TForm(frm) := F; 
  try 
    F.Position := poScreenCenter; 
    F.BorderStyle := bsNone; 
    F.ShowModal; 
  finally 
    FreeAndNil(F); 
    TForm(frm) := nil; 
  end; 
end;

Bernardop · Answer

Era exatamente este o problema.Muito obrigado!Abra��o!Bernardo....

F�rum Problemas com Threads #347981