Converter JPG pra BMP

Delphi

15/12/2004

Como fazer pra converter uma imagem JPEG para Bitmap via programação no D7 ?

Bye


Eniorm

Eniorm

Curtidas 0

Respostas

Martins_vicente

Martins_vicente

15/12/2004

Caro colega,

Você pode usar as funções abaixo:

procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  try
    Bmp.LoadFromFile(BmpFileName);
    Jpg.Assign(Bmp);
    Jpg.SaveToFile(JpgFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;

procedure Jpeg2Bmp(const BmpFileName, JpgFileName: string);
var
  Bmp: TBitmap;
  Jpg: TJPEGImage;
begin
  Bmp := TBitmap.Create;
  Jpg := TJPEGImage.Create;
  try
    Jpg.LoadFromFile(JpgFileName);
    Bmp.Assign(Jpg);
    Bmp.SaveToFile(BmpFileName);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;


Não esqueça de acrescentar a unit Jpeg na seção uses da sua unit.

Boa sorte!


GOSTEI 0
POSTAR