Fórum Erro ao carregar imagem em TImage #410621
15/12/2011
0
Eu insiro uma imagem no meu image atraves do comando:
procedure TFrm_Foto.Image1DblClick(Sender: TObject);
begin
if Clipboard.HasFormat(CF_BITMAP) then
begin
Image1.Picture.Assign(Clipboard);
Image1.Stretch:=true;
Image1.Refresh;
end;
end;
Salvo esse imagem no meu hd:
procedure TFrm_Foto.cxButton2Click(Sender: TObject);
begin
try
Image1.Picture.SaveToFile(C:\teste.bmp);
except
DM.Mensagem(2,Erro ao inserir imagem!);
end;
end;
E no tento carregar ela no image:
procedure TFrm_Foto.FormShow(Sender: TObject);
begin
try
Image1.Picture.LoadFromFile(C:\teste.bmp);
except
Image1.Picture:=nil;
dm1.Mensagem(2,Erro ao Carregar a Foto...);
end;
end;
Quando tento carregar ela, me da a seguinte mensagem: BITMAP IMAGE IS NOT VALID
Alguém poderia me dar um help ?
desde já obrigado.
Suprasys Inteligente
Curtir tópico
+ 0Posts
15/12/2011
Wilson Junior
Image1.Picture.Bitmap.Assign(Clipboard);
Espero ter colaborado.
Gostei + 0
15/12/2011
Suprasys Inteligente
Deu certinho kara.
valew mesmo.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)