- 论坛徽章:
- 0
|
如何從 AS/400 啟動 PC 程序或 從 PC 啟動 AS/400 程序?
以下是我在DELPHI里调用AS400程序的一段程序, 但是没有成功。各位兄弟请指点迷津。
function TfrmMain.data_trans : boolean;
var hThread : DWORD;
DllHandle : THandle;
CallPGM : TCallPGM;
strReturn : String;
begin
Result := true;
DllHandle := LoadLibrary('RDBCA.dll');
try
if DllHandle=0 then
begin
errMsg := 'AS400のプログラムをコールして、失敗しました。';
Result := false;
exit;
end
else
begin
@CallPGM := GetProcAddress(DllHandle,'CALLPGM');
if @CallPGM <>; nil then
// AS400のプログラムをコールする
// パラメータ:1 アプリケーションのインスタンス
// 2 コールするプログラム
// 3 AS400上のプログラムが必要なパラメータ
// 4 AS400のマシン名
// 5 TRUEの場合、AS400上のプログラムの終了を待つ。
// FALSEの場合、AS400上のプログラムの終了を待たない。
CallPGM(self.handle, 'NEWWESOBJ/MCN700C', trim(mskYear.Text) , 'S10A4443', true)
else
begin
errMsg := 'AS400のプログラムをコールして、失敗しました。';
Result := false;
exit;
end;
end;
except on e : Exception do
begin
FreeLibrary(DllHandle);
errMsg := 'AS400のプログラムをコールして、失敗しました。';
Result := false;
exit;
end;
end;
// ライブラリがフリーする
FreeLibrary(DllHandle);
end; |
|