实例122 在数据库中存取图像
本实例演示如何在数据库中存取图像文件。
向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件，设计完成的主界面如图7-13所示。
图7-13 主谨此镇界面
本系统中需要设计一个新的基于Paradox 7的数据库Image.db，图7-14为设计完成的Image.db数据库。
图7-14 设计完成的数据库
为了方便测试程序，Image.db数据库存储在实例程序所在的路径下。
设置TTable组件的TableName属性为Image.db，Active属性为True。
在程序运行初期，首先会判断Image.db数据库中是否存在记录，如果没有记录存在，那么就执行以下代码向Image.db数据库中添加“鸟.bmp”文扒消件：
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
end
end
end
然后按照相同的方式顺序向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键运行程序，程序运行的初始画面如图7-15所示。
在TListBox组件中选中一项后，就会显示相对应的图像文件，如图7-16所示。
图7-15 程序运行的初始画面图7-16 程序运行结果
书上找的
首先你的服务器必须有上网的ip地址。固定的也行。不固定的也行。最好是固定的。如果不固定就需要在客户端动态的改变连接参数。你用ADO连接数据。在服务器的名称里填上你服务器的ip地址就行了。另外需要在win2000里新建一个你的访问用户账号。在客户端你可以通过执行QueryAnalyzer来测试数据库是不是连通。查看服务器的ip地址，通过ipconfig.就可以看到.服务器上只要用一个modem就行了。只要有它固定的ip.你先在你的服务器里的控制面板里用户管理/密码。建立一个客户。这个好禅客户的名称就是你那台客户的名称。然后把服务器上网，只要连上网就可以了。再通过附什的命仔茄令提示符，输入ipconfig.就会看到服务器的上网ip.而不是本地ip.3.然后把你的客户端也连上网，不管用什么方式接入internet.只要连上去就可以。在客户端通过SQL的QueryAnalzyer测试。输入服务念袜察器的ip,访问用户名和密码。一般默认是sa,看你sqlserver里的用户管理是怎么设置的。欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）