调用DLL提示“无效窗口句柄”，为何？详情请进！

[xiangdie]

　　主程序调用格式
　　　type
TShowFormDb=procedure(hand:THandle;const dbHandle: HDBIDB);

procedure TFrmMain.ShowDbForm(DllName :pchar;ProName:pchar);
var
LibHandle : THandle;
ShowFormDb:TShowFormDb;
begin
if database1.Connected=false then database1.Connected :=true;
if database1.Connected=false then
begin
application.MessageBox('数据库连接错误，系统不能正常工作！','警告信息',MB_OK+MB_ICONWARNING) ;
exit;
end;
LibHandle := LoadLibrary(DllName);
try
if LibHandle = 0 then
begin
showmessage('无法成功装入动态库');
exit;
end;
@ShowFormDb := GetProcAddress(LibHandle, ProName);
if not (@ShowFormDb = nil) then
ShowFormDb(Application.Handle,database1.Handle) ;
finally
FreeLibrary(LibHandle);
end;
end;

ShowDbForm('SetDll.dll','HandSetCopy');

DLL中实现
procedure HandSetCopy(Hand :THandle;const dbHandle:HDBIDB); StdCall;
begin
Application.Handle := Hand;
HandSetCopyForm := THandSetCopyForm.Create(Application);
with HandSetCopyForm do
try
dm.DB.Handle:=dbHandle;
ShowModal;
finally
Free;
end;
end;

　　调试程序到
　　　HandSetCopyForm := THandSetCopyForm.Create(Application);
　　出现“无效窗口句柄”错误，不知什么原因，大家帮帮忙！

[xiangdie]

　　自己找出原因了。
　　就是把　procedure HandSetCopy(Hand :THandle;const dbHandle:HDBIDB); StdCall;
　　后的　StdCall;去掉，与主程序中调用入口函数一致

　　太粗心了。

[zjqyb]

use dll
最好两边都加上stdcall

[AWolfBoy]

转载，希望能对有你帮助

作为一个经常被提起的问题，很多人不知道怎么来从DLL中导出窗体，特别是MDI的子窗体，因此Kingron愿意在这里把一些经验写出来给大家分享，让大家在碰到类似的问题的时候，少走些弯路。

大家知道，DLL有两种加载方式，至于动态的，和静态的，稍微有点儿区别。动态的加载，大家可以参考Torry's Delphi Page上面的例子，其中有一个MDI的例子，非常简单的，很好用。我的例子以静态加载为主。

据目前来看，我们要在DLL中导出这个Form的话，必须通过DLL导出函数来做到，但是我们知道DLL工程的Application和Host程序的Application是有区别的，对于一般的应用程序来说，Application是VCL固定的，一般不会修改Application对象指针，但是在DLL中，我们需要使用窗体等，或者使用Application对象的时候，使DLL的Application和Host程序一样，这样才不至于混淆。以下面的例子为例，如果不修改Application对象，那么Host程序退出的时候，可能出现AV错误！例如：

在Host中Export一个函数：

function DllFunction(App:TApplication;PForm:TForm):TForm2;stdcall;

begin

Result :=TForm2.Create(PForm);

end;

那么主程序推出的时候，很可能发生AV错误。

下面一步一步来做：

首先，我们需要一个DLL工程，在IDE中New一个DLL，然后New一个Form，Save All File，工程名为DLL.DPR，Form的Unit文件为DLLForm.pas，窗体类名为FrmDLLChild。然后随便设计这个DLLChild Form即可。

然后，在DLL.DPR中修改代码，添加：

library Dll;

uses

SysUtils,windows,

Classes,Controls,Forms,

DllForm in 'DllForm.pas' ;

{$R *.res}

var

DllApp:TApplication;

{ 用于初始化：保存DLL本身的Application，然后设置DLL的Application指向Host的Application }

procedure InitDLL(App:TApplication);stdcall;

begin

DllApp:=Application;

Application:=App;

end;

{ 善后工作：恢复DLL原来的Application }

procedure FreeDLL;stdcall;

begin

Application:=DllApp;

end;

{ 返回一个窗体对象，这是DLL的主要功能 }

function GetDllChildForm(Parent:TComponent):TFrmDLLChild;stdcall;

begin

Result := TFrmDLLChild.Create(Parent);

end;

exports

InitDLL,FreeDLL,GetDllChildForm;

begin

end.

至此DLL已经完成了，在使用DLL的时候，需要注意：首先必须调用InitDLL，并且传递主程序的Application作为参数，否则主程序退出的时候，会报AV错误。

主程序调用如下：

为了简单方便地使用，可以把DLL中包含窗体的那个单元Use进来，如果不喜欢，用类型强制也可。

function GetDllChildForm(Parent:TComponent):TFrmDllChild;stdcall;external 'dll.dll';

procedure InitDLL(App:TApplication);stdcall;external 'dll.dll';

procedure FreeDLL;stdcall;external 'dll.dll';

procedure TForm1.FormCreate(Sender: TObject);

begin

InitDLL(Application);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

FreeDLL;

end;

调用窗体代码：

var

DForm:TFrmDllChild;

begin

DForm :=DllFunction(Application,Self);

DForm.Show;

end;

[FrameSniper]

应该不会出错吧！另外问一下，你怎么可以调试到Dll里面去？

[FrameSniper]

应该不会出错的吧？另外问一下，你是如何调到DLL里面去的？