Jpeg画像を表示させる

Delphiでは標準ではJpeg画像を取り扱う事は出来ませんが、Jpegユニットを使えば実現します。



■Uses節にJpegを追加します。

■Jpeg画像をImage1に表示する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
　Jpeg :TJpegImage;
begin
　//JPEG イメージオブジェクトをインスタンス化する
　Jpeg :=TJpegImage.Create ;
　//Jpegイメージの読み込み
　Jpeg.LoadFromFile('C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\Testprog.jpg') ;
　//Image1へ転送
　Image1.Picture.Assign(Jpeg);
　//オブジェクトを破棄
　Jpeg.Free;

end;



Delphi　Tipsのページへ



ホーム