ADOQuery怎样SaveToStream解决方案思路思路

来源：蜘蛛抓取(WebSpider) 时间：2016-09-08 04:33 标签： 解决思路 英文
Delphi將Image存入读取MySQL数据库
点击：74次
存入var&astream&:&TbeginAStream&:=&TMemoryStream.C&&try&&&&Image1.Picture.Graphic.SaveToStream(AStream);&&&&AStream.Position&:=&0;&&&&if&adoquery1.Active&then&&&&begin&&&&&&adoquery1.ETBlobField(adoquery1.FieldByName('File')).LoadFromStream(AStream);&&&&&&adoquery1.P&&&&&&finally&&&&AStream.F&&&取出varMs:TStringSjpg1:Tbegin&&&Ms&:=&TStringStream.Create('');&&&jpg1&:=&Tjpegimage.&&try&&&&if&adoquery1.Active&then&&&&begin&&&&&&TBlobField(adoquery1.FieldByName('File')).SaveToStream(Ms);&&&&&&Ms.Position&:=&0;&&&&&&jpg1.LoadFromStream(ms);&&&&&&image1.Picture.Bitmap.Assign(jpg1);&&&&&&&&&&&&finally&&&&ms.F&&&&jpg1.F&&注意，如果出現Got&a&packet&bigger&than&‘max_allowed_packet’&bytes在My.ini加上max_allowed_packet&=&10M
Copyright (C) &
网页模板、字体、软件、资料、资源部分是从国外大小网站收集而来，为朋友们在工作或学习时提高效率、节省时间.
站内所有资源仅供学习与参考，请勿用于商业用途，否则产生的一切后果将由您自己承担！本帖子已过去太久远了，不再提供回复功能。加入时间：　月光软件站
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& DELPHI存取JPEG文件到SQL Server数据库(续文) 　　　　　　　　　　　　　　　高红岩(ghyghost) 　　在"DELPHI存取JPEG文件到SQL Server数据库"发表之后，有许多网友来电表示支持和相关的技术咨询，在此首先对那些关心本文的朋友们表示衷心的感谢。　　由于网友的需要做一个档案管理系统，存取jpeg文件到sql 2000数据库中，但在dbimage中及qrdbimage中均不能正常显示jpeg的文件，此为borland的限制，虽然使用第三方控件能达到要求，但我们还是来原始的实现一下这方面的技术，其实原理十分简单，既然我们在"DELPHI存取JPEG文件到SQL Server数据库"能存储jpeg文件，也能在image中显示，但一接触db类的图象显示控件就行不通了，我们可以在jpeg文件存入数据库之前转换成bmp文件再存入数据库即可，程序运行环境delphi5+ado+sql 2000桌面版+win98se2最终版，数据库中存放图片字段的类型为image，程序源代码如下：
unit Unit1;
usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,Db, DBCtrls, Grids, DBGrids, ADODB, ExtDlgs,jpeg, ExtCtrls, StdC
typeTForm1 = class(TForm)ADOConnection1: TADOCADOQuery1: TADOQDataSource1: TDataSDBGrid1: TDBGDBImage1: TDBIADOQuery1ID: TStringFADOQuery1FIELD: TStringFADOQuery1STYLE: TStringFADOQuery1SYSTEM: TStringFADOQuery1DATE: TDateTimeFADOQuery1PERSON1: TStringFADOQuery1PERSON2: TStringFADOQuery1PERSON3: TStringFADOQuery1PHOTO: TBlobFADOQuery1DESCRIPTION: TStringFOpenPictureDialog1: TOpenPictureDImage1: TIButton1: TBMemo1: TMprocedure DBImage1Click(Sender: TObject);procedure Button1Click(Sender: TObject);procedure FormShow(Sender: TObject);private{ Private declarations }public{ Public declarations }
varForm1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.DBImage1Click(Sender: TObject);varpicstream:bmppic:jpgpic:bmpstream:TMemorySbeginif form1.OpenPictureDialog1.Execute thenbeginif extractfileext(form1.openpicturedialog1.filename)='.bmp' thenbeginadoquery1.picstream:=tadoblobstream.Create(tblobfield(ADOQuery1PHOTO),bmWrite);//注：上句代码中的ADOQuery1PHOTO是adoquery1中的固定字段photo的固定字段的name//用户需要手工添加固定字段，也可用fields[i]来进行选择，这点在//"DELPHI存取JPEG文件到SQL Server数据库"这篇文章中没有注释，至使许多朋友没有//编译成功。picstream.LoadFromFile(openpicturedialog1.filename);picstream.Position:=0;adoquery1.tblobfield(ADOQuery1PHOTO).loadfromstream(picstream);adoquery1.adoquery1.picstream.endelsebeginjpgpic:=tjpegimage.Cbmppic:=tbitmap.Cbmpstream:=tmemorystream.Cjpgpic.LoadFromFile(openpicturedialog1.filename);bmppic.Assign(jpgpic);bmppic.SaveToStream(bmpstream);adoquery1.picstream:=tadoblobstream.Create(tblobfield(ADOQuery1PHOTO),bmWrite);//注：上句代码中的ADOQuery1PHOTO是adoquery1中的固定字段photo的固定字段的name//用户需要手工添加固定字段，也可用fields[i]来进行选择，这点在//"DELPHI存取JPEG文件到SQL Server数据库"这篇文章中没有注释，至使许多朋友没有 //编译成功。picstream.LoadFromStream(bmpstream);picstream.Position:=0;adoquery1.tblobfield(ADOQuery1PHOTO).loadfromstream(picstream);adoquery1.jpgpic.bmppic.bmpstream.adoquery1.picstream.
procedure TForm1.Button1Click(Sender: TObject);beginmemo1.Lines.Add(form1.openpicturedialog1.filter);
procedure TForm1.FormShow(Sender: TObject);beginform1.openpicturedialog1.filter:='All *.*.*.|*.*.*.)';
至此实现的功能代码如上所例，希望能对需要这方面资料的朋友有所帮助.我的联系方式为： 个人主页:(吉林delphi开发网) QQ:(技术交流，不聊天!)。
相关文章：相关软件：
┊┊┊┊┊┊┊┊┊┊┊
┊┊┊┊┊┊┊┊┊┊┊
┊┊┊┊┊┊┊┊┊┊┊

我要回帖

更多关于 解决思路 英文 的文章

 

随机推荐