问题描述

求救!!! 调用一个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

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

解决方案

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

NOMAL

,