cdq916995699
cdq916995699
采纳率0%
2016-03-11 05:51 阅读 1.6k

求救!!! 调用一个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 LPPC 2016-04-10 06:46

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

    NOMAL

    ,

    点赞 评论 复制链接分享

相关推荐