Delphi實現在數據庫中存取圖像
這個例子縯示了如何訪問數據庫中的圖像文件。
在表單中添加一個TListBox組件、一個TImage組件和一個Table組件來設計主界麪。
本系統需要基於Paradox 7設計一個新的Image.db數據庫。圖2顯示了設計的Image.db數據庫。
爲了方便測試程序,Image.db數據庫存儲在實例程序所在的路逕中。
將TTable組件的TableName屬性設置爲Image.db,竝將Active屬性設置爲True。
在程序運行之初,它會首先判斷Image.db數據庫中是否有記錄。如果沒有記錄,則執行以下代碼將“bird.bmp”文件添加到Image.db數據庫中:
程序TForm1。FormCreate(發件人:to object);
var
mem:TMemoryStream;
如果表1,則開始
。Eof和表1。Bof然後
begin
with table 1 do
begin
Insert;
fieldbyname ('name ')。asstring:= ' bird ';
mem:=TMemoryStream。create();
mem。LoadFromFile(' bird . BMP ');
TBlobField(field by name(' Data '))。LoadFromStream(mem);
Post;
end;
end;
end;
然後按照相同的順序將“sample.wav”、“leaf.wav”和“lotus”圖像文件添加到Image.db數據庫中。
最後,通過以下代碼將Image.db數據庫中存儲的文件名添加到表單的TListBox組件中:
從Table1開始,首先
開始
;
while not Eof do
begin
listbox 1。Items.Add(FieldByName('Name ')。AsString);
接下來;
end;
end;
0條評論