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

[liung]

把数据库中的图片读到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;

[短歌如风]

你在数据库中存的是BMP格式吗?

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

[liung]

是BMP格式的图片存在SQL SERVER数据库的BLOBField字段。因为我开发的是分布式多层应用系统，所以必须得用TClientDastSet控件，但用TClientDastSet控件从应用程序服务器中取出的图片是全是黑的。其实用用QUERY或TABLE取出的图片是正常的，只不过我不能用它们。

[everydayniceday]

至少证明了一件事：数据库中的图片数据格式是有效的。
你可以试一试用TMemoryStream代替Tstream看一看。

[liung]

TBlobStream，TMemorySstream,TStream都试过了，读出来的也都是黑的。

[asdie]

up

[goldtogo]

up

[短歌如风]

既然用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 /
\_/

[dudu320]

数据流的posion要重新设置为0
str.posion:=0;