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のページへ



ホーム