点点滴滴的天空

-------------不是技术的技术,不是资料的资料,只是一点收集而已

使用DELPHI对ACCESS和SQL数据库存取图片

一个在数据库存取图片的演示代码,包含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;
 
阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