APIの使用

[新垣]

こんにちは株式会社イマジンの新垣と申します。
今WR3.1でAPIの機能を使用して開発したいのですが。
サンプルコードのようなものはありますか？
宜しくお願いします。
ＯＳ　WINXP(Pro)
言語 VB6(SP6)

[星野＠SoftWing]

お世話になっております、ソフトウィング星野です。

APIのサンプルコードについてですが、製品に同梱されておりますCのサンプルにてAPIを使用しておりますので、使用言語は異なりますが、そちらをご参考にしていただければと思います。

以上です、よろしくお願いいたします。

[新垣]

ご返信ありがとうございます。
Ｃ言語のものをみながらやってみたのですが、
フレビュー画面を表示したあとに印刷ボタンを押してもプリンタに出力されません。どのようにしたらよろしいでしょうか？
あとやはりＣ言語の経験がまるでなく参考にするにはちょっとむずかいです。
本当に簡単で結構ですのでAPIの機能を使用してのＶＢでの
サンプルをご提供できないでしょうか？
是非宜しくお願いいたします。

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

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

VBからのAPIを使用してのWingReportの開発方法ですが
下記記事にプレビューからの印刷を押されたときの制御について書かれた記事がございます。

http://www.swg.co.jp/cgi-bin/bbs/forum2000_main.cgi?data=20050923112503

まず、この部分をご参照いただき、印刷ボタンが押された場合VBのサンプルと同じように印刷を行うコードを記述していただく必要がございます。

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

[新垣]

返信おくれてすいません。
サンプルの方大変参考になりました。ありがとうございました。
あともう１点確認したいのですが、プレビュー画面から印刷ボタンをし印刷方法を選択し（１すべて印刷　２現在のページを印刷　３ページ範囲を入力して印刷）ＯＫボタンを押したとき
EventProcess内の引数lngParam1とlngParam2には開始ページと終了ページが入ってくるとヘルプ(WRSetWEventProc関数を参照)には書かれていたのですが実際にデバックしてみると別の数値が入ってきています。
開始ページと終了ページを参照するにはどのようにしたらよろしいでしょうか？宜しくお願いします。

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

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

ヘルプに記述されておりますようにコールバックのlngParam1とlngParam2には開始ページと終了ページが戻りますが、それぞれポインタで戻ります。

VBの場合ポインタを簡単に扱えませんので次のようにして
取得することで手軽に扱うことが出来ると思います。

１：API宣言をします。
Public Declare Sub MoveMemory Lib “kernel32” Alias “RtlMoveMemory” (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

２：ポインタの値を実体にします。
Dim lngPageStart As Long, lngPageEnd As Long

MoveMemory VarPtr(lngPageStart), lngParam1, Len(lngParam1)
MoveMemory VarPtr(lngPageEnd), lngParam2, Len(lngParam2)

これにより、ポインタの値が実体として扱えます。
ご参考いただければ幸いです。

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

[新垣]

ご返信ありがとうございました。
無事問題を解決することができました。

[投稿者]

投稿