当前位置：首页 >

如何從 AS/400 啟動 PC 程序或 從 PC 啟動 AS/400 程序?


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


最热门文章推荐：
>· 网络营销 优势
>· serv
>· serv uftp
>· 磁盘配额管理
>· 批处理教程
>· 批处理 变量
>· sql注入
>· 注入点
 ↓相关文章：
© 2006-2008 All Rights Reserved