|
| 盒子资源分类 |
![]() |
|
|
|
|
| ACCESS/SQL 数据库存取图片演示 |
![]() |
| 关键字：数据库 存取 图片 流 BlobField ACCESS SQL |
| 来 自：原创 |
| 平 台：Win9x,Win2k/NT,WinXP |
下载所需：0 火柴 |
| 深浅度：初级 |
完成时间：2003/11/27 |
| 发布者：jacobran |
发布时间：2003/11/30 |
| 编辑器：DELPHI7 |
语 种：简体中文 |
| 分 类：数据库 |
下载浏览：3248/22834 |
|
|
|
|
|
一个在数据库存取图片的演示代码，包含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; |
![]() |
| 本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！ |
| 相关文章 |
|
![]() |
|
|
| 相关评论 |
![]() |
|
共有评论13条
当前显示最后6条评论
|
| tim001 |
2004/4/29 11:14:01 |
| 謝謝 |
| wwwwwwwwww |
2004/9/11 19:48:59 |
| 如何存取大量的文本数据，blob memo. |
| ldh_cw |
2004/12/5 20:36:18 |
| 不错！不错！这个站点真的很不错。我和大家一样，真是受益匪浅啊！希望大家也多多帮助我。谢谢。 |
| hygsxy |
2004/12/27 0:47:41 |
| 摆脱，以后像这种数据库的演示程序，就不要用第三方控件了。。 |
| 88851888 |
2005/2/15 20:53:58 |
| 写的不错，可我太菜。把数据库一起打包发了吧 |
| chengyihan |
2005/10/9 23:52:03 |
| 请问这个要怎么定位到数据库中 在指定某条记录上添加图片 |
| 我要发表评论 |
查看全部评论 |
|
|
|
盒子资源分类大树
