主题：[求助]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

结果报错了

BS_FT(

unsigned char* pid,

int * count

)

功能说明：

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

参数：

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

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

返回值：

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

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

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

结果提示下面的内容：

直接在命令窗口执行以下

Dim retcode As Long

Dim Ipid As String

Dim Icount As Integer

Dim curline As Integer

 

Private Sub Command1_Click()

    If (Text1.Text = "") Then

        MsgBox "请输入PID"

        Exit Sub

    End If

 

    curline = 0

    List1.Clear

    Ipid = Text1.Text

   

    retcode = BS_FT(Ipid, Icount)

    If (retcode <> 0) Then

        List1.List(curline) = " Failed "

        Exit Sub

    Else

        List1.List(curline) = " Success"

    End If

End Sub