¿Como crear un ejecutable que llame un DLL?

[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.

[mweltmeister]

Empezado por Neftali

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.

Ya me funcionó la compilación, ya lo tengo compilado y ya puedo llamar al .dll; El problema es que no funciona!!

Supongo que es por un error donde dice "var
Use: function(x,y:Integer):integer; stdcall;"
Ya que la función no es esa, la función que quiero utilizar es "StartHook" o algo que la ejecute.

¿Alguna otra idea?

program Call_suma_dinam;

uses
  Sharemem,
  SysUtils,
  Classes,
  Windows,
  VCL.Dialogs;

{$R *.res}

var
  H: Thandle;
  res:integer;
  Use: function(x,y:Integer):integer; stdcall;
begin

  if (MessageBox(0, '¿Desea cargar la DLL?', '', MB_ICONQUESTION or MB_YESNO) = idNo) then begin
    Exit;
  end;

  H := LoadLibrary('Project1.dll');
  // Cargada correctamente?
  if (H >= 32) then begin
    MessageDlg('Cargada la DLL...', mtInformation, [mbOK], 0);
    sum := nil;
    @sum := GetProcAddress(H, 'StartHook');
    // Asignada?
    if Assigned(sum) then begin
      MessageDlg('Acceso a la función StartHook', mtInformation, [mbOK], 0);
      // llamada
      res := Sum(Starthook);

      MessageDlg(Format('Resultado:  %d+%d=%d',[4,5,res]), mtInformation, [mbOK], 0);
      FreeLibrary(H);
    end;
  end
  else
    MessageDlg('Error, no se ha encontrado SUMAR.DLL', mtError, [mbOk], 0)
 end.
end.