TImage salva como JPG ?

Delphi

07/05/2004

Tenho um TImage com uma imagem e na unit eu
acrescentei o uses Jpeg;

Use o código pra salvar a imagem:
Image1.Picture.SaveToFile(´arquivo.jpg´);


Agora quando tento carregar novamente, usando:
Image1.Picture.LoadFromFile(´arquivo.jpg´);

retorna o seguinte erro
JPEG error #52


O que é isso? Qual formato em que o TImage salva o arquivo?
Como resolver?
:?:


Eniorm

Eniorm

Curtidas 0

Melhor post

Fer_nanda

Fer_nanda

07/05/2004

esse procedimento converte bmp em jpg, veja se lhe serve
procedure TfrmCadCtrDigitalizado.BmpToJpg(FileName: string);
var
  Jpg: TJpegImage;
  Stm: TMemoryStream;
  Bmp: TBitmap;
begin
   if FileExists(FileName) then
   begin
     Bmp := TBitmap.Create;
     Bmp.LoadFromFile(FileName);
     Jpg := TJpegImage.Create;
     Jpg.Assign(Bmp);
     Jpg.Compress;
     Stm := TMemoryStream.Create;
     Jpg.SaveToStream(Stm);
     Stm.Position := 0;
     Stm.SaveToFile(ChangeFileExt(FileName, ´.jpg´));
     Stm.Free;
     Jpg.Free;
     Bmp.Free;
   end;
end;

se não me engano, vc precisa adiciona Jpeg na uses


GOSTEI 1

Mais Respostas

Cebikyn

Cebikyn

07/05/2004

Vc salva como JPEG assim:

with TJPEGImage.Create do begin
  Assign(Image1.Picture.Graphic);
  SaveToFile(´Arquivo.jpg´);
  Free;
end;


Depois carrega normalmente. E éclaro que precisa da unit JPEG no Uses.


GOSTEI 0
POSTAR