Delphi存取图像完整解决方案Delphi教程.docVIP

Delphi存取图像完好解决方案Delphi教程 Delphi存取图像完好解决方案Delphi教程 PAGE / NUMPAGESPAGE / NUMPAGES Delphi存取图像完好解决方案Delphi教程 Delphi  存取图像完好解决方案  Delphi  教程 关于波及图像数据的数据库应用程序，图像数据的存取技术是一 个重点。因为缺乏技术文档及 DEMO例程演示，为此笔者在网上搜寻了有关资 料，有的根本不可以用，有的过于繁琐，有的应用范围太窄（如只好合用于 BMP 图像），有的写得过于简单理解起来十分困难。。。并且在网上这也是大家比 较关怀的一个问题。笔者对这个问题进行了频频实作和探究，下面笔者将经过 一个完好的简单例子来说明怎样保留和显示 SQL数据库中的图像数据（同时包 括 BMP和 JPEG两种格式）。 一、 创立演示数据库 在 SQL SERVER中新建一演示数据库： Demo，并创立一数据表 Picture1 ，构造以下：字 段名 Dtata TypeIdentityId Int YesIsbmpTinyint MyimageImage 字 段 Isbmp 是用来记录在 Myimage中存入的图像的种类（ 0 表 JPEG，1 表 BMP，其 它值表无图像）， Isbmp 数据种类采用整型 Tinyint 而末采用逻辑 bit 型主要 是考虑到以下方法仍合用于 ACCESS数据库。在 SQL中翻开表 Picture1 ，添入 几条记录， Myimage图像字段值暂不论，字段 Isbmp 值随意输入 0和 1以外的 其余数。 二、 窗口设计 在 DELPHI中新建一个工程，在 FORM１上搁置 如表所示控件（考虑到 TDBImage型控件不可以正确显示 JPEG型图像，因此采用 Timage 型控件显示全部种类图像）。组件类型组件属性名属性值 用途说明 TimagecaptionImage1 显示图像 nameImage1StretchTrue Tbuttoncaption 选择 图像选择图像  nameselectimageTbuttoncaption  保留图像保留图像到数据库 namesavetodb TADOConnectioncaption Adoconnection1 创立与数据库 demo的 连结  nameAdoconnection1 Connectionstring  见备注 ConnectedTrueLoginpromptFalse TadotableCaptionAdotable1  成立与表 Picture1  的连结  nameAdotable1 Connection Adoconnection1TablenamePicture1Active TrueTdatasourceNameDatasource1 成立数据源 DatasetAdotable1TopenpicturedialogCaptionOpenpicturedialog1 选择图像文件 NameOpenpicturedialog1TdbgridCaption Dbgrid1 显示记录 NameDbgrid1DatasourceDatasource1 备注： adoconnection1.connectstring := Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=demo;Data Source=MysqlserverMysqlserver 为 SQL服务器的名称请据实质状况改正。