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

名前

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

本文 あくせくさんこんにちは。 TBlobStreamを使ってみてはいかがでしょう。 var Buffer: PChar; MemSize: Integer; Stream: TBlobStream; begin Stream := TBlobStream.Create(query1.FieldByName('XXXX') as TBlobField, bmRead); try MemSize := Stream.Size; Inc(MemSize); {バッファーの null ターミネーター用に空きスペースを準備 } Buffer := AllocMem(MemSize); try Stream.Read(Buffer^, MemSize); {Bufferの中身に対する処理記述 } finally FreeMem(Buffer, MemSize); end; finally Stream.Free; end; end;