S
sosmao
Unregistered / Unconfirmed
GUEST, unregistred user!
我在Delphi 7中调用 C 写的Dll文件,我用的是动态调用,共用了其中的两个函数.其中一个可以正常运行,另一个则必需要引用静态调用:先看看程序还有更奇怪的事情发生:<br>var<br> Form1: TForm1;<br> Type TOpen_ComX=Function(Comport
char;Band:Integer):Integer;Stdcall;<br> Type TSearchAR=Function(AD_ID:Integer):Integer;Stdcall;<br> Type TClose_ComX=Function():Integer;Stdcall;<br>implementation<br>function Search(AR_ID:Integer):Integer; Stdcall external 'JBC_Attend.dll'name 'SearchAR';<br><br>{$R *.dfm}<br>procedure TForm1.BitBtn1Click(Sender: TObject);<br>//调用方式:动态调用<br>//功能:打开串口<br>Var<br>Open_ComX1:TOpen_ComX;<br>Handle:THandle;<br>Comportchar;<br>Band:Integer;<br>begin<br> Comport:='COM1';//设置Com1口<br> Band:=9600; //设置速率<br> Handle:=LoadLibrary('JBC_Attend.dll');<br> Open_ComX1:=GetProcAddress(Handle,'Open_ComX');<br> If Open_ComX1(Comport,Band)=0 Then Edit1.Text:='Com1 口开启成功'<br> Else Edit1.Text:='Com1 口开启失败';<br> FreeLibrary(Handle);<br>end;<br><br>procedure TForm1.BitBtn2Click(Sender: TObject);<br>//调用方式:动态调用<br>//功能:搜索卡钟<br>Var<br>Search1:TSearchar;<br>Handl:THandle;<br>AD_ID:Integer;<br>begin<br> AD_ID:=1;<br> Handl:=LoadLibrary('JBC_Attend.dll');<br> Try<br> Search1:=GetProcAddress(Handl,'SearchAR');<br> If (Search1(AD_ID1)=0) Then Edit2.Text:='搜索 1 号成功'<br> Else Edit2.Text:='搜索 1 号失败';<br> Finally<br> FreeLibrary(Handl);<br> End;<br>End;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>//调用方式:静态调用<br>//功能:搜索卡钟<br>Var<br>AR:Integer;<br>begin<br>AR:=1;<br>If Search(1)=0 Then ShowMessage('Ok');<br>end;<br>我先执行打开串口的动作执行成功,可以打开Com口,然后执行(BitBtn2Click)搜索卡钟就有点怪了,如果我将If Search(1)=0 Then ShowMessage('Ok');这行屏蔽掉则搜索卡钟失败,没有屏蔽掉但不执行则可以搜索卡钟成功;也就是说必需有静态调用其中的函数但可以不执行则可以正常执行动态调用的功能并返回正确结果,否则则不可以.实在让我郁闷.请高手明示!!谢谢!
char;Band:Integer):Integer;Stdcall;<br> Type TSearchAR=Function(AD_ID:Integer):Integer;Stdcall;<br> Type TClose_ComX=Function():Integer;Stdcall;<br>implementation<br>function Search(AR_ID:Integer):Integer; Stdcall external 'JBC_Attend.dll'name 'SearchAR';<br><br>{$R *.dfm}<br>procedure TForm1.BitBtn1Click(Sender: TObject);<br>//调用方式:动态调用<br>//功能:打开串口<br>Var<br>Open_ComX1:TOpen_ComX;<br>Handle:THandle;<br>Comportchar;<br>Band:Integer;<br>begin<br> Comport:='COM1';//设置Com1口<br> Band:=9600; //设置速率<br> Handle:=LoadLibrary('JBC_Attend.dll');<br> Open_ComX1:=GetProcAddress(Handle,'Open_ComX');<br> If Open_ComX1(Comport,Band)=0 Then Edit1.Text:='Com1 口开启成功'<br> Else Edit1.Text:='Com1 口开启失败';<br> FreeLibrary(Handle);<br>end;<br><br>procedure TForm1.BitBtn2Click(Sender: TObject);<br>//调用方式:动态调用<br>//功能:搜索卡钟<br>Var<br>Search1:TSearchar;<br>Handl:THandle;<br>AD_ID:Integer;<br>begin<br> AD_ID:=1;<br> Handl:=LoadLibrary('JBC_Attend.dll');<br> Try<br> Search1:=GetProcAddress(Handl,'SearchAR');<br> If (Search1(AD_ID1)=0) Then Edit2.Text:='搜索 1 号成功'<br> Else Edit2.Text:='搜索 1 号失败';<br> Finally<br> FreeLibrary(Handl);<br> End;<br>End;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>//调用方式:静态调用<br>//功能:搜索卡钟<br>Var<br>AR:Integer;<br>begin<br>AR:=1;<br>If Search(1)=0 Then ShowMessage('Ok');<br>end;<br>我先执行打开串口的动作执行成功,可以打开Com口,然后执行(BitBtn2Click)搜索卡钟就有点怪了,如果我将If Search(1)=0 Then ShowMessage('Ok');这行屏蔽掉则搜索卡钟失败,没有屏蔽掉但不执行则可以搜索卡钟成功;也就是说必需有静态调用其中的函数但可以不执行则可以正常执行动态调用的功能并返回正确结果,否则则不可以.实在让我郁闷.请高手明示!!谢谢!