Sobre fun��o Assign

Question

pessoal tenho um objeto Resultado da Classe TPicture e outro Imagem da classe TJPEGImage quando tento fazer o seguinte m�todo

Resultado.Assign(Imagem);

me d� o seguinte erro: Cannot assign a TJPEGImage to a TImage... n�o entendo pois uso esse c�digo em outros lugares e meus objetos est�o criados...

Massuda · Answer

[quote:f053bc5f64=�brunovicenteb�]...me d� o seguinte erro: Cannot assign a TJPEGImage to a TImage[/quote:f053bc5f64]Essa mensagem d� impress�o que Resultado � do tipo TImage ao inv�s de TPicture. Se for isso, o correto seria[code:1:f053bc5f64]Resultado.Picture.Assign(Imagem);[/code:1:f053bc5f64]...

Bruno Belchior · Answer

tem raz�o mas n�o � olha s� o c�digo:[code:1:fb421e0209]function  RetornaImagemDeArquivoDeRecursos  (IdImagem: Smallint): TPicture;var    MyJPG: TJPEGImage;   ResStream: TResourceStream;   Resultado: TPicture;begin  MyJPG := TJPEGImage.Create;  ResStream := TResourceStream.CreateFromID(HInstance, IdImagem, RT_RCDATA);  Resultado := nil;  try    MyJPG.LoadFromStream(ResStream);    Resultado.Assign(MyJPG);  finally    Result := Resultado;    FreeAndNil(MyJPG);    FreeAndNil(ResStream);    FreeAndNil(Resultado);  end;end;[/code:1:fb421e0209]...

Bruno Belchior · Answer

ops me precipitei agora com esse c�digo funcionou...

function  RetornaImagemDeArquivoDeRecursos 
  (IdImagem: Smallint): TPicture; 
var 
   MyJPG: TJPEGImage; 
   ResStream: TResourceStream; 
   Resultado: TPicture; 
begin 
  MyJPG := TJPEGImage.Create; 
  ResStream := TResourceStream.CreateFromID(HInstance, IdImagem, RT_RCDATA); 
  Resultado := TPicture.Create;
  try 
    MyJPG.LoadFromStream(ResStream); 
    Resultado.Assign(MyJPG); 
  finally 
    Result := Resultado; 
    FreeAndNil(MyJPG); 
    FreeAndNil(ResStream); 
    FreeAndNil(Resultado); 
  end; 
end;

Massuda · Answer

Acho que ainda tem um problema com seu c�digo...

Quando a linha...

Result := Resultado;

� executada, tanto Result como Resultado se referem ao mesmo objeto TPicture. Entretanto, quando voc� faz...

FreeAndNil(Resultado);

voc� est� destruindo/liberando o objeto TPicture, embora Result ainda se refira ao (finado) objeto TPicture.

Bruno Belchior · Answer

� realmente funcionou, por�m qdo fui rodar minha classe de teste vi que qdo tentava dar um ShowModal no formul�rio contendo o TImage que recebia a TPicture em quest�o, dava um erro de apontamente inv�lido... mais uma vez obrigado...

F�rum Sobre fun��o Assign #274294