JpegファイルをBmpファイルに変換する

JpegファイルをBmpファイルに変換する

■Uses節にJpegを追加

■JpegファイルをBmpファイルに変換する処理

procedure TForm1.Button1Click(Sender: TObject);

Var

　Jpg : TJpegImage;　

　BMp : TBitmap;

begin



　Jpg :=TJpegImage.Create ;

　BMP :=TBitmap.Create;



　//JPGファイルの読み込み

　Jpg.LoadFromFile('C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\花ちゃん.jpg');

　//BMPへ転送　

　BMP.Assign(JPG);

　//BMPファイルの書き込み

　BMP.SaveToFile('C:\Windows\ﾃﾞｽｸﾄｯﾌﾟ\花ちゃん.bmp')



　Jpg.Free;

　BMP.Free ;

end;

Delphi　Tipsのページへ