程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> Delphi實現在數據庫中存取圖像(2)

Delphi實現在數據庫中存取圖像(2)

編輯:Delphi

然後按照相同的方式順序向Image.db數據庫中添加“樣品.wav”、“葉子.wav”和“荷花”圖像文件。

最後通過下面的代碼把Image.db數據庫中存儲的文件名字添加到窗體的TListBox組件中:

with Table1 do
begin
 First;
 while not Eof do
 begin
  ListBox1.Items.Add(FIEldByName(’Name’).AsString);
  Next;
 end;
end;

在程序運行過程中,如果用戶在窗體的TListBox組件中選擇了圖像文件,程序會通過TTable組件的First方法把數據表中的第1條記錄作為當前記錄,然後通過一個循環來遍歷數據庫中的記錄。如果某條記錄中Name字段的內容和用戶的選擇相同,那麼就把該記錄中Data字段中的圖像信息讀取出來,並且把圖像顯示在窗體上的TImage組件上。代碼如下:

procedure TForm1.ListBox1Click(Sender: TObject);
var
 mem:TStream;
 bmp:TBitmap;
begin
 with Table1 do
 begin
  First;
  while not Eof do
  begin
   if FIEldByName(’Name’).AsString=ListBox1.Items[ListBox1.ItemIndex] then
   break;
   Next;
  end;
  bmp:=TBitmap.Create;
  mem:=CreateBlobStream(FIEldByName(’Data’),bmRead);
  mem.Position:=0;
  bmp.LoadFromStream(mem);
  self.Image1.Picture.Assign(bmp);
  bmp.Free;
  mem.Free;
 end;
end;

程序代碼如下:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables,mmsystem, ExtCtrls;
type
 TForm1 = class(TForm)
 ListBox1: TListBox;
 Table1: TTable;
 Image1: TImage;
 procedure FormCreate(Sender: TObject);
 procedure ListBox1Click(Sender: TObject);
private
 { Private declarations }
public
 { Public declarations }
end;
var
 Form1: TForm1;
 implementation
 {$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
 mem:TMemoryStream;
begin
 if Table1.Eof and Table1.Bof then
 begin
  with Table1 do
  begin
   Insert;
   FIEldByName(’Name’).AsString:=’鳥’;
   mem:=TMemoryStream.Create();
   mem.LoadFromFile(’鳥.bmp’);
   TBlobField(FIEldByName(’Data’)).LoadFromStream(mem);
   Post;
    Insert;
   FIEldByName(’Name’).AsString:=’樣品’;
   mem:=TMemoryStream.Create();
   mem.LoadFromFile(’樣品.bmp’);
   TBlobField(FIEldByName(’Data’)).LoadFromStream(mem);
   Post;
   Insert;
   FIEldByName(’Name’).AsString:=’葉子’;
   mem:=TMemoryStream.Create();
   mem.LoadFromFile(’葉子.bmp’);
   TBlobField(FIEldByName(’Data’)).LoadFromStream(mem);
   Post;
   Insert;
   FIEldByName(’Name’).AsString:=’荷花’;
   mem:=TMemoryStream.Create();
   mem.LoadFromFile(’荷花.bmp’);
   TBlobField(FIEldByName(’Data’)).LoadFromStream(mem);
   Post;
   mem.Free;
  end;
 end;
 with Table1 do
 begin
  First;
  while not Eof do
  begin
   ListBox1.Items.Add(FIEldByName(’Name’).AsString);
   Next;
  end;
 end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
 mem:TStream;
 bmp:TBitmap;
begin
 with Table1 do
 begin
  First;
  while not Eof do
  begin
   if FIEldByName(’Name’).AsString=ListBox1.Items[ListBox1.ItemIndex] then
    break;
  Next;
  end;
  bmp:=TBitmap.Create;
  mem:=CreateBlobStream(FIEldByName(’Data’),bmRead);
  mem.Position:=0;
  bmp.LoadFromStream(mem);
  self.Image1.Picture.Assign(bmp);
  bmp.Free;
  mem.Free;
 end;
end;
end.

保存文件,然後按F9鍵運行程序,程序運行的初始畫面如圖3所示。

在TListBox組件中選中一項後,就會顯示相對應的圖像文件,如圖4所示。

 

圖3 程序運行的初始畫面

圖4 程序運行結果

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved