主题：全部代码中字符串指针如何处理？

需要在FT的全局代码使用下面的DLL库函数。

dim Hexkey as string

Hexkey = "ffffff"
secnr = 1
Result = dc_load_key(Vars("IcDev"),  0, 1, Hexkey)

 

但是FT中怎么使用ByVal for string呢？

哪位专家能够指教？

试试这样

 

Public Declare Function dc_load_key Lib "Trf32.dll" (ByVal icdev As Long, ByVal mode, ByVal secnr, ByRef nkey As StringBuilder) As Long

 

调用

 

Dim Hexkey As new StringBuilder
Hexkey.append("ffffff")
secnr = 1
Result = dc_load_key(Vars("IcDev"),  0, 1, Hexkey)

非常感谢你的回答，有了进展，可是IC卡的密码校验出错。

不知道char*参数传递是否有问题,我在VB下面基本可以调通。

 

Dim Hexkey As new Stringbuilder

Hexkey.append("ffffffffffffffffffffffff")
secnr = 1 '1扇区
PWmode = 0 '密码A
tb2.text = Hexkey.Tostring
Result = dc_load_key_hex(Vars("IcDev"),  PWmode, secnr, Hexkey)  '装载1扇区的密码到读写器,这和后面要
If Result < 0 Then                                        '校验1扇区的密码是相对应的
      MessageBox.Show("密码装载错误!", "提示")
      Exit Sub
End If

Result = dc_authentication(Vars("IcDev"), PWmode, secnr)  '核对卡密码
If Result < 0 Then
      MessageBox.Show("密码校验错误!", "提示")
      Exit Sub
End If

 

总是返回密码校验错误。

 这样试试

 

Dim Hexkey As new Stringbuilder(24)

Hexkey.append("ffffffffffffffffffffffff")

 

 再不行，就尝试用char[]数组作为参数。

DLL中函数定义如下：

long __stdcall dc_load_key_hex	(	long	icdev,
		unsigned char	_Mode,
		unsigned char	_SecNr,
		unsigned char *	_NKey
	)

 

如果是stringbuilder，FT中定义如下,但是进一步校验密码出错。

Public Declare Function dc_load_key_hex Lib "Trf32.dll" (ByVal icdev As Long, ByVal mode%, ByVal secnr%, ByRef nkey As Stringbuilder) As Long

 

dim nkey as new Stringbuilder

(dim nkey as new Stringbuilder(24),也尝试过了，不工作）

 

如果是数组的话，FT中是否定义如下?

Public Declare Function dc_load_key_hex Lib "Trf32.dll" (ByVal icdev As Long, ByVal mode%, ByVal secnr%, ByRef nkey As Byte) As Long

 

dim nkey(12) as byte

nkey(0)=102

nkey(1)=102

....

我昨天也尝试过，但是直接内存访问出错了，我可以在试一试。

如何把数组的指针传递过去呢？下面这样对吗？

Result = dc_load_key_hex(Vars("IcDev"),  PWmode, secnr, nkey(0))

 你的设备有没有vb.net 或者 c#等的例子？如果有，就照抄

 如果用数组，这样定义

 

Public Declare Function dc_load_key_hex Lib "Trf32.dll" (ByVal icdev As Long, ByVal mode%, ByVal secnr%, ByRef nkey As Byte()) As Long

VB下面我都调试通过了，下面的两种方法都可以。

1，使用String,结合ByVal传递String的指针

hexkey = "ffffffffffff"
st = dc_load_key_hex(ByVal icdev, 0, 1, ByVal hexkey)  '装载1扇区的密码到读写器，这和后面要

 

2，使用byte数组，传递数组第一位的地址进去。

Dim hexkey(12) As Byte
hexkey(0) = 102
hexkey(1) = 102
hexkey(2) = 102
hexkey(3) = 102
hexkey(4) = 102
hexkey(5) = 102
hexkey(6) = 102
hexkey(7) = 102
hexkey(8) = 102
hexkey(9) = 102
hexkey(10) = 102
hexkey(11) = 102
st = dc_load_key_hex(ByVal icdev, 0, 1, hexkey(0))  '装载1扇区的密码到读写器

用下面的方式声明

Declare Function dc_load_key_hex Lib "Trf32.dll" (ByVal icdev As Long, ByVal mode%, ByVal secnr%, ByRef nkey As Byte) As Integer

 

但是这两种方法在FT中都不工作。

FT不支持关键字ByVal,也不确定数组指针怎么传递的。

 看楼上

终于好了，主要注意下面几点：

1，即便是参数是字符串的指针，也必须使用ByVal，如果使用ByRef，程序会崩溃

Public Declare Function dc_read Lib "Trf32.dll" (ByVal icdev As Integer, ByVal adr%, ByVal sdata As Byte()) As Integer

2，程序中使用字节数组即可

Dim dataread_byte(16) As Byte

Result = dc_read(Vars("IcDev"),blknr, dataread_byte)    '读卡内的数据

 

现在实现了身份证的读写和M1/S70卡的读写操作。