[WR3.0]実行時のImage印刷について

[（有）クレスト長岡]

たびたびの質問でご迷惑をおかけします。
Delphi5で開発してます。
ＯＣＸのDIBDataの使い方を教えて下さい。
[W2.0]では以下のように使ってました。

GetDIBSizes(pBmp.Handle, InfoSize, ImageSize);
中略
GetDIB(pBmp.Handle, pBmp.Palette, pBMInfo^, (Pchar(pBMInfo) + infoSize)^);
wrSetDIB(hReport, @pObjectProp, pBMInfo);

どうかよろしくご指導下さい。

[中嶋＠ソフトウィング]

回答がおそくなってしまいすみませんでした。
明確な回答というわけではないのですが。
DibDataへはDib情報をOleVariantとして渡すような使用となっております。そこで

vaDibInfo:variant;

として定義していただだき

>GetDIBSizes(pBmp.Handle, InfoSize, ImageSize);
>中略
>GetDIB(pBmp.Handle, pBmp.Palette, pBMInfo^, (Pchar>>(pBMInfo) + infoSize)^);
>wrSetDIB(hReport, @pObjectProp, pBMInfo);

ここで確保されたpBMInfoを

vaDibInfo:=pBMInfo;

とされて
waxReport.Layer[2].WRObject’wriDenpyo’).DibData:=vaDibInfo;

のような形で実現できるかと思います。
また、可能であればなるべくImageSourceにて格納することをお勧めいたします。

[（有）クレスト長岡]

ご回答ありがとうございました。
このアプリでは
１）ユーザーが画像サイズを変更します。
２）画面の画像がディスクに存在する保証はありません。
従いまして、できればDIBDataを利用したかったのですが．．．
vaDibInfo:=pBMInfo;
がうまくいきませんでした。

当面は以下のコードで処理します。
１）画面の画像を特定ホルダに保存。
２）特定ホルダからImageSourceで読み込む。
３）特定ホルダの画像を削除。

時間ができたなら、ご回答を参考にしてDIBDataを何とかしたいと思います。
どうもありがとうございました。

[中嶋＠ソフトウィング]

お世話になっております。

御差支えなければ、WingReportV2.0でのDIBデータ取得から
セット部分までの実現可能な例を私まで添付して頂けますでしょうか？　そのソースを元にご回答差し上げたいとおもいます。

以上、宜しくお願いたします。

[中嶋＠ソフトウィング]

お世話になっております。
Delphi でのDIBDataを使ったサンプルを紹介させて頂きます。
Imageコンポーネントと適当な画像(BMP)を表示の上
サンプル1のソースファイルのPrintReport部分に組み込んでお試しください。

サンプル開始
——————————–

Var

　Bitmap1: TBitmap;
　Info, Image:array of byte;
　bDibAll:array of byte;

　InfoSize,ImageSize: DWord;

　vSetDib:variant;
　
begin

Bitmap1 := TBitmap.Create;
　　　　
　　//サンプルとして、Imageコンポーネントの画像を使用します。
Bitmap1.Assign (Form1.Image1.Picture.Bitmap);

//DIBサイズを取得する
GetDIBSizes(Bitmap1.Handle,InfoSize, ImageSize);

SetLength(Info, InfoSize); //ビットマップインフォサイズ確保
SetLength(Image, ImageSize); //イメージサイズ確保

//DIBデータを取得する
GetDIB(Bitmap1.Handle,Bitmap1.Palette,PBitmapInfo(Info)^, Pointer(Image)^);

//DIBサイズをInfo+Bitsをふくめたサイズ確保
setlength(bDibAll, InfoSize + ImageSize);

//DIBをまるごとコピーする
move(PBitmapInfo(Info)^, bDibAll[0],InfoSize);
move(Pointer(Image)^, bDibAll[InfoSize],ImageSize);

//取得したDIBデータをVariant型にする
vSetDib := bDibAll;
//イメージデータをセットする
waxReport.Layer[2].WRObject(‘wriDenpyo’).dibdata :=vSetDib;

——————————–
サンプルここまで

[（有）クレスト長岡]

サンプルありがとうございました。
結果報告が遅くなり申し訳有りません。
サンプル内容でとりあえずは成功です。

問題１
画像によっては印刷不良となります。
「EOleExceptionクラスの例外を生成しました」
LastErrorでのエラーコード：２２４２４。
デジカメ等の画像は正常ですが図形関連のビットマップが怪しいようです。

問題２
速度が極端に遅くなります。
６００×４８０の画像９枚を貼り付けたレポートをプレビューしてみました。
以下がプレビュー表示までのタイムです。
ImageSource：４秒
Dibdata：２６秒
これはDibdataそのものでなく
vSetDib := bDibAll;
での速度低下です。
今後もあれこれやってみたいと思いますが
とりあえずの中間報告とさせていただきます。

[投稿者]

投稿