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

原创 2007年10月15日 00:07:00
一个在数据库存取图片的演示代码,包含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;
 

c#数据库存取图片的三种方式

第一种方式   文件夹与数据库配合   近来做了不少关于这块的功能 ,随着网络的飞速发展,网络存取图片已不再是神话,而成为了一种时尚,如果是你 是用Asp.net开发的话,可能更多的人会考虑使用...
  • liucherish
  • liucherish
  • 2016年10月17日 12:18
  • 3833

DELPHI存取JPEG、BMP图像到数据库完整解决方案

程序代码如下所示: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graph...
  • my98800
  • my98800
  • 2016年08月15日 16:19
  • 2486

VB.NET操作ACCESS数据库读取存入图片

一、准备工作     在ACCESS数据库中,将字段声明为 OLE链接 类型 二、将图片框中图片转化成二进制数组的方法         Dim MyStream As New System.IO....
  • aocshallo
  • aocshallo
  • 2014年02月28日 00:53
  • 2535

delphi 中操作 图片保存读取access数据库

Sql数据库可以存放图片这是以前听过,但是一直都没相信的事情,这阵子由于工作需求,遍开始尝试存取,在网上找了很多方法,试了都是可以存,但是却始终取不出来,研究了两天,最终实现了,现将代码共享出来,大家...
  • QDseashore
  • QDseashore
  • 2012年07月24日 22:07
  • 1072

Delphi+Access 使用SQL语句应注意的地方及几点技巧

 以下SQL语句在ACCESS XP的查询中测试通过 建表: Create Table Tab1 ( ID Counter, Name string, Age integer, [D...
  • husf
  • husf
  • 2015年04月06日 09:41
  • 251

使用midas访问远程access数据库_delphi教程

使用MIDAS访问远程Access数据库 Allen Tao(http://blog.csdn.net/allentao/) 2005-5-3 本文源...
  • delphi308
  • delphi308
  • 2014年03月17日 21:37
  • 879

delphi实现存储图片到SQL数据库

  • 2017年06月22日 12:04
  • 182KB
  • 下载

mfc+access数据库,加入存取图片

  • 2016年05月25日 12:10
  • 2.61MB
  • 下载

VBA编程在ACCESS数据库中存取图片文件-代码不可看.mdb

  • 2011年09月17日 05:28
  • 2.06MB
  • 下载

delphi 的Treeview与数据库的联合使用实例access

  • 2008年07月25日 16:33
  • 293KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:使用DELPHI对ACCESS和SQL数据库存取图片
举报原因:
原因补充:

(最多只允许输入30个字)