フリーソフト

« [BCB] EXEファイルだけで実行できるようコンパイルする | トップページ | [Delphi] 搭載されているメモリ量を取得 »

[Delphi] JpegとBmpの変換

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;

« [BCB] EXEファイルだけで実行できるようコンパイルする | トップページ | [Delphi] 搭載されているメモリ量を取得 »

Delphi」カテゴリの記事

画像関連」カテゴリの記事

コメント

この記事へのコメントは終了しました。