Delphi 7 Jpeg dosyasını BMP dosyasına çevirmek

 Selamlar

projenizin içine  (uses , a  Jpeg ekleyin)

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

yukarıdaki procedure ekleyin.Button click olayında gerekli kodu yazın

Jpeg2Bmp('C:\Yeni klasör\test.Bmp','C:\Yeni klasör\test.jpg');