HELP ME:把数据库中的图片读到Stream中,再赋给IMAGE控件时,怎么IMAGE控件中的图片全黑了。

liung 2002-05-07 06:36:11
把数据库中的图片读到Stream中,再赋给IMAGE控件,怎么IMAGE控件中的图片全黑了?源代码如下:
Clientdataset1.Active:=false;
Clientdataset1.CommandText :='SELECT * FROM Asx where bh=''0000001''';
Clientdataset1.Active:=true ;
str:=TStream.Create();
str:=c1.CreateBlobStream(Clientdataset1.fieldbyname('jxt'),bmRead);
image1.Picture.Bitmap.LoadFromStream(str);
str.Free;
...全文
47 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
dudu320 2002-05-08
  • 打赏
  • 举报
回复
数据流的posion要重新设置为0
str.posion:=0;
短歌如风 2002-05-08
  • 打赏
  • 举报
回复
既然用TQuery可以而用TClientDataset不行,你试着换一种方法:
在服务端编写一个方法,返回指定记录的Blob字段(假设为GetBlob):
function MyServer.GetBlob(Key:KeyType):OleVariant;//KeyType改为正确的类型.
var
BlobField:TBlobField;
BlobStream:TStream;
PtrData:PByte;
begin
...
//取得正确的BlobField
BlobStream := TBlobStream.Create(BlobStream,bmRead);
Result := VarArrayCreate([0,BlobStream.Size-1],varByte);
PtrData := VarArrayLock(Result);
BlobStream.Read(PtrData^,BlobStream.Size);
BlobStream.Free;
VarArrayUnlock(Result);
0Aend;
在客户端读出来:
var
PtrData:PByte;
VarData:OleVariant;
MemStream:TStream;
...
VarData := RServer.AppServer.GetBlob(MyKeyData);
PtrData := VarArrayLock(VarData);
MemStream := TMemoryStream.Create;
MemStream.Write(PtrData^,VarArrayHighBound(VarData,1)+1);
VarArrayUnlock(VarData);
0A image1.Picture.Bitmap.LoadFromStream(MemStream);
MemStream.Free;

____ ____
\ p \ / g /
\ l \_/ n /
\ a o /
\ i s /
\ n /
\_/
goldtogo 2002-05-07
  • 打赏
  • 举报
回复
up
asdie 2002-05-07
  • 打赏
  • 举报
回复
up
liung 2002-05-07
  • 打赏
  • 举报
回复
TBlobStream,TMemorySstream,TStream都试过了,读出来的也都是黑的。
everydayniceday 2002-05-07
  • 打赏
  • 举报
回复
至少证明了一件事:数据库中的图片数据格式是有效的。
你可以试一试用TMemoryStream代替Tstream看一看。
liung 2002-05-07
  • 打赏
  • 举报
回复
是BMP格式的图片存在SQL SERVER数据库的BLOBField字段。因为我开发的是分布式多层应用系统,所以必须得用TClientDastSet控件,但用TClientDastSet控件从应用程序服务器中取出的图片是全是黑的。其实用用QUERY或TABLE取出的图片是正常的,只不过我不能用它们。
短歌如风 2002-05-07
  • 打赏
  • 举报
回复
你在数据库中存的是BMP格式吗?

____ ____
\ p \ / g /
\ l \_/ n /
\ a o /
\ i s /
\ n /
\_/

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