掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
QRDBImageにJpegデータを表示するには？？？ (ID：15942)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.