知识大全 在Delphi中简单的存取JPEG文件到SQLServer

Posted 文件

篇首语：当筵意气临九霄，星离雨散不终朝。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 在Delphi中简单的存取JPEG文件到SQLServer相关的知识，希望对你有一定的参考价值。

在Delphi中简单的存取JPEG文件到SQLServer  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

在Delphi +Win +SqlServer 中测试通过 运行良好 现将思路 源码公开如下 　　　　解决思路 　　 关键在于将打开的JPEG文件动态转换为Tbitmap对象并显示在Timage对象中 　　　　 将显示的图片提交到数据库中 　　　　本例中在SQLSERVER 中建立了一个试例表 exam(xm char( ) photo image) 　　　　程序源代码 　　　　unit SavePic;　　　　interface　　　　uses　　　　　Windows Messages SysUtils Variants Classes Graphics Controls Forms 　　　　　Dialogs ExtDlgs ExtCtrls DBCtrls Grids DBGrids DB ADODB Buttons 　　　　　StdCtrls Jpeg;　　　　type　　　　　TForm = class(TForm)　　　　　　SpeedButton : TSpeedButton;　　　　　　ADOConnection : TADOConnection;　　　　　　Table : TADOTable;　　　　　　DataSource : TDataSource;　　　　　　DBGrid : TDBGrid;　　　　　　DBImage : TDBImage;　　　　　　Image : TImage;　　　　　　SpeedButton : TSpeedButton;　　　　　　OpenPictureDialog : TOpenPictureDialog;　　　　　　Label : TLabel;　　　　　　Label : TLabel;　　　　　　Edit : TEdit;　　　　　　SpeedButton : TSpeedButton;　　　　　　procedure SpeedButton Click(Sender: TObject);　　　　　　procedure SpeedButton Click(Sender: TObject);　　　　　　procedure SpeedButton Click(Sender: TObject);　　　　　private　　　　　　 Private declarations 　　　　　public　　　　　　 Public declarations 　　　　　end;　　　　var　　　　　Form : TForm ;　　　　implementation　　　　$R * dfm　　　　procedure TForm SpeedButton Click(Sender: TObject);　　　　var　　　　　bmp :TBitmap;　　　　　jpg :TJpegImage;　　　　begin　　　　　OpenPictureDialog DefaultExt:=GraphicExtension(TJpegimage);　　　　　if OpenPictureDialog Execute then　　　　　　 begin　　　　　　 bmp :=TBitmap Create;　　　　　　 jpg :=TJpegImage Create;　　　　　　 try　　　　　　 jpg LoadFromFile(OpenPictureDialog FileName);　　　　　　 bmp Assign(jpg );　　　　　　 Image Picture Bitmap Assign(bmp );　　　　　　 finally　　　　　　　 jpg Free;　　　　　　　 bmp Free;　　　　　　 end;　　　　　　end;　　　　end;　　　　procedure TForm SpeedButton Click(Sender: TObject);　　　　begin　　　　　table Open;　　　　　table insert;　　　　　table fieldbyname( xm ) asstring:=Edit Text;　　　　　table FieldByName( photo ) Assign(Image Picture);　　　　　table post;　　　　　table Refresh;　　　　end;　　　　end cha138/Article/program/Delphi/201311/8391

相关参考

知识大全 直接存取文件的方法

　　为了方便编程Delphi在很多需要与文件打交道的组件类中都定义了直接文件存取方法使用这些方法可以非常简单地将组件中处理的数据保存到文件中或从文件中读取所需的数据到组件中LoadFromFile和S

知识大全 Delphi实现在数据库中存取图像

Delphi实现在数据库中存取图像  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　本实例演示如何

知识大全 在DELPHI程序中使用ADO对象存取ODBC数据库

在DELPHI程序中使用ADO对象存取ODBC数据库  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

知识大全 利用Delphi的TJPEGImage控件把BMP转化成JPEG

利用Delphi的TJPEGImage控件把BMP转化成JPEG  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起

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

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

知识大全 Delphi中对Oracle存取RTF文档

Delphi中对Oracle存取RTF文档  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　关系数

知识大全 放置任意的文件到Delphi的EXE文件里面

放置任意的文件到Delphi的EXE文件里面  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！　　通常

知识大全 请列举图像类型、声音类型、视频类型的文件格式各3种。并简单描述其特征。

请列举图像类型、声音类型、视频类型的文件格式各3种。并简单描述其特征。视频aviwmv流媒体asfrmramrmvbTxt,Text,Scp,Log,Wtx之类的、声音wav、图像JPG/JPEG、视

知识大全 用修改文件时间的方法来加密文件

　[摘要]　　本文介绍了在Delphi中利用系统函数和WindowsAPI函数配合Delphi中的DataTimePicker组件来获取和修改文件的时间信息的方法以达到软件信息的简单加密　　谈到文件加

知识大全 在Delphi中使用CreateOleObject方法对WORD文件进行操作

在Delphi中使用CreateOleObject方法对WORD文件进行操作  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让