2 cdq916995699 cdq916995699 于 2016.03.11 13:51 提问

求救!!! 调用一个DLL文件的函数,提供的调用方法好像是Delphi,VB怎么调用!

提供的调用方法如下

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

执行的时候回提示类型不匹配,那我的入参应该如何带进去

1个回答

qq_34105767
qq_34105767   2016.04.10 14:46

⒈在uses里添加ShellApi
⒉在某事件下写出:
begin
ShellExecute(0,'Open','//文件路径',nil,nil,SW_ShowNormal);
End;

NOMAL

,

qq_34105767
qq_34105767 回复LPPC: 啊!最后三行弄错了,楼主别误会.
一年多之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!