小编Fra*_*nda的帖子

我有一个用Delphi 5开发的大型MDI应用程序,我需要添加更多新功能,新的表单在DLL中使用Delphi XE.

我有一个非常好的例子 Raymond Alexander,它在Delphi 5上运行得非常好,但是在我的项目中试图跟随他的例子时,带有Delphi XE的DLL工作不正常,并且在我传递的时候给了我一个错误参数"APPLICATION"和DLL未正确接收.

function Modulo_PPtos_Configuracion(No_Orden : Integer; PathDB : WideString ;        PathDBConfig : WideString ; App : TApplication; Scr : TScreen) : Integer ; StdCall;
begin 
  if not Assigned(DmDatos) then
   Abrir_BasesDeDatos(No_Orden, PathDB, PathDBConfig);

 if not (assigned(frm_Configuracion)) then
  begin
{$IFDEF MDI}
  **Application := App;
SHOWMESSAGE(APPlication.MainForm.Name);
   frm_Configuracion := Tfrm_Configuracion.Create(Application.MainForm);**
{$ENDIF}

{$IFNDEF MDI}
   frm_Configuracion := Tfrm_Configuracion.Create(nil);
{$ENDIF}  
end;

正如您将注意到,在进行调试时会显示一条消息,并显示失败的原因,因为原始代码无法调试以下代码行.

请原谅我的英语.