数据库应用程序开发中图像数据的存取技术

原创 2001年09月17日 01:11:00
数据库应用程序开发中图像数据的存取技术

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)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用...
  • zou5655
  • zou5655
  • 2001年07月10日 19:06
  • 883

第7章 SQL Server数据库应用程序开发

7.1. 客户基本信息管理示例 本节给出的示例是客户信息维护的程序实现,程序实现了查询、添加和删除客户信息的功能。程序界面如下, 图 7 1 合同管理系统客户维护模块功能界面 在图 7 1...
  • maguanzhan7939
  • maguanzhan7939
  • 2017年09月10日 20:22
  • 367

Java 数据库应用系统的实现

Java 语言是Sun MicroSystems 公司于1995年正式命名并推出的一种面向对象的编程语言-OOP(abbr.Object Oriented Programming)。Sun 公司说:J...
  • my98800
  • my98800
  • 2016年08月12日 14:39
  • 212

数据库应用程序开发基础篇—— .NET中SQL Server数据库的操作C#篇之一

数据库应用程序开发基础篇—— .NET中SQL Server数据库的操作C#篇之一 写在前面:前面介绍了数据库系统的基本概念,SQl语句基本使用方法,接下来通过学习具体语言和具体数据库结合的应用开发...
  • ziyuanxiazai123
  • ziyuanxiazai123
  • 2013年03月15日 13:39
  • 7728

 Visual C++ 开发数据库应用程序

 用Visual C++开发数据库应用程序   1.概述1.1 Visual C++开发数据库技术的特点Visual C++提供了多种多样的数据库访问技术——ODBC API、MFC ODBC、DAO...
  • liufei_learning
  • liufei_learning
  • 2011年05月16日 09:28
  • 1430

SQlite存取图像数据总结

需要源码的评论区留言 1、首先利用openCV读取图像 cv::Mat img = cv::imread("/home/hjj/demo.jpg",1); 2、在SQlite创建的表...
  • jack_20
  • jack_20
  • 2018年01月10日 09:42
  • 163

使用JDBC开发简单的数据库应用

1、JDBC简介 JDBC是Java应用程序与数据库进行连接的“桥梁”。它的设计目标是跨平台,也即是说只要你安装了对应数据库的驱动程序,你就可以通过实现 JDBC的驱动程序连接多种数据库...
  • sinat_16244265
  • sinat_16244265
  • 2016年12月03日 18:52
  • 350

百度地图api 结合数据库应用

百度地图api 结合数据库应用 php+mysql 构架地图应用
  • fig112000
  • fig112000
  • 2013年01月09日 17:06
  • 817

数据库应用程序开发入门篇—— 关系数据库中的基本概念

数据库应用程序开发入门篇—— 关系数据库中的基本概念 写在前面:关系数据库是目前应用最广泛的的数据库,了解关系型数据库的基本概念,有助于应用开发。 1.关系数据库中基本概念 关系数据库,是建立在...
  • ziyuanxiazai123
  • ziyuanxiazai123
  • 2013年03月14日 11:37
  • 3192

二维数组和一维数组的数据分布和存取

二维数组和一维数组的数据分布和存取标签:c/c++ 二维数组在存储分布上和一维数组是一样的,但是存取的写法却是有很大差异的#include #include #include int main()...
  • hust_sheng
  • hust_sheng
  • 2016年03月20日 19:27
  • 1421
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据库应用程序开发中图像数据的存取技术
举报原因:
原因补充:

(最多只允许输入30个字)