知识大全 Delphi存取图像完整解决方案

Posted 2022-07-21 数据库

篇首语：成功的人是跟别人学习经验，失败的人只跟自己学习经验。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi存取图像完整解决方案相关的知识，希望对你有一定的参考价值。

Delphi存取图像完整解决方案 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

　　一创建演示数据库

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

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

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

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

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

　　备注

adoconnection connectstring := Provider=SQLOLEDB ;Persist Security Info=False;User ID=sa;Initial Catalog=demo;Data Source=Mysqlserver Mysqlserver为SQL服务器的名称请据实际情况更改　　三程序代码（首先在单元文件接口部分的uses语句中添入JPEG单元引用）

　　图像数据的选择及保存procedure TForm selectimageClick(Sender: TObject); //选择图像beginif openpicturedialog Execute thenimage Picture LoadFromFile(openpicturedialog FileName );end;

procedure TForm savetodbClick(Sender: TObject); //保存图像varstrm:tmemorystream; ext:string;beginif image picture Graphic <> nil then //避免image 中无图像保存出错beginext:=extractfileext(openpicturedialog FileName ); //取出文件的扩展名strm := tmemorystream Create ;tryimage Picture Graphic SaveToStream(strm);adotable Edit ;strm Position := ;　 tblobfield(adotable FieldByName( myimage )) LoadFromStream(strm);//如需直接由文件保存可采用如下注释行//TBlobField(adotable FieldByName( myimage )) LoadFromFile(OpenPictureDialog FileName);//以下记录保存到数据库的图像格式if uppercase(ext) = BMP thenadotable FieldByName( isbmp ) Value := //BMP型图像数据else if (uppercase(ext) = JPG ) OR ( uppercase(ext) = JPEG ) Thenadotable FieldByName( isbmp ) Value := ; //JPEG型图像数据adotable Post ;finallystrm Free ; //笔者发现如strm采用tblobstream类程序运行到该语句会出现问题end;end;end;

　　图像数据的读取及显示

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

procedure TForm adoTable AfterScroll(DataSet: TDataSet); //显示图像varstrm:tadoblobstream;jpegimage:tjpegimage;bitmap:tbitmap;beginstrm := tadoblobstream Create(tblobfield(adotable fieldbyname( MYIMAGE )) bmread);try //try strm position := ;image Picture Graphic := nil; //清除图像// BMP JPEG两种图像数据必需分别处理if adotable fieldbyname( isbmp ) asstring = then //BMP型图像数据begin //begin bitmap := tbitmap Create ;try //try bitmap LoadFromStream(strm);image Picture Graphic := bitmap;finallybitmap Free;end; //end try end //end begin else if adotable fieldbyname( isbmp ) asstring = then //JPEG型图像数据begin //begin jpegimage := tjpegimage Create ;try //try jpegimage LoadFromStream(strm);image Picture Graphic := jpegimage;finallyjpegimage Free ;end; //end try end; //end begin finallystrm Free ;end; //end try end;

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

image Picture SaveToFile(FileName );

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

　　以上程序代码在DELPHI ＋SQL（或ACCESS）数据库下运行通过

　　四另一解决方案

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

　　图像数据的选择及保存

procedure Tform selectimageClick(Sender: TObject); //选择图像beginif openpicturedialog Execute thenimage Picture LoadFromFile(openpicturedialog FileName );end;procedure Tform savetodbClick(Sender: TObject);　//保存图像到数据库varext:string;beginif image picture Graphic <> nil then //避免image 中无图像保存出错beginadotable Edit ;adotable FieldByName( myimage ) Assign(image Picture Graphic);//以下记录保存到数据库的图像格式ext:=extractfileext(openpicturedialog FileName ); //取出文件扩展名if uppercase(ext) = BMP THENadotable FieldByName( isbmp ) VALUE := //BMP型图像数据ELSE IF (UPPERCASE(EXT) = JPEG ) OR (UPPERCASE(EXT) = JPG ) THENadotable FieldByName( isbmp ) VALUE := ; //JPEG型图像数据ADOTABLE Post ;end;end;

　　图像数据的读取及显示

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

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

cha138/Article/program/Delphi/201311/24918