讀取 Access 資料庫的圖形欄位

(使用 Delphi 5 + ADOExpress)

資料提供、整理:陳國生,蔡煥麟,朱子

摘要

「如何讀取並顯示 Access 資料庫的圖形欄位資料?」已是個 FAQ,本文主旨即在說明解決此問題的方法。此方法最初是在 efg's Computer Lab 網站的一篇文章中得來,但目前該文已經在網站上消失了。如果你搜尋 Borland 新聞群組,也可以找到類似的解答,整理這篇文章只是方便大家參考。

請先確定你的電腦有安裝 Microsoft© Access 中文版,在本文中我們將使用其隨附的北風資料庫來做示範。

問題重現

  1. 建立一個新的專案,然後在 Form1 上面各放置一個 ADODataSet,DataSource,DBImage,DBGrid。
  2. 設定 ADODataSet1 的 ConnectionString 屬性:

    Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb;Persist Security Info=False

    以及 CommandText 屬性:

    select * from 產品類別

     

  3. 把連接各元件的屬性設定好之後,將 ADODataSet1 的 Active 屬性設為 True,此時便會出現錯誤訊息 "Bitmap image is not valid."。由於該圖形是以 OLE 物件的形式存在資料庫中,而 DBImage 並未支援這種格式的圖形資料,因而發生錯誤。你可以在程式中加入下面這行程式碼,它會將圖形資料存到 Blob.dat 檔案裡面:

    TBlobField(ADODataSet1.FieldByName('圖片')).SaveToFile('Blob.dat');

    如果用 UltraEdit 之類的工具檢視該檔案的內容,可以看到它大概是長成這樣:

    1 151C2F00020000000D000E0014002100 ../...........!.
    2 FFFFFFFF4269746D617020496D616765 ....Bitmap Image
    3 005061696E742E506963747572650001 .Paint.Picture..
    4 05000002000000070000005042727573 ...........PBrus
    5 6800000000000000000020540000424D h......... T..BM
    6 16540000000000007600000028000000 .T......v...(... 
    7 C0000000DF0000000100040000000000 ................
    8 A0530000CE0E0000D80E000000000000 .S..............
    9 00000000000000000000800000800000 ................
    10 00808000800000008000800080800000 ................
    11 C0C0C000808080000000FF0000FF0000 ................
    12 00FFFF00FF000000FF00FF00FFFF0000 ................
    13 FFFFFF00FF0CB0C9000B090900000A00 ................
    14 9009000000000909A09A900B09000A90 ................
    15 A00000000FFFEFFFFFFFFFFFFFFFFFCB ................
    16 9CFCFEFAFFFFFFFFEDFFFEDEFFDEFEFC ................
    17 FFFFDADA00D900009009009000000000 ................
    18 090A00090BC0000900900000000A00AC ................
    19 A0E0E0E0F0E9CA9000A9CB0C00009090 ................
    20 E0000009090B0000D009009000000900 ................
    21 009A000FFFFFFFFFFFFEFFFFFFFFFCAD ................
    22 EBDBDFDFDFFFFFFFFFEFEDFFFEFFFFFF ................
    23 FEFCAF0C9A0A0D00009A000000000000 ................
    24 0009090A000B009A9000090000900C09 ................
    25 00900900FA90ADA00090B00B00000000 ................
    ...

解決方法

前面說過,DBImage 之所以無法正常顯示圖形,是因為當初該欄位的圖形資料是以 OLE 物件的格式存進去的(跟是不是 Access 資料庫沒關係),所以解決方法就是將 OLE 格式的圖形資料轉換成 DBImage 支援的 bitmap 格式,參考以下步驟:

  1. 刪除 DBImage1,並且將以下程式碼貼到你的程式裡:

    procedure LoadImageFromField(APicture: TPicture; AField: TBlobField);
    var
      ABitmap: TBitmap;
      AStream: TMemoryStream;
    begin
      if AField.IsNull then
        Exit;
    
      AStream := TMemoryStream.Create;
      try
        AField.SaveToStream(AStream);
    
        // Skip OLE storage header
        AStream.Seek(78, soFromBeginning);
        ABitmap := TBitmap.Create;
        try
          ABitmap.LoadFromStream(AStream);
          APicture.Graphic := ABitmap;
        finally
          ABitmap.Free;
        end;
      finally
        AStream.Free;
      end;
    end;

     

  2. 在 ADODataSet1 的 AfterScroll 事件中呼叫 LoadImageFromField 函式:

    procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
    begin
      LoadImageFromField(
        Image1.Picture,
        DataSet.FieldByName('圖片') as TBlobField
      );
    end;
    
  3. 編譯並執行程式,現在你應該可以看到圖形欄位正確地顯示在 Image1 裡面了。

 

下載範例程式:AdoAccessImg.zip

 

補充資料

[員工]資料表的[相片]欄位(朱子 提供)

有位網友(bcc10212001)於「點空間」留言板寫著以下的問題:

請教一個問題.... 

在delphi單元裡<讀取 Access 資料庫的圖形欄位(使用 Delphi5+ADOExpress)> 我照著做可以可以看到圖形欄位正確地顯示在 Image1 裡面。是如果Table改成"員工"卻不行,一樣出現Bitmap is not valid的問題,這是怎麼回事.....。

今我將我的回覆整理在此,與各位分享:

如果你用的是 Access 2002 的版本,員工相片欄位的資料格式已經變更為「文字」格式,所以自然就不能使用這個方法。 

然而你用的是 Access 2000 或之前的版本,首先我必須指出的是微軟建立員工的各筆資料,是早在 Access 97 或更早的 Access 2.0 就建立好了,而這些資料都未經轉換或改變。因此,雖然同樣是 OLE 物件的資料格式,然而儲存的形式卻有差微的不同。當我將”產品類別”的”圖片”欄位資料,與”員工”的”相片”欄位資料轉成檔案儲存後,拿來一起比較時,可以發現這些微的不同,我將資料列示如下: 

”產品類別”的”圖片”欄位資料 
--------------------------------------------------------------------
1: 15 1C 2F 00 02 00 00 00 0D 00 0E 00 14 00 21 00; ../...........!. 
2: FF FF FF FF 42 69 74 6D 61 70 20 49 6D 61 67 65; ....Bitmap Image 
3: 00 50 61 69 6E 74 2E 50 69 63 74 75 72 65 00 01; .Paint.Picture.. 
4: 05 00 00 02 00 00 00 07 00 00 00 50 42 72 75 73; ...........PBrus 
5: 68 00 00 00 00 00 00 00 00 00 20 54 00 00 42 4D; h......... T..BM 
6: 16 54 00 00 00 00 00 00 76 00 00 00 28 00 00 00; .T......v...(... 
7: C0 00 00 00 DF 00 00 00 01 00 04 00 00 00 00 00; ................ 
--------------------------------------------------------------------
”員工”的”相片”欄位資料 
--------------------------------------------------------------------
1: 15 1C 2D 00 02 00 00 00 0B 00 0E 00 14 00 1F 00 ;..-............. 
2: FF FF FF FF C2 49 B0 7D B9 CF BC 76 B9 B3 00 50 ;     點陣圖影像.P 
3: 61 69 6E 74 2E 50 69 63 74 75 72 65 00 01 05 00 ;aint.Picture.... 
4: 00 02 00 00 00 07 00 00 00 50 42 72 75 73 68 00 ;.........PBrush. 
5: 00 00 00 00 00 00 00 00 C0 53 00 00 42 4D B6 53 ; ........ ..BM 靦貶 
6: 00 00 00 00 00 00 76 00 00 00 28 00 00 00 C0 00 ;......v...(...? 
7: 00 00 DE 00 00 00 01 00 04 00 00 00 00 00 40 53 ;..?..........@S 
--------------------------------------------------------------------

請注意 [42 4D B6 53] (第五行)這些資料,在”產品類別”的”圖片”欄位資料中,從頭起算至 79 個位址,而在”員工”的”相片”欄位資料中卻出現於第 77 個位址。因此從雙方的資料比較可以明顯看出,相差兩個字元,而這就是存取員工相片資料時,發生『Bitmap is not valid』錯誤訊息的關鍵。 

因此在存取”員工”的”相片”欄位時,之前寫的 LoadImageFromField 函式必須稍作修改:

原為:

    AStream.Seek(78, soFromBeginning);

改成:

    AStream.Seek(76, soFromBeginning);

∼  end ∼

Nov-13-2001, Apr-13-2002