JPEG画像

VCLには。TJPEGImageクラスがあります。これを使うと、インターネットなどでよく使われるJPEG画像を簡単に扱うことができます。

TJPEGImageはキャンバスを持ちません。このため、表示を行うにはTImageなどのキャンバスを持つコンポーネントを使用して画像表示を行います。

JPEG画像をImageコンポーネントにロードするには

TJPEGImageのLoadFromFileメソッドによりファイルから画像データをロードし、それをImageコンポーネントにAssignメソッドによって割り当てることによりJPEG画像を表示することができます。

procedure TForm1.ConvToBmp(fn: string);
var
  Jpeg: TJPEGImage;
  Bmp: TBitmap;
begin
  Jpeg := TJPEGImage.Create;
  Bmp := TBitmap.Create;
  try
    Jpeg.LoadFromFile(fn);
    Self.Width := Jpeg.Width + 8;
    Self.Height := Jpeg.Height + 32;
    Bmp.Assign(Jpeg);
    Image1.Picture.Assign(Bmp);
  finally
    Jpeg.Free;
    Bmp.Free;
  end;
end;

リスト１　JPEG画像ファイルをロードし表示するサンプルコード