一个没想通的问题，同事问的！(300大分)(300分)

人在昆明 · 2003-01-04

我的exe（主程序）要调用我的dll 中的窗体。而dll 中有好多窗体。 看看我的调用过程,dll中 fome的名字，caption　要求动态传入。 例如调用方法： 　　RunDLLForm(dllname, formname, formcaption,Application, Screen); 则： 　　RunDLLForm('test.dll', 'frmtest', 'caption test',Application, Screen); 那么就调用ｔｅｓｔ．ｄｌｌ　中的　ｆｒｍｔｅｓｔ　窗体，并设置窗口 标题为 'caption test'。 那位高手指点一下

shuszj · 2003-01-04

一种方法就是用一个定死的DLL来调用这个动态传入的DLL 另一种就先判断一个这个dllname 再去调用这个DLL 好像和一般的调用一样嘛，比如点个菜单的某个功能，取个这个菜单的相关DLL名 去调用即可

人在昆明 · 2003-01-05

我也是这么想，但是写的时候却发现行不通，能不能搞段代码来看看！

tata1 · 2003-01-05

应该传入窗体的类名，然后用GetClass()得到。以下代码未经测试，做个参考吧。 Var theClass:TPersistentClass; theForm:TForm; begin    theClass:= GetClass('TForm1');    if theClass = TForm then    begin      theForm:=TForm(aa).Create(Application);      ...    end; end;

人在昆明 · 2003-01-05

to tata1：    你说得我也测试过，不过问题是 theForm:TForm; 恐怕就不对啦，因为这个类你在写调用方法的时候不能定死掉。

tata1 · 2003-01-05

如果你的所有窗体都是继承TForm的话应该是可以的。另外代码应该改为： Var theClass:TPersistentClass; theForm:TForm; begin    theClass:= GetClass('TForm1');  　if theClass.InheritsFrom(TForm) then    begin      theForm:=TForm(aa).Create(Application);      ...    end; end;

人在昆明 · 2003-01-05

真心感谢老哥！

人在昆明 · 2003-01-05

给错分啦，tata1 老哥来这里领 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1561583

blue_morning · 2003-04-29

to:人在昆明 为什么我按你的例子进行测试时在主程序关闭后就会出现AV错误？ to LiChaoHui：    给我一个txyqbf_Gxx@163.com 其实没什么可以保留的，我就贴一个我写得吧（SDI）： exe 调用dll 中窗体的例子，sdi 和 mdi 基本上一样: DLL 部分： {****************************************************************} { } {　Project: UDllTest 　        　　　　　　　　　　　 } {　Copyright(c) 2003, 2005 　　　　　　　　　　　　　　 } {　Unit for UDllTest     　　　      　　　　　　　　　　　　　  } {　Create  :　2003-01-05 by 林红卫　　　　　　　　　　　 } {                                                                } {****************************************************************} library UDllTest; uses   SysUtils,   Forms,   Messages,   Windows,   Classes,   UFrmTestForm1 in 'UFrmTestForm1.pas' {Form1},   UFrmTestForm2 in 'UFrmTestForm2.pas' {Form2}; var   DLLApp: TApplication;   DLLScreen: TScreen;   TheForm: TForm;   theClass: TPersistentClass; procedure RunDLL(DLLName, FormName, FormCaption: string;   APP: TApplication; SC: TScreen) stdcall; begin   Application := App;   Screen := sc;   RegisterClasses([TForm1, TForm2]);   theClass := GetClass('T' + FormName);   if theClass.InheritsFrom(TForm) and (theClass <> nil) then   begin     TheForm := TForm(theClass.Create).Create(Application);     TheForm.Caption := FormCaption;     TheForm.Show;   end; end; procedure DLLUnloadProc(Reason: Integer); begin   if Reason = DLL_PROCESS_DETACH then   begin     Application := DLLApp; //恢复     Screen := DLLScreen;     FreeAndNil(TheForm);     FreeAndNil(theClass); // 卸载时释放资源   end; end; exports   RunDLL; begin   DLLApp := Application; //保存 DLL 中初始的 Application 对象   DLLScreen := Screen;   DLLProc := @DLLUnloadProc; //保证 DLL 卸载时恢复原来的 Application end. 这是dpr  你加入form1,form2 就行啦！ exe 的dll 调用部分： {****************************************************************} { } {　Project: DllDebug                      　　　　　　　　　　　 } {　Copyright(c) 2003, 2005 　　　　　　　　　　　　　　 } {　Unit for UCommonUnit  　　　      　　　　　　　　　　　　　  } {　Create  :　2003-01-05 by 林红卫　　　　　　　　　　　 } {                                                                } {****************************************************************} unit UCommonUnit; interface uses   Windows,   SysUtils,   Forms; type   TRunDLL = procedure(DLLName, FormName, FormCaption: string;     Application: TApplication; Screen: TScreen) stdcall; procedure RunDLLForm(DLLName, FormName, FormCaption: string;   APP: TApplication; SC: TScreen) stdcall; implementation procedure RunDLLForm(DLLName, FormName, FormCaption: string;   APP: TApplication; SC: TScreen) stdcall; var   GetDllHWND: HWND;   RunDLL: TRunDLL; begin   GetDllHWND := LoadLibrary(PChar(DllName));   if GetDllHWND < 32 then   begin     MessageBox(0, '没有找到附带DLL文件，请确认程序是否完整！',       '加载DLL失败', MB_OK);     Exit;   end;   @RunDLL := GetProcAddress(GetDllHWND, 'RunDLL');   if @RunDLL <> nil then   begin     try       RunDLL(UpperCase(Trim(DLLName)), UpperCase(Trim(FormName)),         FormCaption, APP, SC);     except       raise Exception.Create('T' + FormName + '不存在');     end;   end; end; end. dll 的Form Name 可以从Exe 传入。

一个没想通的问题，同事问的！(300大分)(300分)

人在昆明

Unregistered / Unconfirmed

shuszj

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

tata1

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

tata1

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

blue_morning

Unregistered / Unconfirmed

Similar threads