数据库应用程序开发中图像数据的存取技术
2001-09-17 01:11
288 查看
数据库应用程序开发中图像数据的存取技术
Delphi提供了数据访问(DataAccess)和数据控制(DataControls)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含Graphic字段)的数据库应用程序,如人事管理信息系统等,图像数据的存取技术是一个关键。然而,有关Delphi下图象的存取,特别是图像的保存方面的技术各种资料上很少提及。下面,笔者结合一个简单的例子来说明。
一、图像数据的保存
1.创建一个含有Graphic字段的数据库列表。
在WindowsISQ(或Databasedesktop)下create database mydb.gdb
create table myfrieds(name varchar(15) notnull,telephone varchar(12), address varchar(30),zipvarchar(8),picture varchar(15),image blob);
其中,picture字段用于保存图像的名称(包括路径),image(Graphic字符)则用于存储图像,其数据类型为“blob”。
2.建立窗体(如图1所示),设置窗体中各控件的属性。
该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用TImage而不能用TDBImage,编辑框宜用Tedit而不宜用TDBEdit,这一点与图像的读取恰好相反。
其中,各主要控件的属性设置如下:
Datasource1.Dataset:=table1;
Table1.Databasename:=mydb.gdb;
Table1.Tablename:=myfriends;
Table1.active:=true;
其他诸如Caption之类的属性设置不再叙述。
3.数据处理程序的建立。
(1)图像( .bmp文件)打开的处理。
procedureTForm1.pictopenbtnClick(Sender:TObject);
beginopendialog1.execute;
image1.picture.loadfromfile(opendialog1.filename);
end;
(2)图像保存的处理。
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中,其关键是要定义一个Graphic类型的变量且该变量要用Assign()函数传递到相应数据库中保存。具体程序如下:
procedureTform1.Savebtnclick(sender:TObject);
var
graphic1:TGraphic;
begin
graphic1:=TGraphic.Create;
graphic1.loadfromfile(opendialog1.filename);
table1.insert;
table1.fieldbyname('name').asstring:=edit1.text;
table1.fieldbyname('telephon').asstring:=edit2.text;
table1.fieldbyname('address').asfloat:=edit3.text;
table1.fieldbyname('zip').asfloat:=edit4.text;
table1.fields[4].assign(graphic1);
table1.post;
graphic1.free;
end;
二、图像数据的读取
在数据库数据(包括Graphic字段的数据)的读取和浏览方面,Delphi这一具有强大代码自动生成功能的面向对象的开发工具的优越性得到淋漓尽致的体现。毫不夸张地说,不需要一条语句即可完成这一功能!
图中Table1和Datasource1的属性的设置与数据的保存部分(图1)相同,所不同的是数据库数据的读取时用TDBEdit和TDBImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要将datafield属性设置为其相对应的域;TDBNavigator的datasouce属性设置为datasource1即可。
tre
级别: 散兵
来自:厦门
OICQ:
积分:457
专家分:107
总排名:180
最后现身:2001-5-23 19:34:05(登陆100次)
发表于: 2001-5-23 20:02:40
--------------------------------------------------------------------------------
我也贴片给你是李维ado书上的
procedure TForm1.Button1Click(Sender: TObject);
var
sfilename:string;
function blobcont(const filename:string):string;
begin
with tfilestream.Create(filename,fmopenread) do
try
setlength(result,size);
read(pointer(result)^,size);
finally
free;
end;
end;
begin
if opendialog1.Execute then
begin
sfilename:=opendialog1.FileName;
adodataset1.Append;
adodataset1.FieldByName('ff').asstring:=blobcont(sfilename);
adodataset1.Post;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
sfilename:string;
bs:tadoblobstream;
begin
bs:=tadoblobstream.Create(tblobfield(adodataset1.FieldByName('ff')),bmread);
try
sfilename:='c:/ff.doc';//换成图片格式就可以了
if fileexists(sfilename) then
deletefile(sfilename);
bs.SaveTofile(sfilename);
OleContainer1.CreateObjectFromFile(sfilename,false);
//OleContainer1.LoadFromFile(sfilename);
//OleContainer1.LoadFromStream()
//memo1.Lines.LoadFromFile(sfilename);
// WebBrowser1.Navigate(pchar(sfilename));
finally
bs.free;
end;
Delphi提供了数据访问(DataAccess)和数据控制(DataControls)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含Graphic字段)的数据库应用程序,如人事管理信息系统等,图像数据的存取技术是一个关键。然而,有关Delphi下图象的存取,特别是图像的保存方面的技术各种资料上很少提及。下面,笔者结合一个简单的例子来说明。
一、图像数据的保存
1.创建一个含有Graphic字段的数据库列表。
在WindowsISQ(或Databasedesktop)下create database mydb.gdb
create table myfrieds(name varchar(15) notnull,telephone varchar(12), address varchar(30),zipvarchar(8),picture varchar(15),image blob);
其中,picture字段用于保存图像的名称(包括路径),image(Graphic字符)则用于存储图像,其数据类型为“blob”。
2.建立窗体(如图1所示),设置窗体中各控件的属性。
该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用TImage而不能用TDBImage,编辑框宜用Tedit而不宜用TDBEdit,这一点与图像的读取恰好相反。
其中,各主要控件的属性设置如下:
Datasource1.Dataset:=table1;
Table1.Databasename:=mydb.gdb;
Table1.Tablename:=myfriends;
Table1.active:=true;
其他诸如Caption之类的属性设置不再叙述。
3.数据处理程序的建立。
(1)图像( .bmp文件)打开的处理。
procedureTForm1.pictopenbtnClick(Sender:TObject);
beginopendialog1.execute;
image1.picture.loadfromfile(opendialog1.filename);
end;
(2)图像保存的处理。
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中,其关键是要定义一个Graphic类型的变量且该变量要用Assign()函数传递到相应数据库中保存。具体程序如下:
procedureTform1.Savebtnclick(sender:TObject);
var
graphic1:TGraphic;
begin
graphic1:=TGraphic.Create;
graphic1.loadfromfile(opendialog1.filename);
table1.insert;
table1.fieldbyname('name').asstring:=edit1.text;
table1.fieldbyname('telephon').asstring:=edit2.text;
table1.fieldbyname('address').asfloat:=edit3.text;
table1.fieldbyname('zip').asfloat:=edit4.text;
table1.fields[4].assign(graphic1);
table1.post;
graphic1.free;
end;
二、图像数据的读取
在数据库数据(包括Graphic字段的数据)的读取和浏览方面,Delphi这一具有强大代码自动生成功能的面向对象的开发工具的优越性得到淋漓尽致的体现。毫不夸张地说,不需要一条语句即可完成这一功能!
图中Table1和Datasource1的属性的设置与数据的保存部分(图1)相同,所不同的是数据库数据的读取时用TDBEdit和TDBImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要将datafield属性设置为其相对应的域;TDBNavigator的datasouce属性设置为datasource1即可。
tre
级别: 散兵
来自:厦门
OICQ:
积分:457
专家分:107
总排名:180
最后现身:2001-5-23 19:34:05(登陆100次)
发表于: 2001-5-23 20:02:40
--------------------------------------------------------------------------------
我也贴片给你是李维ado书上的
procedure TForm1.Button1Click(Sender: TObject);
var
sfilename:string;
function blobcont(const filename:string):string;
begin
with tfilestream.Create(filename,fmopenread) do
try
setlength(result,size);
read(pointer(result)^,size);
finally
free;
end;
end;
begin
if opendialog1.Execute then
begin
sfilename:=opendialog1.FileName;
adodataset1.Append;
adodataset1.FieldByName('ff').asstring:=blobcont(sfilename);
adodataset1.Post;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
sfilename:string;
bs:tadoblobstream;
begin
bs:=tadoblobstream.Create(tblobfield(adodataset1.FieldByName('ff')),bmread);
try
sfilename:='c:/ff.doc';//换成图片格式就可以了
if fileexists(sfilename) then
deletefile(sfilename);
bs.SaveTofile(sfilename);
OleContainer1.CreateObjectFromFile(sfilename,false);
//OleContainer1.LoadFromFile(sfilename);
//OleContainer1.LoadFromStream()
//memo1.Lines.LoadFromFile(sfilename);
// WebBrowser1.Navigate(pchar(sfilename));
finally
bs.free;
end;
相关文章推荐
- 数据库应用程序开发中图像数据的存取技术
- 数据库应用程序开发中图像数据的存取技术
- 诸如可更新、可滚动游标及符合ANSI的CASE语句、日期一时间数据类型和连接语法之类的特性便从将在其他数据库上开发的应用程序移植到Oracle 9i中
- 使用ADO实现vc中二进制文件数据的存取(以图像在数据库中的存取为例)
- 数据库开发技术 大数据产业和产品链条
- 【技术支持】开发人员从客户数据库环境中导出数据用户测试的几种方法途径
- 图像数据的数据库应用程序
- 1 开发一个注重性能的JDBC应用程序不是一件容易的事. 当你的代码运行很慢的时候JDBC驱动程序并不会抛出异常告诉你。 本系列的性能提示将为改善JDBC应用程序的性能介绍一些基本的指导原则,这其中的原则已经被许多现有的JDBC应用程序编译运行并验证过。 这些指导原则包括: 正确的使用数据库MetaData方法 只获取需要的数据 选用最佳性能的功能 管理连
- 使用ADO实现vc中二进制文件数据的存取(以图像在数据库中的存取为例)
- 【Android应用开发技术:数据存储】数据库
- 基于Grove的.NET应用程序开发提示1--数据库主键设置问题
- 8天掌握EF的Code First开发系列之3 管理数据库创建,填充种子数据以及LINQ操作详解
- iOS开发之数据存取2-CoreData后台查询数据
- 利用 .NET Compact Framework开发行动装置数据库应用程序
- 用C++ Builder开发多层数据库应用程序
- Linux下应用程序开发:QT国际化编程 -- 你的Linux技术站,技术支持站
- 一起谈.NET技术,SharePoint开发笔记-SharePoint2010添加ASP.NET应用程序
- Adobe Flash Builder 4.5 Android Air 程序开发系列 之四 打开与关闭应用程序是的保存数据
- ACCP学习旅程之-----使用C#开发数据库应用程序(第一章)
- 使用Delphi和Web Services技术开发短信应用程序