DELPHI存取JPG图片文件至SQL Server服务器中

最新推荐文章于 2021-03-18 09:10:55 发布

yuanyubest

最新推荐文章于 2021-03-18 09:10:55 发布

阅读量2.6k

点赞数

文章标签： sql server delphi 服务器 buffer button 数据库

本文链接：https://blog.csdn.net/yuanyubest/article/details/1824843

版权

这篇博客介绍了如何使用DELPHI的ADO控件将JPEG图片存储到SQL Server数据库中，并展示了关键代码实现。通过TADOBlobStream和TJpegImage组件，实现了读取和写入JPEG图片到数据库的流程。同时，文中还提供了如何修改代码以适应BMP文件存储的提示。

摘要由CSDN通过智能技术生成

做一个小型的管理系统时，需要用到ADO控件存取SQL Server数据库图片，查看资料发现基本都是针对BMP文件进行操作(巨增数据库大小)，但发现了★eagletian★高手翻译的ADO英文技术文档，里面涉及到了数据库存取JPEG文件的关键技术，测试通过，运行良好，现于源码公开如下：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Grids, DBGrids, Db, ADODB,jpeg, StdCtrls,dbtables;
　{一定要USES JPEG单元,使能存储JPG文件格式}
type
TForm1 = class(TForm)
　 DataSource1: TDataSource;
　 ADOQuery1: TADOQuery;
　 DBGrid1: TDBGrid;
　 DBNavigator1: TDBNavigator;
　 Image1: TImage;
　 savebutton: TButton;
　 showbutton: TButton;
　 OpenDialog1: TOpenDialog;
　 ADOQuery1id: TIntegerField;
　 ADOQuery1pic: TBlobField;
　 procedure savebuttonClick(Sender: TObject);
　 procedure showbuttonClick(Sender: TObject);
　 procedure DBNavigator1Click(Sender: TObject; Button: TNaviga