欢迎来到山村网

Delphi存取图像完整解决方案

2019-03-02 11:13:19浏览:692 来源:山村网   
核心摘要:  对于涉及图像数据的数据库应用程序,图像数据的存取技术是一个关键。由于缺少技术文档及DEMO例程演示,为此笔者在网上搜索了

  对于涉及图像数据的数据库应用程序,图像数据的存取技术是一个关键。由于缺少技术文档及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;

(责任编辑:豆豆)
下一篇:

Delphi分析清除流氓软件的源码

上一篇:

Delphi编写后台监控软件

  • 信息二维码

    手机看新闻

  • 分享到
打赏
免责声明
• 
本文仅代表作者个人观点,本站未对其内容进行核实,请读者仅做参考,如若文中涉及有违公德、触犯法律的内容,一经发现,立即删除,作者需自行承担相应责任。涉及到版权或其他问题,请及时联系我们 xfptx@outlook.com