帮忙将下面VB.NET 的代码 转换为delphi

[huijinsoft1]

Private Declare Function InitIDCard Lib "IDCard.dll" (ByRef lpUserId As Byte, ByVal nType As Integer, ByVal lpDirectory As String) As Integer


'加载识别核心
Private Sub BtnLoadKernal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoadKernal.Click
If m_bIsInitSuccess = True Then
ResultTextBox.Text = "识别核心已成功加载"
Exit Sub
End If
Dim nRet As Integer
Dim strTmp As Byte()
strTmp = System.Text.Encoding.Unicode.GetBytes(UserID.Text)
'初始化识别核心

nRet = InitIDCard(strTmp(0), 0, vbNullString)
If nRet = 0 Then
ResultTextBox.Text = "加载识别核心成功"
m_bIsInitSuccess = True
Else
ResultTextBox.Text = "初始化识别核心失败" & Str(nRet)

m_bIsInitSuccess = False
End If
End Sub

[shuihan20e]

function InitIDCard(var lpUserId:byte;var nType:integer;var lpDirectory:pchar):integer

[bdmh]

后两个参数是值传递
function InitIDCard(var lpUserId:byte;nType:integer;lpDirectory:pchar):integer

[huijinsoft1]

好像还是不行

完整的VB代码下载. http://www.hotelb2c.com/vb.rar

PDF说明文件 http://www.hotelb2c.com/aaaaaa.rar

VB VC C# 全部代码下载
http://www.hotelb2c.com/Samples.rar

这家公司的东西就是没delphi

[huijinsoft1]

strTmp = System.Text.Encoding.Unicode.GetBytes(UserID.Text)
>>这个是关键性一句,如何转为delphi

[shuihan20e]

[Quote=引用 2 楼 的回复:]

后两个参数是值传递
function InitIDCard(var lpUserId:byte;nType:integer;lpDirectory:pchar):integer
[/Quote]
看错了，光看到by了，嘿嘿

[shuihan20e]

function   UnicodeEncode(Str:   string;   CodePage:   integer):   WideString;   
  var   
      Len:   integer;   
  begin   
      Len   :=   Length(Str)   +   1;   
      SetLength(Result,   Len);   
      Len   :=   MultiByteToWideChar(CodePage,   0,   PChar(Str),   -1,   PWideChar(Result),   Len);   
      SetLength(Result,   Len   -   1);   //end   is   #0   
  end;   
    
  function   UnicodeDecode(Str:   WideString;   CodePage:   integer):   string;   
  var   
      Len:   integer;   
  begin   
      Len   :=   Length(Str)   *   2   +   1;   //one   for   #0   
      SetLength(Result,   Len);   
      Len   :=   WideCharToMultiByte(CodePage,   0,   PWideChar(Str),   -1,   PChar(Result),   Len,   nil,   nil);   
      SetLength(Result,   Len   -   1);   
  end

看这个行吗？

[huijinsoft1]

怎么没人回答啊.