程序错误?不知道哪里出错!!!!
程序内容:
在模块里:
Declare Function init_com% Lib "sure32WC.dll" (ByVal port As Long) '串口选择" ()
Declare Function sele_card% Lib "sure32WC.dll" (ByVal crdno As Long) '卡型选择
Declare Function power_on% Lib "sure32WC.dll" ()
Declare Function power_off% Lib "sure32WC.dll" () '卡下电,同时退卡
Declare Function close_com% Lib "sure32WC.dll" () '卡下电,同时退卡
Declare Function rd_asc% Lib "sure32WC.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long, ByVal Buffer$) '读卡或发行机内容
Declare Function wr_asc% Lib "sure32WC.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long, ByVal Buffer$) '将数据写入卡中
Declare Function rd_str% Lib "sure32WC.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long, ByVal Buffer$) '读卡以ASCII码数据显示
Declare Function wr_str% Lib "sure32WC.dll" (ByVal apz As Long, ByVal address As Long, ByVal length As Long, ByVal Buffer$) '把ASCII码作为数据写入
Declare Function chk_sc% Lib "sure32WC.dll" (ByVal i1 As Long, ByVal i2 As Long, ByVal Str As String) '密码检查
Declare Function wr_sc% Lib "sure32WC.dll" (ByVal Str As String) '密码改写
Declare Function inquire% Lib "sure32WC.dll" (ByVal Str As String)
Declare Function rd_sm% Lib "sure32WC.dll" (ByVal Str As String) '密码改写
'---------------------------------------------------------------------------
Declare Function InitCom% Lib "icrw.dll" ()
Declare Function ChangeSc% Lib "icrw.dll" (ByVal sctype As Long, ByVal zone As Long, ByVal ScHStr$)
Declare Function CheckSc% Lib "icrw.dll" (ByVal sctype As Long, ByVal zone As Long, ByVal ScHStr$)
Declare Function CloseCom% Lib "icrw.dll" ()
Declare Function SetCardType% Lib "icrw.dll" (ByVal cardno As Long)
Declare Function PowerOn% Lib "icrw.dll" ()
Declare Function PowerOff% Lib "icrw.dll" ()
Declare Function RwBeep% Lib "icrw.dll" ()
Declare Function GetRwState% Lib "icrw.dll" (ByVal Buffer As String)
Declare Function RdAsc% Lib "icrw.dll" (ByVal zone As Long, ByVal address As Long, ByVal length As Long, ByVal buff$)
Declare Function RdStr% Lib "icrw.dll" (ByVal zone As Long, ByVal address As Long, ByVal length As Long, ByVal buff$)
Declare Function WrAsc% Lib "icrw.dll" (ByVal zone As Long, ByVal address As Long, ByVal length As Long, ByVal buff$)
Declare Function WrStr% Lib "icrw.dll" (ByVal zone As Long, ByVal address As Long, ByVal length As Long, ByVal buff$)
'-------------------------------------------------------------------------
在窗体里:
Private Sub Form_Load()
Text5.Text = InitCom()
End Sub
就出现错误。说找不到icrw.dll文件。(我已经把此文件拷到程序目录下)
我看好象是缺少 sure32WC.dll文件不知道对不对,请大家看看。