この発言に対し以下のコメントが寄せられています

#00648　草薙いっぺい    さん　RE:画像を簡単に読みこむ手続き





{
画像を簡単にTImage読みこむサンプルです。メタファイル・アイコン・ビッ
トマップ・JPEGを読みこみます。

特にJPEGの場合はTImage.Picture.LoadFromFile('');で読みこむと、読みこ
み前に表示されている画像がいったん消えたようになるので、この動作が気
に入らない人はこのサンプルを使うといいと思います。

usesにJpegが追加されていることが前提なのでDelphi3以降専用です。
最低限の例外処理しかしていませんので、その他は各自で実装しておいてく
ださい。
}

procedure LoadImage(const FileName:String;Image:TImage);
begin
 if FileExists(FileName) then
  with TPicture.Create do begin
   try
    LoadFromFile(FileName);
    if Graphic is TJPEGImage then
     TJPEGImage(Graphic).DIBNeeded;//表示イメージを作成

     Image.Picture.Assign(Graphic);
   finally
    Free;
   end;// try..finally
  end;// with TPicture.Create Do begin
end;// End Procedure

//                                 　　　　　　　紅月　燐火(BZF05041)

Original document by 紅月　燐火      氏 ID:(BZF05041)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。