QRDBImageにJpegデータを表示するには？？？

解決

サンプー 2005-06-27 10:37:34 No: 15942

DL6 Pro, XP Proにてデータベースを作成しています。
データベースデスクトップを使い、paradox形式の表を作成し、グラフィック項目（'Photo'）に拡張子.Jpeg,の画像データを保存しています。
クイックレポートを使って印刷をしようとし、以下のコードを作成し印刷を試みましたが、うまく動作しません。どなたか、ご教示ください。
procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
{var
    BlobStream : TBlobStream ;
    JPG : TJpegImage ;
    BMP : TBitmap ;

begin //Jpeg形式データの印刷
Table1.open;
BlobStream :=TBlobstream.Create(TBlobFieldTable1.FieldByName'Photo')),bmRead);
  Jpg := TJPEGImage.Create ;
  BMP := TBitmap.Create;
  try
  JPG.LoadFromStream(BlobStream);
  BMP.Assign(JPG);
  QRDBImage1.Picture.Assign(BMP);
  finally
  BMP.Free;
  JPG.Free;
  BlobStream.Free;
  Table1.Close;
  end;

end;

ん？ 2005-06-27 17:11:38 No: 15943

DBと接続した使い方してないんだから、TQRImage 使えば？

ん？ 2005-06-28 23:06:57 No: 15944

ん？さん有難うございました。
何とか、表示できるようになりました。
また、よろしくお願いします。