请问一下怎么把图片(jpg)的存放到数据库,然后再把数据库中的图片读出来放到一个Image中呢?请问谁有比较完整的回答呢,虽然我给的分不多,那是因为(我只有这么多的分),要不我以身相许好了,,,
各位大侠们,帮帮忙吧!!!!!
各位大侠们,帮帮忙吧!!!!!
解决方案 »
- library path 丢失问题
- 關於網域的三個典型問題
- 请教:字符 ' 如何在delphi 字符串中表示?
- 几个exe调用同一个dll,dll中使用了几个*.bmp文件, 我想把dll和图片放在同一文件夹,而几个exe放在不同文件夹,可否?
- socket传递字符串
- 请教一个很菜的问题:why 我的DBCHART和decision cube组件不能用?
- 这样的case语句如何写
- 各位网友救救急,告诉我office 2000安装时的CD KEY
- 在Listview中显示某文件夹下的所有文件,如何使listitem的图标为该文件类型的系统注册图标,500分
- 怎么使ULTRA EDIT编辑PAS能有语法高亮度显示啊?
- 你们的分数是从哪里来的?
- Memo中根据特定字符定位!在线等.....
//选择位图,写入数据库procedure Tdriverinfform.SpeedButton1Click(Sender: TObject);
var
bmp:tbitmap;
begin
if driverinfform.OpenpictureDialog1.Execute then
begin
bmp:=tbitmap.Create;
try
try
bmp.LoadFromFile(driverinfform.OpenpictureDialog1.FileName);
driverinfform.Table1.Edit;
driverinfform.Table1.FieldByName('照片').Assign(bmp);
driverinfform.Table1.Post;
except
on einvalidgraphic do application.MessageBox('错误的位图文件[.bmp]!','通知');
end;
finally
bmp.Free;
end;
end;
end;
//从数据库读出并保存为位图文件
procedure Tdriverinfform.SpeedButton2Click(Sender: TObject);
var
bmp:tbitmap;
begin
if driverinfform.saveDialog1.Execute then
begin
bmp:=tbitmap.Create;
try
bmp.Assign(driverinfform.Table1.FieldByName('照片'));
bmp.savetoFile(driverinfform.saveDialog1.FileName);
finally
bmp.Free;
end;
end;
end;
如何实现在MS Access数据库中图像的存储和显示
一、 原理介绍——流式数据的类型及其应用
在Dephi中提供了TStream来支持对流式数据的操作。TStream是万流之源,但由于它是一个抽象类,故不能被直接使用;而要使用其相应的子类,如:TFileStream 、TStringStream、TMemoryStream、TBlobStream、TWinSocketStream和TOleStream。TStream提供了统一、简洁的方法来进行数据的读写。
1.)SaveToStream(Stream: TStream ); 作用:将类中的数据写到Stream的当前位置中
2.)LoadFromStream(Stream: TStream); 作用:从当前位置读入Stream里的数据
实际使用时我们基本上只要使用上面两个函数就可以了。
二、所遇到的问题及相应的解决方法
为了节省图像的存储空间和使用更加方便,决定采用JPEG这种图像格式。
(一)所遇到的问题
第一、在Delphi 5中进行画图所用到的组件是TImage,所生成的图像的格式为BMP格式,而为了节省图像的存储空间,图像在数据库里存储的格式须为JPEG格式,这样就产生了图像格式转化的需求;而TImage本身并不直接提供这两种图像格式之间的转化。
第二、怎样将存储在Microsoft Access数据库中的图像取出并且显示出来:在Delphi 5中,能提供这种功能的组件是TDBImage,但该组件却存在着一个很大的缺陷:它所能显示的图像类型只能是一些图标文件,元文件和BMP文件,而不能支持JPEG格式的图像在该组件中的显示;但根据实际需要,在Microsoft Access数据库中所存储的图像数据却是以JPEG格式保存的。
(二)相应的解决方法
为了解决上述两个问题,可以采用目前数据库中一种名为大二分对象(BLOB——Binary Large Object),它是用来处理某些特殊格式的数据的。BLOB在数据库的表中实际上是以二进制数据的形式存放的。
为了处理BLOB字段,可以借鉴一些可视的桌面数据库的方法。在这里,我们选择了通过内存流的方式来完成;使用内存流,可减少磁盘操作,大大提高运行效率。
具体的过程和相关的程序代码如下:
1、如何实现在Microsoft Access数据库中的图像存储:
这里是利用TStream的子类TMemoryStream向Microsoft Access数据库中存储图像的。下面的这段代码是在按了“保存”按钮之后所触发的事件处理程序:
procedure TForm1.Button1Click(Sender: TObject);
var
MyJPEG : TJPEGImage;
MS: TMemoryStream;
begin
MyJPEG := TJPEGImage.Create;
try
with MyJPEG do
begin
Assign(Image.Picture.Graphic);
MS:=TMemoryStream.create;
SaveToStream(MS);
MS.Position:=0;
Table1.Edit;
TBlobField(Table1.FieldbyName('Image')).LoadFromStream(MS);
Table1.Post;
messagebox(getactivewindow(),'图像保存完毕!','保存',mb_ok);
end;
finally
MyJPEG.Free;
end;
end;
在这段代码里TStream的子类TMemoryStream利用内存流起到了将BMP格式转化为JPEG格式的中间桥梁的作用。
2、如何将图像从Microsoft Access数据库中取出并显示出来:
下面的这段代码是在按了“查看图像”按钮之后所触发的事件处理程序:
procedure TForm1.Button1Click(Sender: TObject);
var tempstream:TStringStream;
tempjpeg:TJPEGImage;
begin
try
tempstream:=TStringStream.Create(' ');
TBlobField(Query1.FieldByName('Image')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
DBImage1.Picture.Bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end;
这段代码的主要作用是:首先将查询结果中的JPEG图像格式数据保存到TStringStream中去,然后设置数据指针在TStringStream中的位置为0;接着从TStringStream中读入相关数据,并把它们赋给TDBImage.Picture.Bitmap,这样一来就实现了将数据库中所存储的JPEG格式的数据转化为BMP格式,并在TDBImage中将图像显示出来。最后将TStringStream和TJPEGImage这两个对象释放掉。特别要注意的是不能在设计阶段设置TDBImage的DataField属性,而只能通过写代码的形式在运行阶段把利用流式数据所转化过来的新格式的图像数据赋给TDBImage.Picture.Bitmap。
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;