提供的调用方法如下
3.2 封装模式
接口动态库的文件名为nxmi.dll,HIS直接调用nxmi.dll, 调用之前请先安装读卡环境,安装程序为inst.exe。
3.3 调用方法
对外提供的接口函数:
Procedure invoke(params :PChar; result : PChar) ;
我现在在VB中写的如下:
在模块下定义
Public Declare Function invoke Lib "nxmi.dll" (ByVal strIn As Byte, ByRef strOut As Byte) As String
在窗体内的代码如下
Private Sub Command1_Click()
Dim gstrIn() As Byte
Dim gstrOut As String
gstrIn = "{functionname:''bizbuss'',params:{hid:'''" & gstrHid & "''',biztyp e: '''" & strBiztype & "''',ip:'''" & gstrIp & "''' ,indata:'''" & "<?xml version=""1.0"" encoding=""GBK"">01.01J2201510190030000252015101911252500011" & "''' }}"
gstrOut = invoke(gstrIn, "")
End Sub
执行的时候回提示类型不匹配,那我的入参应该如何带进去