【结】[请求]帮忙解决二进制流的问题? 谢谢！

dahaigegege

try
               lStream:= TMemoryStream.Create;
               TBlobField(DataSetBroker1.DataSet.FieldByName('ZJLQZ1')).SaveToStream(lStream);  // ZJLQZ1 是数据库中的字段,数据类型为二进制流,表现类型为图像，存放到数据库的图片为png格式的
              // Dialogs.ShowMessage('流的大小: ' + SysUtils.IntToStr(lStream.Size)); // 1638

               lStream.Position := 0;

                   // OPENTENDER_BIZINFO.TFJ_1_QBYBGWD(DocViewOPENTENDER_BIZINFO_QBYBGWD.Doc).OleContainer1.LoadFromStream(lStream);
              //  OPENTENDER_BIZINFO.TFJ_1_QBYBGWD(DocViewOPENTENDER_BIZINFO_QBYBGWD.Doc).Image1.Picture.Bitmap.LoadFromStream(lStream);

          OPENTENDER_BIZINFO.TFJ_1_QBYBGWD(DocViewOPENTENDER_BIZINFO_QBYBGWD.Doc).BizImage1.Picture.Bitmap.LoadFromStream(lStream); // BizImage1是表格文档中的一个控件

             finally
                  lStream.Free;
             end;

jiahaiming

BizImage1.Picture.Bitmap.LoadFromStream(lStream);

lstream中存储的不是bmp格式的文件。

dahaigegege

已经搞定了，谢谢。我把数据库中存放的图片格式换成了jpg,代码如下: 一同分享吧。
var  jpg : TjpegImage;
try
               lStream:= TMemoryStream.Create;
               TBlobField(DataSetBroker1.DataSet.FieldByName('ZJLQZ1')).SaveToStream(lStream);  // ZJLQZ1 是数据库中的字段,数据类型为二进制流,表现类型为图像
               lStream.Position := 0;

             // Dialogs.ShowMessage('流的大小: ' + SysUtils.IntToStr(lStream.Size)); // 1638
          // OPENTENDER_BIZINFO.TFJ_1_QBYBGWD(DocViewOPENTENDER_BIZINFO_QBYBGWD.Doc).Image1.Picture.Bitmap.LoadFromStram(lStream);// 图片一不定是位图格式

             jpg := TjpegImage.Create;
             jpg.LoadFromStream(lStream);

             OPENTENDER_BIZINFO.TFJ_1_QBYBGWD(DocViewOPENTENDER_BIZINFO_QBYBGWD.Doc).Image1.Picture.Assign(jpg);

             finally
                  jpg.Free;
                  lStream.Free;

             end;