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

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 Integer给你随便转几个.剩下的你自己照着弄了。建议你把这个帖子转到技术区去........

Answer 2

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 
Private Declare Function Clear_ICC Lib "Lock2000.dll" (ByVal IccType as Byte) as integer

Answer 3

Private 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 integerbyte 和Pbyte如何使用呢 如何付值呢

Answer 4

你要赋什么值?
直接给它一个byte类型就可以直接调用了啊.
 如果要转换的话你可以看这里:
Dim MyDouble, MyByte
MyDouble = 125.5678   ' MyDouble 为Double（双精度）。
MyByte = CByte(MyDouble)   '

Answer 5

类型转换时，在VB中要强制转换，如把一个integer型赋给Byte
时，
dim MyByte as Byte
dim MyInteger as Integer   MyInteger=1
   MyByte=Cbyte(MyInteger)

Answer 6

如何在调用接口时在byte,pbyte 付值呢 对于这个类型的变量我没有用过啊 尤其是pbyte如何使用呢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
调用read_icc()中pbyte类型的变量如何使用 如何读取当中的数值呢 

Answer 7

pbyte  如何使用呢 请举个例子
pbyte  如何使用呢 请举个例子
pbyte  如何使用呢 请举个例子pbyte  如何使用呢 请举个例子
pbyte  如何使用呢 请举个例子
pbyte  如何使用呢 请举个例子