IBM i (OS/400)如何通过CL程序调用动态链接库(DLL)

本示例代码演示了如何在IBM i (OS/400) CL程序中动态调用Windows下的动态链接库(DLL)。通过调用API QP2LOADPRC，CL程序可以加载动态链接库并调用其函数，实现CL与其他语言（如C++）的交互。

/* 定义变量和常量 */
             DCL VAR(&STR1) TYPE(*CHAR) LEN(100)
             DCL VAR(&STR2) TYPE(*CHAR) LEN(100)
             DCL VAR(&BUFFER) TYPE(*CHAR) LEN(200)
             DCL VAR(&ACTLVL) TYPE(*INT) VALUE(0)
             DCL VAR(&HANDLE) TYPE(*PTR)
             DCL VAR(&MODHANDLE) TYPE(*PTR)
             DCL VAR(&PROCADDR) TYPE(*PTR)
             DCL VAR(&RC) TYPE(*INT)

/* 加载动态链接库 */
             CALL PGM(QP2TERM)
             CALL PGM(QP2SHELL) PARM('/QOpenSys/pkgs/bin/ldd /full/path/dllname.dll')
             RTVJOBA JOBQ(&JOBQ) ACTLVL(&ACTLVL)
             CHGJOB INQMSGRPY(*DFT) LOG(4 00 *NOLIST)
             CHGJOB INQMSGRPY(*DFT) LOGCLPGM(*NO)
             CHGVAR VAR(&STR1) VALUE('export Qp2LoadPr' *BCAT 'oc')
             CHGVAR VAR(&STR2) VALUE('dllname.dll')
             CALLPRC PGM(QCMDEXC) PARM(&STR1)
             MONMSG MSGID(CPF0000) EXEC(DO)
/* 获取函数地址 */
             CALLPRC PGM(QP2GETINFO) PARM(&HANDLE &MODHANDLE &STR2 +                                                
 &BUFFER X'000000C8' 4)
             CHGVAR VAR(&BUFFER) VALUE(%SST(&BUFFER 9 4))
             CHGVAR VAR(&PROCADDR) VALUE(%BIN(&BUFFER))
/* 调用动态链接库函数 */
             CALLPRC PGM(QP2CALLPRC) PARM(&PROCADDR 'i*(i)' &RC)
/* 检查调用结果 */
             IF COND(&RC *NE 0) THEN(DO)
             /* 错误处理代码 */
             ENDDO

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com