DLL' s con formularios

[[Crandel]]

Empezado por Esau

en el evento Close del formulario se destruye

nunca use formularios en dll's pero esto suena muy raro.

no creo que sea correcto destruir el formulario cuando todavia esta en uso.

[roman]

¿Cómo destruyes el formulario?

No sé cómo sea con una dll pero recuerda que lo indicado es poner Action := caFree y no Form1.Free.

// Saludos

[Esau]

probe con

Código Delphi [-]
   Action := caFree;

y sigue con el mismo problema...

quizas no debo poner formularios en una DLL, pero que tan cierto es esto...

[lpmlpm]

Igual me equivoco, pero yo lo pensaría de este modo:

Estas asignando como responsable de la nueva forma a un objeto Application, pero tratandose de que estas cargando el formulario desde una DLL no se ve bien claro a cual Application es a quien le va a colgar el chamaco este procedimiento... porque no puebas (ya que tu mismo te estas encargando de liberar los recursos de la forma) de crear la forma nueva, digamoslo asi, "huerfana" o dicho de otra manera "autosuficiente"

Código Delphi [-]
 Procedure MostrarForm; StdCall; Export;
 Begin
   Form_Hola := TForm_Hola.Create(nil);
   Form_Hola.Show;
 End

Sustituyendo Application por nil no estas haciendo responsable a nadie por tu formulario, asi que al cerrar tu aplicación no tendría porque respingar...supongo

Saludos

[Esau]

No tuve suerte con lo que me recomendaste... Pero seguire insistiendo con esa logica, creo que esta por ahi, el truco...
Gracias por contestar...

[roman]

Hola,

Hay algo que no entiendo. Yo realmente no manejo dlls pero recién me hice uno con una función similar y no me muestra ningún error.

¿Cómo realmente exportas la función? Según la ayuda de Delphi, export (sin s final) sólo se usaba en Windows de 16 bits. Yo he exportado la función con:

exports MuestraForm;


¿Y cómo la importas a tu aplicación?

// Saludos

[Esau]

Hola Roman...
Les Contare que partí de Cero, he creado una DLL que crea y muestra un formulario.

Código Delphi [-]
library LaDLL;

uses
  SysUtils,
  Classes,
  FormDLL in 'FormDLL.pas' {Form_FormDLL};

{$R *.res}
Procedure MostrarForm; Stdcall; export;
Begin
  Form_FormDLL := TForm_FormDLL.Create(nil);
  Form_FormDLL.ShowModal;
  Form_FormDll.Hide;
  Form_FormDLL.Free;
End;

Exports
  MostrarForm Name 'MostrarForm';

begin
end.

compilé, y todo bien (Se creo la DLL)
luego he creado una Aplicación, en ella he creado una unidad donde declaro la DLL

Código Delphi [-]
unit Declaraciones;

interface

Procedure MostrarForm; External 'LaDLL.DLL' Name 'MostrarForm';

implementation

end.

y desde el formulario principal hago una llamado a la DLL desde un boton

Código Delphi [-]
implementation

{$R *.dfm}
Uses
  Declaraciones;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MostrarForm;
end;

end.

Parece que los dioses hoy me han dado un manito, y la aplicación no se ha quejado y no hay ningún error, pero he observado algo interesante y me gustaría que me ayuden en la explicación…
La DLL como el ejecutable que se han creado solo pesan 18 y 19 Kb respectivamente…
Me imagino que si llevo la DLL y el Exe a otra maquina me va a pedir algunos DLL…
La pregunta seria ¿Cómo hago para que el Exe solo dependa de la DLL? Y la DLL sea independiente de cualquier otra…