dephine 代码转换到vb的问题

Question

function getabout(CommPort:PChar;DevNO:byte):PChar;stdcall;external 'SBE518Plus.DLL';
function getsn(Commport:PChar;DevNo:Byte):PChar;stdcall;external 'SBE518Plus.DLL';
function setdevno(CommPort:PChar;DevNo:Byte;NewDevNo:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function settime(CommPort:PChar;DevNo:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function gettime(CommPort:PChar;DevNo:Byte):PChar;stdcall;external 'SBE518Plus.DLL';
function setparameters(CommPort:PChar;DevNo:Byte;Door1Param,Door2Param,DevParam:PChar):Boolean;stdcall;external 'SBE518Plus.DLL';
function getparameters(CommPort:PChar;DevNo:Byte;aCase:Byte):PChar;stdcall;external 'SBE518Plus.DLL';
function getdata(CommPort:PChar;DevNo:Byte;aCase:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function addlist(CommPort:PChar;DevNo:Byte;CardSN,Name:PChar;Level:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function addlistplus(CommPort:PChar;DevNo:Byte;CardSN,Name,WorkNO:PChar;Level:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function deletelist(CommPort:PChar;DevNo:Byte;CardSerial:PChar):Boolean;stdcall;external 'SBE518Plus.DLL';
function clearlist(CommPort:PChar;DevNo:Byte;aCase:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function getserial(CommPort:PChar;DevNo:Byte):PChar;stdcall;external 'SBE518Plus.DLL';
function stopread(CommPort:PChar;DevNo:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function resetdev(CommPort:PChar;DevNo:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function opendoor(CommPort:PChar;DevNo:Byte;Door:Byte;aCase:Byte):Boolean;stdcall;external 'SBE518Plus.DLL';
function online(CommPort:PChar;DevNo:Byte):PChar;stdcall;external 'SBE518Plus.DLL';
{$R *.dfm}
以上代码转换称vb要怎么转？

Answer 1

Declare Function getabout Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte) As String
Declare Function getsn Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte) As String
Declare Function setdevno Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal NewDevNo As Byte) As Boolean
Declare Function settime Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte) As Boolean
Declare Function gettime Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte) As String
Declare Function setparameters Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal Door1Param As String, ByVal Door2Param As String, ByVal DevParam As String) As Boolean
Declare Function getparameters Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal aCase As Byte) As String
Declare Function getdata Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal aCase As Byte) As Boolean
Declare Function addlist Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal CardSN As String, ByVal Name As String, ByVal Level As Byte) As Boolean
Declare Function addlistplus Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal CardSN As String, ByVal Name As String, ByVal WorkNO As String, ByVal Level As Byte) As Boolean
Declare Function deletelist Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal CardSerial As String) As Boolean
Declare Function clearlist Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal aCase As Byte) As Boolean
Declare Function getserial Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte) As String
Declare Function stopread Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte) As Boolean
Declare Function resetdev Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte) As Boolean
Declare Function opendoor Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte, ByVal Door As Byte, ByVal aCase As Byte) As Boolean
Declare Function online Lib "SBE518Plus.DLL" (ByVal CommPort As String, ByVal DevNo As Byte) As String