我调用动态连接库函数，想把函数返回值输出到文本中。
public cardata
public cardnohex
public cardnodec
if thisform.olecontrol1.ReadSpecifyWithPass(1,4,"ffffff",0,1,cardata,cardnohex,cardnodec)=0 *ReadSpecifyWithPass为读IC卡数据函数
MESSAGEBOX('读数据失败',48,'信息提示')
else
thisform.text1.value=cardata
MESSAGEBOX('读数据成功',64,'信息提示')
endif
读数据成功，可文本框里显示F，那为大侠知道为什么？谢谢！
函数说明如下：
带密码读取指定块数据以十六进制字符串返回，并返回十进制卡号和十六进制卡号串
ReadSpecifyWithPass(int jh, int block, BSTR *pass,int ab, int closeorno, BSTR *data, BSTR *cardnohex,BSTR *cardnodec)：BOOL
jh机号
block块号
pass密码
ab a密码还是b密码（a为0，b为1）
closeorno是否关卡（关卡为0，不关为1）
data返回的数据
cardnohex返回的十六进制卡号
cardnodec返回的十进制卡号
成功返回TRUE，失败返FALSE;

失败返回FALSE，当然就是 .F. 了啊!

那MESSAGEBOX怎么显示“读数据成功”？

下面是VB的程序，调试成功。与我用VFP编写的功能一样。懂VB的朋友看看我的程序错在哪里。
Dim Block As Long
Dim JH As Long
Dim AB As Long
Dim Closeorno As Integer
Dim BeepOrno As Integer
Dim pass As String
Dim rdata As String
Dim cardnodec As String
Dim cardnohex As String
Dim cardno As Double
Dim data As String
suc = WMTECH1611.ReadSpecifyWithPass(JH, Block, pass, AB, Closeorno, rdata, cardnohex, cardnodec)
If suc = 1 Then
Txtrece.Text = Txtrece.Text & "读取块" & Block & "成功！" & Chr(13) & Chr(10) & "data:" & rdata & Chr(13) & Chr(10) & "十进制卡号：" & cardnodec & Chr(13) & Chr(10) & "十六进制卡号：" & cardnohex & Chr(13) & Chr(10)
Text12.Text = Mid(cardnohex, 1, 2)
Text13.Text = Mid(cardnohex, 3, 2)
Text14.Text = Mid(cardnohex, 5, 2)
Text15.Text = Mid(cardnohex, 7, 2)
Else
Txtrece.Text = Txtrece.Text & "读取块" & Block & "失败！" & Chr(13) & Chr(10)
End If

public Block,JH,AB,Closeorno,BeepOrno,pass,rdata,cardnodec, cardno,data

suc = thisform.olecontrol1.ReadSpecifyWithPass(JH, Block, pass, AB, Closeorno, rdata, cardnohex, cardnodec)
IF SUC=1
THISFORM.EDIT1.VALUE="读取块" + Block + "成功！" +Chr(13)+ "data:" + rdata + Chr(13)+ "十进制卡号：" + cardnodec + Chr(13)+ "十六进制卡号：" + cardnohex
ELSE
THISFORM.EDIT1.VALUE="读取块" + Block + "失败！"
ENDIF

其中VB中的MID()函数的功能为返回
Mid(string, start[, length])
返回 Variant (String)，其中包含字符串中指定数量的字符
你的VFP代码中的
thisform.olecontrol1.ReadSpecifyWithPass(1,4,"ffffff",0,1,cardata,cardnohex,cardnodec)=0
不是从IC卡里记取出来的而是你指定的,你最好看一下与VB代码中定义的类型,还有,我不知道你的IC卡中返回0是不是失败,有的是返回1成功,不返回1失败,你看一下IC卡读卡器的说明,如果没有说返回0代表失败,你可以把=0失成<>0试一下,具体没看到你的IC卡读卡器,所以我写的代码不见得能用,只是乱写一下,希望对你有帮助
我不知道定义变量的返回值 的类型,不过看VB代码定义有字符型 也有长整型 ,你试下在吧在VFP里,如果出错你可以转一下字符型

[此贴子已经被作者于2007-4-6 18:22:14编辑过]

jh机号，block块号，pass密码，ab a密码还是b密码（a为0，b为1），closeorno是否关卡（关卡为0，不关为1）这4个参数是指定的；
data返回的数据，cardnohex返回的十六进制卡号，cardnodec返回的十进制卡号这3个参数是返回值。
VARTYPE(CARDATA)，得到L，看来CARDATA是逻辑型。可是在VB和函数说明里都是字符形呀？！我糊涂了，晕倒！