GARANTIR DESCONTO

Fórum Erro ao carregar imagem em TImage #410621

15/12/2011

0

Pessoal estou com o seguinte problema,
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

Suprasys Inteligente

Responder

Posts

15/12/2011

Wilson Junior

Tente fazer assim na hora de colar ela
Image1.Picture.Bitmap.Assign(Clipboard);


Espero ter colaborado.
Responder

Gostei + 0

15/12/2011

Suprasys Inteligente

Muito obrigado Wilson.

Deu certinho kara.

valew mesmo.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar