对于图片数据最好应存在什么字段中
答案:1 悬赏:0
解决时间 2021-01-13 17:54
- 提问者网友：美人性情
- 2021-01-12 19:53
对于图片数据最好应存在什么字段中
最佳答案
- 二级知识专家网友：从此江山别
- 2021-01-12 20:51
数据库中存取图像
本实例演示如何在数据库中存取图像文件。
向窗体上添加一个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组件、一个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;
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息