*.MDBの取扱について：画像の取得 (ID：33195)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

「アクセス」さんこんには．Mr.XRAYです．

>「OLEオブジェクト型」フィールドにある画像データを

の場合，基本的にDelphiでは，以下のページのコードで扱えます．
http://mrxray.on.coocan.jp/Delphi/plSamples/560_RichEditDB.htm

例えば，

//=============================================================================
//  ADOQuery1からJPEG画像データを取得して表示
//  画像の場合，記録画像の種類(TBitmap,TJpegImage等)を知っている必要がある
//=============================================================================
procedure TForm1.btnRead20Click(Sender: TObject);
var
    AJPEG : TJPEGImage;
begin
    if ADOQuery1.Active=False then OpenTable;

ADOQuery1.First;
    Image1.Picture.Assign(nil);
    AJPEG := TJPEGImage.Create;
    try
      //項目FOleObjの内容をAJPEGに読込んでImage1に表示
      //AJPEG.Assign(TBlobField(ADOQuery1.FieldByName('FOleObj')));でも同じ
      AJPEG.Assign(ADOQuery1.FieldByName('FOleObj'));
      Image1.Picture.Assign(AJPEG);
    finally
      AJPEG.Free;
    end;
end;

(動作確認は Windows XP(SP2) + Delphi 5,6,7,2007 )

ただし，これは，Delphiのコードでmdbに書き込んだデータの場合です．
春子さんが言っているように，
他の，例えばAccess側で書き込んだデータはそのままでは読めない場合があるようです．

http://blog.goo.ne.jp/souichi-kikaizikake/e/9b80f863c5e751fa6961774e09266885

←解決時は質問者本人がここをチェックしてください。

戻る