Delphi存取图像完整解决方案

http://blog.sina.com.cn/s/blog_693cf1cf0100plkq.html

对于涉及图像数据的数据库应用程序,图像数据的存取技术是一个关键。由于缺少技术文档及DEMO例程演示,为此笔者在网上搜索了相关资料,有的根本不能用,有的过于繁杂,有的应用范围太窄(如只能适用于BMP图像),有的写得过于简单理解起来十分困难。。。而且在网上这也是大家比较关心的一个问题。笔者对这个问题进行了反复实作和探索,下边笔者将通过一个完整的简单例子来说明如何保存和显示SQL数据库中的图像数据(同时包括BMP和JPEG两种格式)。

  一、 创建演示数据库

  在SQL SERVER中新建一演示数据库:Demo,并创建一数据表Picture1,结构如下:

  

字段名 Dtata Type Identity
Id Int Yes
Isbmp Tinyint  
Myimage Image  

  字段Isbmp是用来记录在Myimage中存入的图像的类型(0表JPEG,1表BMP,其它值表无图像),Isbmp数据类型选用整型Tinyint而末选用逻辑bit型主要是考虑到如下方法仍适用于ACCESS数据库。在SQL中打开表Picture1,添入几条记录,Myimage图像字段值暂不管,字段Isbmp值随便输入0和1之外的其它数。

  二、 窗口设计

  在DELPHI中新建一个工程,在FORM1上放置如表所示控件(考虑到TDBImage型控件不能正确显示JPEG型图像,所以选用Timage型控件显示所有类型图像)。

  

组件类别 组件属性名 属性值 用途说明
Timage caption Image1 显示图像
name Image1
Stretch True
Tbutton caption 选择图像 选择图像
name selectimage
Tbutton caption 保存图像 保存图像到数据库
name savetodb
TADOConnection caption Adoconnection1 创建与数据库demo的连接
name Adoconnection1
Connectionstring 见备注
Connected True
Loginprompt False
Tadotable Caption Adotable1 建立与表Picture1的连接
name Adotable1
Connection Adoconnection1
Tablename Picture1
Active True
Tdatasource Name Datasource1 建立数据源
Dataset Adotable1
Topenpicturedialog Caption Openpicturedialog1 选择图像文件
Name Openpicturedialog1
Tdbgrid Caption Dbgrid1 显示记录
Name Dbgrid1
Datasource Datasource1

  备注:

  adoconnection1.connectstring :=

  ‘Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=demo;

  Data Source=Mysqlserver‘

  Mysqlserver为SQL服务器的名称请据实际情况更改。

  三、 程序代码(首先在单元文件接口部分的uses语句中添入JPEG单元引用)

  1. 图像数据的选择及保存

  procedure TForm1.selectimageClick(Sender: TObject); //选择图像
begin
if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName );
end;
procedure TForm1.savetodbClick(Sender: TObject); //保存图像
var
strm:tmemorystream;
ext:string;
begin
if image1.picture.Graphic <> nil then //避免image1中无图像保存出错
begin
ext:=extractfileext(openpicturedialog1.FileName ); //取出文件的扩展名
strm := tmemorystream.Create ;
try
image1.Picture.Graphic.SaveToStream(strm);
adotable1.Edit ;
strm.Position :=0; 
tblobfield(adotable1.FieldByName(‘myimage‘)).LoadFromStream(strm);
//如需直接由文件保存可采用如下注释行
//TBlobField(adotable1.FieldByName(‘myimage‘)).LoadFromFile(OpenPictureDialog1.FileName);
//以下记录保存到数据库的图像格式
if uppercase(ext) = ‘.BMP‘ then
adotable1.FieldByName(‘isbmp‘).Value := 1 //BMP型图像数据
else if (uppercase(ext) = ‘.JPG‘) OR ( uppercase(ext) = ‘.JPEG‘) Then
adotable1.FieldByName(‘isbmp‘).Value := 0; //JPEG型图像数据
adotable1.Post ;
finally
strm.Free ; //笔者发现如strm采用tblobstream类,程序运行到该语句会出现问题
end;
end;
end;

  2. 图像数据的读取及显示

  从数据库图像字段中读取数据然后在Image1中把图像显示出来的程序代码,笔者先尝试在Datasource1的OnDataChange事件中来完成,但会出错,后改写在adotable1的afterscroll事件中顺利完成。

  procedure TForm1.adoTable1AfterScroll(DataSet: TDataSet); //显示图像
