DLL的声明很着急

Question

请问在VB中如何写调用以下的动态库的接口函数的声明以及如何调用呢最好能有个调用程序
  int InitComm( int Port,char * ser_no )
  int DisLink(void)
  int Pub_ICC(int icctype,char *Issudate,char *Hangup,char *startdate,char *Enddate,           char *Iccno,char *Infor1,char *Infor2,char *Infor3)
  int Pub_ICC(int icctype,char *Issudate,char *Hangup,char *startdate,char *Enddate,           char *Iccno,char *Infor1,char *Infor2,char *Infor3)
  int Clear_ICC(int ictype)
--------------------------------------------------------------------
  以下是DELPHI的调用函数 请问谁会DELPHI 能把它转换到VB下的调用声明呢  function InitComm(Port: Integer; ser_no: Pchar): Integer;
     stdcall; external 'lock2000.dll' name 'InitComm';  function DisLink: Integer;
     stdcall; external 'lock2000.dll' name 'DisLink';  function Pub_ICC(IccType:Byte; IssuDate,Hangup,StartDate,EndDate,IccNo:PChar;
         Infor1,Infor2,Infor3:PChar):integer;
     stdcall; external 'lock2000.dll' name 'Pub_ICC';  function Read_ICC(IccType:pByte; IssuDate,Hangup,StartDate,EndDate,IccNo:PChar;
         Infor1,Infor2,Infor3:PChar):integer; 
     stdcall; external 'lock2000.dll' name 'Read_ICC';  function Clear_ICC(IccType: Byte): integer;
     stdcall; external 'lock2000.dll' name 'Clear_ICC';

Answer 1

API函數的聲明Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '定義延時函數
DLL的声明Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Answer 2

Private Declare Function InitComm Lib "lock2000.dll" (ByVal Port As Integer, ByVal ser_no As String) As IntegerPrivate Declare Function DisLink Lib "Lock2000.dll" () as IntegerPrivate Declare Function Pub_ICC Lib "Lock2000.dll" (ByVal IccType As Byte,ByVal IssuDate as String,Byval Hangup as String,Byval StartDate as String,ByVal EndDate as String,ByVal IccNo as String,ByVal Infor1 as String,ByVal Infor2 as String,ByVal Infor3 as String)as IntegerPrivate Declare Function Read_ICC Lib "Lock2000.dll" (ByVal IccType as pByte, ByVal IssuDate as String,ByVal Hangup as String,ByVal StartDate as String,ByVal EndDate as String,ByVal IccNo as String,ByVal Infor1 as String,ByVal Infor2 as String,ByVal Infor3 as String) as integer 
Private Declare Function Clear_ICC Lib "Lock2000.dll" (ByVal IccType as Byte) as integer哇.楼主分好多啊.发这么多?

Answer 3

Private Declare Function Read_ICC Lib "Lock2000.dll" (ByVal IccType as pByte, ByVal IssuDate as String,ByVal Hangup as String,ByVal StartDate as String,ByVal EndDate as String,ByVal IccNo as String,ByVal Infor1 as String,ByVal Infor2 as String,ByVal Infor3 as String) as integer
ByVal IccType as pByte,这个如何调用呢  就是在ICCTYPE 这付什么值呢麻烦你了