Colocar units en DLL

[adebonis]

Hola a todos:

Estoy viendo que en ejecutable que tengo con delphi 5 y que ya compilo con Packages, adquiere un tamaño de 3.325 Kb. Me gustaría rebajar su tamaño sin tener que acudir a programas de compresión.

Creo que si pasara algunas pantallas, funciones o Reports a un archivo dll iría mejor.

Dos preguntas:

Primera: Si realizo esto, ¿mejoraría su "performance" en equipos con poca memoria?

Segunda: ¿Se pueden pasar Reports a dll? ¿Cómo?

Adolfo de Bonis Mora
Gracias.

[__cadetill]

Hola adebonis

Respecto a la primera pregunta, si creas los formularios en tiempo d ejecución, no lo creo

Respecto a la segunda, sí que se puede

Codigo app

const MyDLL = 'Project2.dll';
var
Form1: TForm1;

LanzaProcedure : procedure (Param : string ) stdcall;

implementation

procedure TForm1.LanzaProcClick(Sender: TObject);
var
Handle: THandle;
begin
Handle := LoadLibrary(MyDLL);
if Handle <> 0 then
begin
@LanzaProcedure := GetProcAddress(Handle, 'LanzaProcedure');
try
if @LanzaProcedure <> nil then
begin
LanzaProcedure('Hola, esto es el parametro que se le pasa al procedure');
end;
finally
FreeLibrary(Handle);
end;
end;
end;


Código DLL

procedure LanzaProcedure(Param : string); stdcall; export;
begin
// aquí la creación del formulario/report y su lanzamiento
end;

exports
LanzaProcedure,


Puedes pasarle los parámetros que quieras (como conexión a la BD, usuario, contraseña, condición SQL a lanzar,..........)