不需要经验,只需要通过代码分析,查看Graphics单元看看哪些地方调用了InvalidBitmapprocedure InvalidBitmap; begin InvalidGraphic(@SInvalidBitmap); end;procedure InvalidGraphic(Str: PResStringRec); begin raise EInvalidGraphic.CreateRes(Str); end;SInvalidBitmap = 'Bitmap image is not valid';
begin
InvalidGraphic(@SInvalidBitmap);
end;procedure InvalidGraphic(Str: PResStringRec);
begin
raise EInvalidGraphic.CreateRes(Str);
end;SInvalidBitmap = 'Bitmap image is not valid';
建立一個新的專案,然後在 Form1 上面各放置一個 ADODataSet,DataSource,DBImage,DBGrid。
設定 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 產品類別 把連接各元件的屬性設定好之後,將 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 格式,參考以下步驟:刪除 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;
在 ADODataSet1 的 AfterScroll 事件中呼叫 LoadImageFromField 函式:procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet);
begin
LoadImageFromField(
Image1.Picture,
DataSet.FieldByName('圖片') as TBlobField
);
end; 編譯並執行程式,現在你應該可以看到圖形欄位正確地顯示在 Image1 裡面了。