在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库-Delphi-编程开发
来源:互联网 发布:信鸽营销软件怎么样 编辑:程序博客网 时间:2024/04/29 08:38
<script type="text/javascript">google_ad_client = "pub-8800625213955058";/* 336x280, 创建于 07-11-21 */google_ad_slot = "0989131976";google_ad_width = 336;google_ad_height = 280;//</script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库
王大川(WDCZZH)
最近在CSDN上看到两篇关于《DELPHI中存取JPEG文件到SQLSERVER》中的文章之后,觉得其中讲述的方法虽然有可取之处,但颇费时,我这里有更简单的操作方法,而且安全可靠,不敢一人独享,愿发布出来与大家共享。在Delphi7.0 Win2000 SqlServer 2000中测试通过,运行良好,现将思路、源码公开如下:
解决思路:
1、 关键在于将打开的JPEG文件动态转换为Tbitmap对象并显示在Timage对象中;
2、 将显示的图片提交到数据库中。
本例中在SQLSERVER2000中建立了一个试例表:exam(xm char(10),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
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
ADOConnection1: TADOConnection;
Table1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBImage1: TDBImage;
Image1: TImage;
SpeedButton2: TSpeedButton;
OpenPictureDialog1: TOpenPictureDialog;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
SpeedButton3: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
bmp1:TBitmap;
jpg1:TJpegImage;
begin
OpenPictureDialog1.DefaultExt:=GraphicExtension(TJpegimage);
if OpenPictureDialog1.Execute then
begin
bmp1:=TBitmap.Create;
jpg1:=TJpegImage.Create;
try
jpg1.LoadFromFile(OpenPictureDialog1.FileName);
bmp1.Assign(jpg1);
Image1.Picture.Bitmap.Assign(bmp1);
finally
jpg1.Free;
bmp1.Free;
end;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
table1.Open;
table1.insert;
table1.fieldbyname('xm').asstring:=Edit1.Text;
table1.FieldByName('photo').Assign(Image1.Picture);
table1.post;
table1.Refresh;
end;
end.
- 在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库-Delphi-编程开发
- 在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库-Delphi-编程开发
- 在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库
- 在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库
- DELPHI存取JPEG文件到SQL Server数据库
- DELPHI存取JPEG文件到SQL Server数据库(续文)
- DELPHI存取JPEG文件到SQL Server数据库 [转]
- DELPHI存取JPEG文件到SQL Server数据库(续文)
- DELPHI存取JPEG文件到SQL Server数据库
- DELPHI存取JPEG文件到SQL Server数据库
- DELPHI存取JPEG文件到SQL Server数据库
- DELPHI存取JPEG、BMP图像到数据库完整解决方案
- [转]Delphi存取JPEG、BMP图像到数据库完整解决方案
- Delphi存取JPEG、BMP图像到数据库完整解决方案
- DELPHI存取JPEG、BMP图像到数据库完整解决方案
- 在DELPHI中SQL存取JPEG方法 (转)
- Delphi实现在数据库中存取图像
- Delphi 数据库中存取图片
- FLASH2004时间轴特效的应用-实例教学-Flash-网页制作
- InstallShield Express for delphi制作安装程序定制BDE引擎
- Delphi的BUGS之我见
- udp 500 D.O.S攻击
- 限制并方便用户输入
- 在DELPHI中更简单的存取JPEG文件到SQLSERVER数据库-Delphi-编程开发
- Delphi使用VB编写的ActiveX控件全攻略
- Delphi组件属性
- 例用AdoQuery分页
- 2003-11-03 Borland 发布 Delphi 8 for .NET
- TWebBrowser的基本应用
- Java 101-Java基础-Java-编程开发
- 总结: Java与C的不同点-Java基础-Java-编程开发
- Java常见问题集锦(来自Sun中国官方站)-Java基础-Java-编程开发