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;