¿Como crear un ejecutable que llame un DLL?

[mweltmeister]

Empezado por Neftali

Hola.
En esta entrada puedes ver la explicación de cómo cargar DLL y BPLs desde Delphi[/url].
En concreto si no quieres revisar todo, en lo que concierne a DLL's, las dos primeras secciones explican cómo cargar una DLL de forma estática y de forma dinámica.
También puedes descargar el código de todos los ejemplos[/url].

En concreto, tienes uno para generar la DLL (sumas.dll) y dos proyectos (call_suma_estat y call_suma_dinam) para que veas cómo se carga la anterior DLL con ambos métodos.

Échale un vistazo al código de los ejemplos y verás que es sencillo.

Un saludo.

Hola Netfali! Antes que nada quiero agradecer tu pronta respuesta. Estuve leyendo la información que me facilitaste pero no puedo ejecutar el .dll!!

Estoy trabajando bajo Delphi XE2 y no abre los archivos que están para descargar, supongo porque se hicieron en una versión más antigua de Delphi.

Ahora tengo claro que lo que quiero es crear un .exe + .dll con carga estática. ¡No puedo resolver lo del .exe!
Ya lo tengo compilado, no se ni por donde empezar a crear el .exe sinceramente y no encuentro una explicación que me funcione como hacerlo.
O soy muy torpe o el hecho de que sean las 6:45 de la mañana (acá en Argentina) y que esté desde las 11:00 de la noche intentando hacerlo me dejo atontado; Aunque, no pienso dormir hasta lograrlo.

Ahora sigo intentando, gracias por tu ayuda.

[mweltmeister]

¡Pude abrir uno de los proyectos!
Estoy intentando modificar el código para que me funcione con el .dll pero me da un error al querer compilarlo.
El código que intento compilar es el siguiente; ¿Alguna idea?

program Call_suma_estat;

uses
  Forms,
  Dialogs,
  SysUtils;

var
  Res:Integer;

function StartHook(x,y:integer):Integer; stdcall; external 'project1.dll';


begin
  // llamada
  Res := StartHook;
  MessageDlg('Iniciando programa.....', mtInformation, [mbOK], 0);

end.

[Casimiro Noteví]

Empezado por mweltmeister

me da un error al querer compilarlo.

Deberías poner el mensaje del error

[mweltmeister]

Perdón, se me olvidó. No estoy seguro de cual fue el mensaje del error, pero marcaba en rojo el codigo "Res= 0".

Intenté editarlo a mi manera para que funcionara con el comando que yo quiero y pude compilarlo; El problema es que el .dll no funciona!.
Lo único que hace el .exe al ser ejecutado es mostrar una ventana que dice "Iniciando programa" (como el código muestra).

Adjunto nuevamente el código que pude compilar:

program start;

uses
  Forms,
  Dialogs,
  SysUtils;

var
  Res:Integer;

function StartHook(x,y:integer):Integer; stdcall; external 'project1.dll';


begin
  // llamada
  Res := 0;
  MessageDlg('Iniciando programa.....', mtInformation, [mbOK], 0);

end.

Ah, y más que nada gracias por la ayuda que me están brindando. Avance más en 10 minutos con su ayuda que en 4 horas de búsqueda y trabajo.
Gracias!

[Neftali [Germán.Estévez]]

No debería haber problema con la versión.

(1) Abre el proyecto de sumas (dpk o dproj) y compílalo
=> Eso debería generar una DLL en el directorio.

(si te da algún error dí cual)

(2) Cierra el proyecto anterior y abre el proyecto Call_suma_estat (dpk o dproj) y compílalo
=> Eso debería generar un EXE en el directorio.

(si te da algún error dí cual)

Esperamos que nos digas que tal...

[mweltmeister]

Creo que no me expliqué adecuadamente o no te entendí, pero hice lo que me dijiste y el error al compilar fue el siguiente: "[DCC Fatal Error] sumas.dpr(8): F1026 File not found: 'Dialogs.dcu'"

Código:

library sumas;


uses
  ShareMem,
  Dialogs,
  SysUtils,
  Classes;

{$R *.res}


function Sumar(x,y:integer):Integer; stdcall; overload;
begin
  ShowMessage (Format('1-Sumando %d+%d=%d',[x,y,(x+y)]));
  Result := x+y;
end;

function Sumar2(x,y:integer):Integer; stdcall; overload;
begin
  ShowMessage (Format('2-Sumando %d+%d=%d',[x,y,(x+y)]));
  Result := x+y;
end;


exports Sumar(x,y:integer);
exports Sumar2(x,y:integer);

end.

El error se marca en rojo en:

Classes;

[Neftali [Germán.Estévez]]

Empezado por mweltmeister

Creo que no me expliqué adecuadamente o no te entendí, pero hice lo que me dijiste y el error al compilar fue el siguiente: "[DCC Fatal Error] sumas.dpr(8): F1026 File not found: 'Dialogs.dcu'"

Perdón.
Tienes TODA la razón.

Al trabajar con Delphi XE2 hay que cambiar referencias a algunas units.
Cambia Dialogs por VCL.Dialogs y prueba.