基于pb9.0环境的调用示例
//创建OLEObject对象
OLEObject = CREATE OLEObject //创建连接
li_status = OLEObject.ConnectToNewObject("JQSM2SM4.SM2SM4Util")
IF li_status <> 0 THEN //连接不成功,先反注册组件,再重新注册组件
li_cel = Run("regasm /u JQSM2SM4.dll/tlb:JQSM2SM4.tlb",minimized!)
IF li_cel <> 1 THEN
MessageBox('提示','反注册失败!')
RETURN
ELSE
// MessageBox('提示','反注册成功!')
li_reg = Run("regasm JQSM2SM4.dll/tlb:JQSM2SM4.tlb",minimized!)
IF li_reg <> 1 THEN
MessageBox('提示','组件注册失败!')
RETURN
ELSE
// MessageBox('提示','组件注册成功!')
END IF
END IF
ELSE
END IF
ls_sign = OLEObject.GetSM2SM4("SM2SignCMB",gs_pri_key_zh,"1234567812345678",ls_args1)
//释放资源
OLEObject.DisconnectObject()
技术交流微信feisng