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

BS_FT(

unsigned char* pid,

int * count

)

pid:    [in]产品标识, 为固定长度8个字节的字符串；

count：[out]返回的设备个数；

我要怎么样调用它呢？要用什么样的步骤？

帮助文档里有一个调用第三方的东东，但套用过去，提示错误

我是这样操作的

1、把第三方标准dll在管理项目－外部引用中添加到foxtable的安装目录下

2、在全局代码中定义Public Declare Function BS_FT Lib "外部API.dll" Alias "BS_FT" (ByVal PID As string) As Integer '连接设备

3、在命令窗口中执行

Dim iRetUSB As Integer = BS_FT("ASDFGHJK")

If iRetUSB = 1 Then

    MessageBox.Show("设备连接成功")

Else

    MessageBox.Show("设备连接失败")

End If

结果报错了

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))

BS_FT(

unsigned char* pid,

int * count

)

功能说明：

查找计算机上指定pid的BS个数。

参数：

pid:    [in]产品标识, 为固定长度16个字节的字符串；

count：[out]还回的设备个数；

返回值：

BSY：执行成功,Count为查找到的ET的数目。

BSN：没有可以用的硬件，此时Count值为0。

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

帮助告诉你不要引用。

5楼也告诉你不要引用。

你为什么还要引用呢？

2、在全局代码中做了这个定义

Public Declare Function BS_FT Lib “第三方API.dll" Alias "BS_FT" ( ByVal pid As String , ByVal count As Integer ) As Integer  ‘这个成功提交了’

3、新建一个窗口，一个按钮，一个文本框。按钮事件如下

Dim retcode As integer

Dim IPID As String

Dim IPCount As Integer

 

retcode = BS_FT(IPID, IPCount)

If (retcode <> 0) Then

    e.Form.Controls("TextBox1").text = "找到了"

Else

    e.Form.Controls("TextBox1").text = "失败"

End If

结果提示下面的内容：

直接在命令窗口执行以下