起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 339|回复: 14

【结帖】图片的显示问题!**

[复制链接]
发表于 2008-4-28 11:25:47 | 显示全部楼层 |阅读模式
我以二进制流的形式把图片存入数据库当中!我想把他显示出来,但是却没有图像?下面是我的显示代码?
不知道有什么问题?!

var
  lStream , lFileStream: TStream;
  lFile: String;
  i:integer;
begin
  DataSetBroker1.DataSet.edit;
  lStream :=TMemoryStream.Create;
  lStream := DataSetBroker1.dataset.CreateBlobStream(DataSetBroker1.dataset.FieldByName('TP'),TBlobStreamMode.bmReadWrite);
  lFileStream := TFileStream.Create(lFile, Classes.fmCreate);
  lFileStream.CopyFrom(lStream, lStream.Size);
  lFileStream.Free;
  Image1.Picture.Bitmap.LoadFromFile( lStream );
end;
回复

使用道具 举报

发表于 2008-4-28 11:29:41 | 显示全部楼层
不用这么麻烦吧。直接把表现类型设置成图片
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-28 11:32:15 | 显示全部楼层
我把他设置成了图片,仍然显示不出来!!
回复 支持 反对

使用道具 举报

发表于 2008-4-28 11:35:29 | 显示全部楼层
您存的图片是什么格式的?是否确认存入了图片?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-28 11:37:22 | 显示全部楼层
jpg 的。图片已经保存了!!
回复 支持 反对

使用道具 举报

发表于 2008-4-28 11:40:01 | 显示全部楼层
您是怎么确认保存了图片?
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-28 11:46:15 | 显示全部楼层
var
  lStream : TFileStream;
  i:integer;
begin
   lStream := TFileStream.Create(lsFileName,SysUtils.fmOpenRead);
   DataSetBroker1.DataSet.Edit;
   TBlobField(DataSetBroker1.DataSet.FieldByName('tp')).LoadFromStream(lStream);
   DataSetBroker1.DataSet.ApplyUpdates;
   i:=forms.application.messagebox('1-1','T',0)
end;

这是我上传图片的代码!出现 1-1
回复 支持 反对

使用道具 举报

发表于 2008-4-28 11:58:49 | 显示全部楼层
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-4-28 12:34:53 | 显示全部楼层
我参考过这个帖子!
我想把它放在image上显示!!
回复 支持 反对

使用道具 举报

发表于 2008-4-28 13:30:38 | 显示全部楼层
No.13  
一个最简单的办法,读图片用下面的代码:
var
  lStream , lFileStream: TStream;
  lFile: String;
begin
  DataSetBZSJJ1.Edit;
  lStream := DataSetBZSJJ1.CreateBlobStream(DataSetBZSJJ1.FieldByName('TP'),TBlobStreamMode.bmReadWrite);
  lFile := jsSysUtils.GetSystemTempPath+'123.png';
  lFileStream := TFileStream.Create(lFile, Classes.fmCreate);
  lFileStream.CopyFrom(lStream, lStream.Size);
  lFileStream.Free;
  Image1.Picture.LoadFromFile(lFile);
  SysUtils.DeleteFile(lFile);
end;
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-11 22:09 , Processed in 0.039786 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表