1 從400上面啟動pc上程序：
Windows 95,98, NT 上需有 REXECD (remote executing)Daemon 程序, 用於接收外界指令, 在 AS/400 使用指令 RUMRMTCMD ,只定 PC 程序完整路徑, 例如:
"C:\Program Files\Microsoft Office\Office\EXCEL.EXE"
RUNRMTCMD +
CMD('C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\EXCEL.EXE') +
RMTLOCNAME('149.45.0.78' *IP) +
RMTUSER(user) RMTPWD(userpassword)
2 從pc 啟動400上程序：
PC 上有 REXEC.EXE 程式, 在 AS/400 上需啟動 Remote exection server: STRTCPSVR SERVER(*REXEC)
REXEC xxx.xxx.xxx.xxx -l QSYSOPR +
WRKACTJOB>C:\data\actjob.txt
xxx.xxx.xxx.xxx : AS/400 IP address; -l is 小寫 L , for username
PC 動作 AS/400
REXECD <------AS/400 傳送 PC command to daemon program RUNRMTCMD
REXEC PC 傳送 AS/400 command to AS/400 REXEC Server------> STRTCPSVR *REXEC
| qingzhou 回复于：2004-03-12 09:50:55 |
| 大家给热心的andrewleading_he同志鼓鼓掌吧~~~
期待更多、更新鲜的精华出炉。。。 |
| andrewleading_he 回复于：2004-03-12 09:57:12 |
| 感謝劉大哥的鼓勵，我也在摸索中，很多東西都是各位朋友給我的。一句話，交流才能夠進步！封閉還是更封閉！跟大家一起進步...... |
| fzrxh 回复于：2004-03-13 17:06:36 |
| 还可以strpco,在strpccmd |
| andrewleading_he 回复于：2004-03-15 08:57:10 |
| [quote:dcc06f0af5="fzrxh"]还可以strpco,在strpccmd[/quote:dcc06f0af5]
謝謝！ |
| nansong 回复于：2004-03-18 14:28:17 |
| 以下是我在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; |
| fh2001 回复于：2004-03-18 15:26:26 |
| 顶！多发精彩好文。 |
| metmay 回复于：2004-03-23 09:57:30 |
| 问一个低级的问题
RUNRMTCMD + CMD('C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\EXCEL.EXE') + RMTLOCNAME('149.45.0.78' *IP) + RMTUSER(user) RMTPWD(userpassword) 中的 \怎么在400上输入？ |
| fzrxh 回复于：2004-03-23 13:05:00 |
| 我们直接输呀，你的使用环境呢？ |
| smile-wz 回复于：2004-03-23 13:16:52 |
| [quote:91a94ced7a="metmay"]问一个低级的问题
RUNRMTCMD + CMD('C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE\EXCEL.EXE') + RMTLOCNAME('149.45.0.78' *IP) + RMTUSER(user) RMTPWD(userpassword) 中的 \怎么在400上输入？[/quote:91a94ced7a] 从来没注意过这个问题。输入的\变成人民币符号了. 怎么回事? |
| zzzddd 回复于：2004-03-23 13:22:56 |
| 可以使用clent access的API进行调用！ |
| metmay 回复于：2004-03-24 16:36:45 |
| [quote:507e0cc85e="fzrxh"]我们直接输呀，你的使用环境呢？[/quote:507e0cc85e]
装的是ca,以前pcom也不行吧 还有[，]，也不行 要用数组的时候很麻烦 |
| SUNTDK 回复于：2004-03-25 12:41:16 |
| yunlong_su@tdk.com.cn |
| greenxiong 回复于：2004-03-26 14:31:28 |
| 看一下CCSID |
延伸阅读
文章来源于领测软件测试网 https://www.ltesting.net/
