dbimageでaccessの画像が読めません。 (ID:27399)

名前

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

本文 根本的な原因は不明ですが、 当方でも直接 MS-ACCESS から OLE オブジェクト型に Bitmap Image を登録し、そのデータを、DBImage 経由で読みだそうと した時にビットマップが不正とのメッセージを確認しました。 MS-ACCESS の扱うビットマップとDelphi が扱うビットマップでは 何かが違うのでしょうか。 参考まで、私は、下記の要領で、DBImage --> ADOTable --> .mdb に Bitmap イメージを登録しています。問題なく読込表示できています。 ※ACCESS 上では、バイナリデータとして扱われているようです。 // ファイルから読み込む場合 procedure TForm1.SpeedButton1Click(Sender: TObject); begin OpenPictureDialog1.Filter := 'BMPファイル(*.bmp)|*.bmp|すべてのファイル(*.*)|*.*'; if OpenPictureDialog1.Execute then begin if not (ADOTable1.State in [dsEdit, dsInsert]) then ADOTable1.Edit; DBImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end; // クリップボートから読み込む場合 procedure TForm1.SpeedButton2Click(Sender: TObject); begin // uses節にClipbrdを加えること if Clipboard.HasFormat(CF_BITMAP) or Clipboard.HasFormat(CF_METAFILEPICT) or Clipboard.HasFormat(CF_PICTURE) then DBImage1.PasteFromClipboard; end;