var
strm:tadoblobstream;
jpegimage:tjpegimage;
bitmap:tbitmap;
begin
strm := tadoblobstream.Create(tblobfield(adotable1.fieldbyname(‘MYIMAGE‘)),bmread);
try //try1
strm.position :=0;
image1.Picture.Graphic := nil; //清除图像
// BMP、JPEG两种图像数据必需分别处理
if adotable1.fieldbyname(‘isbmp‘).asstring =‘1‘ then //BMP型图像数据
begin //begin11
bitmap := tbitmap.Create ;
try //try11
bitmap.LoadFromStream(strm);
image1.Picture.Graphic := bitmap;
finally
bitmap.Free;
end; //end try11
end //end begin11
else if adotable1.fieldbyname(‘isbmp‘).asstring =‘0‘ then //JPEG型图像数据
begin //begin12
jpegimage := tjpegimage.Create ;
try //try12
jpegimage.LoadFromStream(strm);
image1.Picture.Graphic := jpegimage;
finally
jpegimage.Free ;
end; //end try12
end; //end begin12
finally
strm.Free ;
end; //end try1
end;

  如果你想将数据库中的图像导出到外部文件中可采用如下关键语句:

  image1.Picture.SaveToFile(FileName );

  以上程序代码不但适用于SQL数据库,而且完全适用于ACCESS数据库,但创建ACCESS数据库时应注意图像字段的数据类型应为OLE型,数据库创建完成之后再将Adoconnection1连接到该ACCESS数据库即可运行。欲知详细情况,请索取源程序。以上提供了DELPHI利用Tsteam类存取JPEG、BMP图像到数据库的一种解决方案,笔者争取下文介绍DELPHI利用ASSIGN方法存取JPEG、BMP图像到数据库的另一解决方案。

  以上程序代码在DELPHI6.0+SQL(或ACCESS)数据库下运行通过。

Delphi图像存取另类解决方案

在前文中,提供了一种DELPHI存取JPEG、BMP图像到数据库的解决方案,虽然它适用于ACCESS和SQL数据库,但它并不适用于所有数据库(比如PARADOX数据库中的GRAPHIC图像字段就不能采用该方法存取图像数据),下文将介绍DELPHI利用ASSIGN方法存取JPEG、BMP图像到数据库的另一解决方案来进行补充完善。演示数据库结构和窗口界面设计同前文,不再重述,将单元的相应程序代码作如下更换:

  1. 图像数据的选择及保存

  procedure Tform1.selectimageClick(Sender: TObject); //选择图像
begin
if openpicturedialog1.Execute then
image1.Picture.LoadFromFile(openpicturedialog1.FileName );
end;
procedure Tform1.savetodbClick(Sender: TObject); //保存图像到数据库
var
ext:string;
begin
if image1.picture.Graphic <> nil then //避免image1中无图像保存出错
begin
adotable1.Edit ;
adotable1.FieldByName(‘myimage‘).Assign(image1.Picture.Graphic);
//以下记录保存到数据库的图像格式
ext:=extractfileext(openpicturedialog1.FileName ); //取出文件扩展名
if uppercase(ext) = ‘.BMP‘ THEN
adotable1.FieldByName(‘isbmp‘).VALUE := 1 //BMP型图像数据
ELSE IF (UPPERCASE(EXT) = ‘.JPEG‘) OR (UPPERCASE(EXT) = ‘.JPG‘) THEN
adotable1.FieldByName(‘isbmp‘).VALUE := 0; //JPEG型图像数据
ADOTABLE1.Post ;
end;
end;

  2. 图像数据的读取及显示

  procedure Tform1.ADOTable1AfterScroll(DataSet: TDataSet); //ADOTable1的AfterScroll事件方法程序
 var
  jpegimage:tjpegimage;
 begin
  image1.Picture.Graphic :=nil;
  //下边BMP、JPEG两种图像数据必需分别处理
  if adotable1.fieldbyname(‘isbmp‘).Asstring = ‘1‘ then //BMP型图像数据
   image1.Picture.bitmap.Assign(adotable1.fieldbyname(‘myimage‘))
   //上边语句中的bitmap不能为graphic,否则会出错
  else if adotable1.fieldbyname(‘isbmp‘).asstring = ‘0‘ then //JPEG型图像数据
   begin //begin2
    jpegimage := tjpegimage.Create ; //通过jpegimage将图像显示在image1,否则会出错
    try
     jpegimage.Assign(adotable1.fieldbyname(‘myimage‘));
     image1.Picture.Graphic :=jpegimage;
    finally
     jpegimage.Free ;
    end; //end try
  end; //end begin2
end;

  注:别忘了在单元文件接口部分的uses语句中添入JPEG单元引用。

  以上程序代码在DELPHI6.0+SQL(或ACCESS或PARADOX)数据库下运行通过。

时间: 2024-10-12 12:22:44

Delphi存取图像完整解决方案的相关文章

利用JFreeChart绘制股票K线图完整解决方案

