[WR3.0]APIについて

[（有）クレスト長岡]

Delphi5,WindowsMeで開発しております。
OCXでは一段落ついたので、現在APIを何とかしようとしています。
プロトタイプには[index ???]が必要なのでしょうか？
例えば、wrInit()では末尾の[index 100]が無いと
「プロセスの生成ができません。システムに接続されたデバイスが機能していません」
と表示されます。
また、他のＡＰＩでも動作が不安定となります。
もしindexが必要なら、その数字を取得したいのですが、どうしたらよいでしょうか？
例として、それらしきものを下記のように書きました。
一応、プレビュー画面はでるのですが．．．
長い質問になりましたが宜しくご検討下さい。

implementation
//****************************************
{プロトタイプ}
function wrInit (pdwErro:Pointer):Integer;stdcall ; external ‘WrCif30.DLL’ index 100;
function wrExit (pdwErro:Pointer):Integer;stdcall ; external ‘WrCif30.DLL’ index 101;
function WRVCreatePreview: Integer;stdcall ; external ‘WrCif30.DLL’;
function WRVOpenPreview(hPreview:Integer; nMode:integer): Integer;stdcall ; external ‘WrCif30.DLL’;
function WRVClosePreview(hPreview:Integer): Integer;stdcall ; external ‘WrCif30.DLL’;
//****************************************

procedure TForm1.Button1Click(Sender: TObject);
var
errstr:string;
pdwError,hPreview:DWord;
len,iniError: Integer;
begin
iniError:=WRInit(@pdwError);
if (iniError=0) then
showMessage(‘印刷の初期化ができませんでした。’);
hPreview:=WRVCreatePreview;
if (hPreview=0) then
showMessage(‘プレビュー作成ができませんでした。’);
WRVOpenPreview (hPreview, wrPREVIEWMODE_OVERLAP);
//WRVClosePreview(hPreview);
iniError:=wrExit(@pdwError);
if (iniError=0) then
showMessage(‘現在、エラーがおきてます。’);
end;

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

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

>Delphi5,WindowsMeで開発しております。
>OCXでは一段落ついたので、現在APIを何とかしようとしています。
>プロトタイプには[index ???]が必要なのでしょうか？
>例えば、wrInit()では末尾の[index 100]が無いと
>「プロセスの生成ができません。システムに接続されたデバ>イスが機能していません」
>と表示されます。
>また、他のＡＰＩでも動作が不安定となります。
>もしindexが必要なら、その数字を取得したいのですが、どう>したらよいでしょうか？

Indexが必要になると思います。

Indexについて取得方法ですが、DllViewを使用されるか
Dll解析ツールを使用して調べることになるかと思います。
Vector等で入手することも可能かと思います。

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

[（有）クレスト長岡]

Vectorで「エクスポートテーブル」で検索しましたら１個だけ見つかりました。
先が長そうですが頑張ってみたいと思います。
ご指導、ありがとうございました。

[投稿者]

投稿