讀取 Access 資料庫的圖形欄位

2002年前的转贴 专栏收录该内容
6 篇文章 0 订阅

讀取 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

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

打赏
文章很值,打赏犒劳作者一下
相关推荐
<p> <span style="font-size:14px;color:#337FE5;">【为什么学爬虫?】</span> </p> <p> <span style="font-size:14px;">       1、爬虫入手容易,但是深入较难,如何写出高效率的爬虫,如何写出灵活性高可扩展的爬虫都是一项技术活。另外在爬虫过程中,经常容易遇到被反爬虫,比如字体反爬、IP识别、验证码等,如何层层攻克难点拿到想要的数据,这门课程,你都能学到!</span> </p> <p> <span style="font-size:14px;">       2、如果是作为一个其他行业的开发者,比如app开发,web开发,学习爬虫能让你加强对技术的认知,能够开发出更加安全的软件和网站</span> </p> <p> <br /> </p> <span style="font-size:14px;color:#337FE5;">【课程设计】</span> <p class="ql-long-10663260"> <span> </span> </p> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> 一个完整的爬虫程序,无论大小,总体来说可以分成三个步骤,分别是: </p> <ol> <li class="" style="font-size:11pt;color:#494949;"> 网络请求:模拟浏览器的行为从网上抓数据。 </li> <li class="" style="font-size:11pt;color:#494949;"> 数据解析:将请求下来的数据进行过滤,提我们想要的数据。 </li> <li class="" style="font-size:11pt;color:#494949;"> 数据存储:将提到的数据存储到硬盘或者内存中。比如用mysql数据库或者redis等。 </li> </ol> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> 那么本课程也是按照这几个步骤循序渐进的进行讲解,带领学生完整的掌握每个步骤的技术。另外,因为爬虫的多样性,在爬的过程中可能会发生被反爬、效率低下等。因此我们又增加了两个章节用来提高爬虫程序的灵活性,分别是: </p> <ol> <li class="" style="font-size:11pt;color:#494949;"> 爬虫进阶:包括IP代理,多线程爬虫,图验证码识别、JS加密解密、动态网页爬虫、字体反爬识别等。 </li> <li class="" style="font-size:11pt;color:#494949;"> Scrapy和分布式爬虫:Scrapy框架、Scrapy-redis组件、分布式爬虫等。 </li> </ol> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> 通过爬虫进阶的知识点我们能应付大量的反爬网站,而Scrapy框架作为一个专业的爬虫框架,使用他可以快速提高我们编写爬虫程序的效率和速度。另外如果一台机器不能满足你的需求,我们可以用分布式爬虫让多台机器帮助你快速爬数据。 </p> <p style="font-size:11pt;color:#494949;">   </p> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> 从基础爬虫到商业化应用爬虫,本套课程满足您的所有需求! </p> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> <br /> </p> <p> <br /> </p> <p> <span style="font-size:14px;background-color:#FFFFFF;color:#337FE5;">【课程服务】</span> </p> <p> <span style="font-size:14px;">专属付费社群+定期答疑</span> </p> <p> <br /> </p> <p class="ql-long-24357476"> <span style="font-size:16px;"><br /> </span> </p> <p> <br /> </p> <p class="ql-long-24357476"> <span style="font-size:16px;"></span> </p>
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页

打赏

rh

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值