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

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

これだけのコードでBmpファイルをJpgファイルに変換出来ます。
かなり使えるので知らない人は絶対に覚えておきましょう。

■Uses節にJpegを追加

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

procedure

TForm1.Button1Click(Sender:
TObject);

Var

Jpg : TJpegImage;

BMP : TBitMap ;

begin



　//オブジェクトの生成

　Jpg :=TJpegImage.Create;

　BMP :=TBitmap.Create;



　//ビットマップファイルの読み込み

　BMP.LoadFromFile('C:\Windows\花見.bmp');



　//Bmp->Jpeg変換

　Jpg.Assign(BMP);



　//JPegファイルを保存

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



　//オブジェクトの解放

　BMP.Free ;

　Jpg.Free;

end;

Delphi　Tipsのページへ

ホーム