http://blog.sina.com.cn/s/blog_4ad042e50100q7d9.html 利用JFreeChart绘制股票K线图完整解决方案 (2011-04-30 13:27:17) 标签: 绘制 股票 k线 it 分类: 软件_Software 因为工作的需要,接触了一些股票图形绘制类的工作,其中最主要的还是股票K线图的绘制了,如果利用编程语言最底层的图形绘制方法去绘制这类图形,如果对编程语言不是特别熟悉的话,一般是有很大的困难的,通过在网上搜索发现,以自己最熟悉的两门语言为

WebAPI2使用AutoFac依赖注入完整解决方案。

WebApi2上进行依赖注入,在百度里能搜到的的完整解决方案的文章少之又少,缺胳膊断腿. 和MVC5依赖注入的不同之处,并且需要注意的地方,标记在注释当中.上Global代码: namespace S2S.WebApi { public class WebApiApplication : System.Web.HttpApplication { protected void Application_Start() { //----AutoFac DI------ var builder = ne

Android 数据库升级完整解决方案

数据库升级的意义 我们在开发Android应用的时候,不可避免地要使用数据库.而数据库的结构在第一版的时候定下来,之后发布功能更新,或增加业务逻辑,原来的数据库结构可能就不适用了.而如果数据库的结构与之前版本的结构不同,新版本的应用读取旧数据库肯定会出问题.解决办法只有两种: 1.让用户卸载老版本再安装新的程序: 2.软件自行更新数据库结构. 第一种办法很明显不具备可操作性,而且用户一旦卸载软件,数据就丢失了,这是不能容忍的事情.因此,作为开发者必须妥善处理数据库的升级问题. 当然了,有的同学会

图片上传-下载-删除等图片管理的若干经验总结3-单一业务场景的完整解决方案

这次完整地介绍图片上传的完整解决方案,如有bug,后续再补充. 一.图片表 CREATE TABLE `photo` ( `id` bigint(10) unsigned NOT NULL AUTO_INCREMENT, `bizid` bigint(11) NOT NULL DEFAULT '-1' COMMENT '业务id,比如项目的id', `cover` int(11) DEFAULT '0' COMMENT '1:是,0:不是', `sort` int(11) DEFAULT '0'

content_form.class.php文件不完整 解决方案

玩phpcms的从多少会遇到这个问题,根据错误提示我们可以发现是由于content_form.class.php文件不完整导致的,网上有好多文章说是把这个文件用本地的替换掉就可 以了,但是只要一更新缓存问题又会出现,不除根,果断废弃.这个问题,一般用ftp上传文件时,文件代码丢失,使得代码不完整造成的,只要找到丢失文件,再上传就好了.../phpcms/modules/content/fields/video/form.inc.php就是由于这个文件不完整从而导致的错误,它才是真正的元凶.我们只

XP局域网访问无权限、不能互相访问问题的完整解决方案

XP局域网访问无权限问题的完整解决方案: 1:用管理员账户登录系统 2:在"开始"-- "运行"里输入 GPEDIT.MSC 目的是打开组策略选项 3:依次展开"WINDOWS设置"-"本地策略"-"用户指派权利" 在窗口右边栏里找到"拒绝从网络访问这能计算机"后,双击打开, 把里面的GUEST帐户删除 4:依次展开"WINDOWS设置"-"本地策略&quo

Delphi实现在数据库中存取图像

向窗体上添加一个TListBox组件.一个TImage组件和一个TTable组件,设计完成的主界面如图1所示. 图1 主界面 本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图2为设计完成的Image.db数据库. 图2 设计完成的数据库 为了方便测试程序,Image.db数据库存储在实例程序所在的路径下. 设置TTable组件的TableName属性为Image.db,Active属性为True. 在程序运行初期,首先会判断Image.db数据库中是否存在记录,如果没有

DOS、DDOS、CC等完整解决方案

看看你的服务的访问日志,在防火墙中加过滤,或者在web服务器中加过滤吧.方法有以下几种. 1.对于特定的IP访问的情况,限制IP访问2.限制同一IP在单位时间内的访问次数 另一种方法是利用Iptables预防DOS脚本 #!/bin/bash netstat -an|grep SYN_RECV|awk '{print$5}'|awk -F: '{print$1}'|sort|uniq -c|sort -rn|awk '{if ($1 >1) print $2}' for i in $(cat /

基于RMI服务传输大文件的完整解决方案

基于RMI服务传输大文件,分为上传和下载两种操作,需要注意的技术点主要有三方面,第一,RMI服务中传输的数据必须是可序列化的.第二,在传输大文件的过程中应该有进度提醒机制,对于大文件传输来说,这点很重要,因为大文件的传输时间周期往往比较长,必须实时告知用户大文件的传输进度.第三,针对大文件的读取方式,如果采用一次性将大文件读取到byte[]中是不现实的,因为这将受制于JVM的可用内存,会导致内存溢出的问题. 笔者实验的基于RMI服务传输大文件的解决方案,主要就是围绕以上三方面进行逐步解决的.下面