画像種別変更

use節にJpegを追加

uses Jpeg;

//BmpからJpeg
procedure TForm1.Button1Click(Sender: TObject);
Var
　Jpg : TJpegImage;
　Bmp : TBitMap ;
begin
　Jpg :=TJpegImage.Create;
　Bmp :=TBitmap.Create;

　Bmp.LoadFromFile(‘C:\From.bmp’);
　Jpg.Assign(BMP);
　Jpg.SaveToFile(‘C:\To.jpg’ );

　Bmp.Free ;
　Jpg.Free;
end;

//JpegからBmp
procedure TForm1.Button1Click(Sender: TObject);
var
　Jpg : TJpegImage;　
　Bmp : TBitmap;
begin
　Jpg :=TJpegImage.Create ;
　Bmp :=TBitmap.Create;

Jpg.LoadFromFile(‘From.jpg’);
　Bmp.Assign(JPG);
　Bmp.SaveToFile(‘To.bmp’)

Jpg.Free;
　Bmp.Free ;
end;