[求助]API调用的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]API调用的问题

共有4220人关注过本帖树形打印复制链接主题：[求助]API调用的问题

Hyphen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/1/15 11:47:00 [显示全部帖子]

函数定义试试

Public Declare Function BS_FT Lib "外部API.dll" (ByVal pid$ ,ByRef count As Byte)

Count是指针，需要定义字节数组进行接收, 具体还要看接口文档才知道

Dim ret(4) As Byte
BS_FT("ASDFGHJK",ret(0))

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/1/15 14:30:00 [显示全部帖子]

dll不要引用，放到“C:\foxtable\开发版”里面就可以，2楼的方法应该可以，

接口有没有。net的例子，看看别人怎么定义的

Hyphen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/1/15 15:49:00 [显示全部帖子]

成功提交不代表定义值正确的

Public Declare Function BS_FT Lib “第三方API.dll" Alias "BS_FT" ( ByVal pid As String , ByRef count As Integer ) As Integer

不行再试下面：

Public Declare Function BS_FT Lib “第三方API.dll" Alias "BS_FT" ( ByVal pid As String , ByRef count As byte) As Integer

Dim IPCount(16) As Byte
dim retcode = BS_FT("ASDFGHJK", IPCount(0))

Hyphen

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/1/15 16:18:00 [显示全部帖子]

Public Declare Function BS_FT Lib "ABC_API.dll" Alias "BS_FT " ( ByVal pid As String , byref count As Byte) As Integer

这个要放到全局代码

count参数是指针，返回的是内存地址，在vb调用一般是定义字节数组，把数组第一个作为参数传入，函数成功执行后，数组就是返回的内容，需要做转换才能看到里面的内容

Dim IPCount(16) As Byte
dim retcode = BS_FT("ASDFGHJK", IPCount(0))

Hyphen

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2016/1/15 16:22:00 [显示全部帖子]

照搬过去就行了呗

下一主题 >> << 上一主题

主题：[求助]API调用的问题