ACCESS/SQL 数据库存取图片演示

分　　类：数据库
语　　种：简体中文
编辑器：Delphi7
平　　台：Win9x,Win2k/NT,WinXP
作品源代码： 本地下载
软件或演示： -
代码大小： 55.0K
软件大小： -

一个在数据库存取图片的演示代码，包含Access数据库和SQL数据库两种方式。

1、 小高端用户ADO SQL2000
2、 在小高端用户使用的数据库中SQL是最为普遍的。

首先先要用上流(Stream)程序如下：

procedure TForm1.DBGrid1DblClick(Sender: TObject); //双击DBGrid栏显示图片
Var
Ms:TStringStream;
Jpg:TJpegImage;
begin
Ms:=TstringStream.Create(');
Jpg:=TJpegImage.Create;
TBlobField(ADOTable1.FieldByName('zp')).SaveToStream(Ms);
Jpg.LoadFromStream(Ms);
Ms.Position :=0;
Jpg.LoadFromStream(Ms);
// Form2.Image1.Picture.Bitmap.LoadFromStream(Ms); //调用bmp图像的方法
Form2.Image1.Picture.Assign(Jpg);
Form2.Show;
form2.Position :=poScreenCenter;
end;

{如果JpegImage是从一个文件中load的话（loadfromstream），图像就可以正常显示而从数据库字段中读到流里，JpegImage再从这个流里load，就不行，会出现错误JPEG error #41。}

procedure TForm1.Button2Click(Sender: TObject); //保存
Var
Msmem:TmemoryStream;
Jpg:TJpegImage;
begin
msmem:=TmemoryStream.Create;
Jpg:=TjpegImage.Create;
Jpg.Assign(form2.Image1.Picture.Graphic);
Jpg.SaveToStream(Msmem) ;
// form2.Image1.Picture.Bitmap.SaveToStream(Msmem); // 保存bmp图像的方法
Msmem.Position :=0;
ADOTable1.Edit ;
TBlobField(ADOTable1.FieldByName('zp')).LoadFromStream(Msmem);
ADOTable1.Post;
Msmem.Free ;
Jpg.Free;
end;

上一篇： Delphi Package 演示
下一篇： desktop 一个全API写的东东

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!