Ver Mensaje Individual
  #9  
Antiguo 07-03-2007
senda senda is offline
Miembro
 
Registrado: sep 2006
Posts: 48
Reputación: 0
senda Va por buen camino
Siento no haber podido responder antes. Muchas gracias por las sugerencias, aunque tengo problemas con ellas. Apoyandome en las explicaciones de seoane y basti he conseguido crear suma.dll, pero (gracias a mi inexperiencia con Delphi) no soy capaz de llamarla desde un pequeño programita. Os adjunto el .pas
Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}



function Suma2(a, b : integer) : integer; stdcall; external 'suma.dll'  name 'Suma';
// name es opcional, sólo haría falta si el nombre en delphi y en C fuesen distintos.
// stdcall indica que la llamada no se hace en el formato Delphi, sino en el formato C (el usado por la mayoría de los lenguajes)  private

// llamada a la función
var
  n : integer;

begin
  n := Suma(3, 2);
  Suma2:=n;
end;


procedure TForm2.Button1Click(Sender: TObject);
begin
     Button1.Caption:=IntToStr(Suma2(5,6));
end.

end.
El compilador me dice que Suma no está declarado, por lo que asumo que no está cogiendo la dll, ¿me equivoco?
Responder Con Cita