谁能把我这段DELPHI代码改成VB代码

Question

3、读卡号命令
function RW(Cmd:string; SendBuffer_:pointer; SendLen_:Dword; ReceBuffer_:pointer; var ReceLen_:Dword):Boolean;
           StdCall external 'RW_MI_ID.DLL' name 'RW';
失败：返回false
成功：返回true
参数说明：
Cmd:固定为'Read_Card_00'
SendBuffer:发送缓冲区指针
SendLen:发送长度,固定为0
ReceBuffer: 接收缓冲区指针(保存读出的卡号)
ReceLen: 接收到的数据长度(正常为8)
分数不够可以继续加

Answer 1

Declare Function RW Lib "'RW_MI_ID" Alias "RW" ( _ 
ByVal Cmd As String, ByRef SendBuffer As Any, ByVal SendLen_ As Long, _ 
ByRef ReceBuffer As Any, ByVal RecLen_ As Long) As Boolean不知道對不對

Answer 2

Public Declare Function RW Lib "RW_MI_ID" Alias "RW" ( _ 
ByVal Cmd As String, ByVal SendBuffer_ As Any, ByVal SendLen_ As Long, _ 
ByVal ReceBuffer_ As Any, ByRef RecLen_ As Long) As Boolean

Answer 3

自从N久以前费了九牛二虎之力把一大段代码从vb翻译到delphi没有下文以后，就发誓再也不替人翻译代码了

Answer 4

如果这个DLL是Delphi写的话，VB应该是无法调用的，因为参数里面有个string，除非Dll改成PChar类型的。

Answer 5

hellolongbin(一个人[终不似 少年游]) ( )自从N久以前费了九牛二虎之力把一大段代码从vb翻译到delphi没有下文以后，就发誓再也不替人翻译代码了
有的人不厚道，bs他一下！