Integración C en Delphi

[senda]

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?

[[seoane]]

Empezado por senda

El compilador me dice que Suma no está declarado

Porque no lo esta. Tu estas declarando Suma2 no Suma

Código Delphi [-]
function Suma2(a, b : integer) : integer; stdcall; external 'suma.dll'  name 'Suma';

Por cierto, no entiendo para que usas esto:

Código Delphi [-]
// llamada a la función
var
  n : integer;

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

Basti te lo ponía como un ejemplo, pero no hace falta que lo incluyas en tu programa

[senda]

Empezado por seoane

Porque no lo esta. Tu estas declarando Suma2 no Suma

Por cierto, no entiendo para que usas esto:

Código Delphi [-]
// llamada a la función
var
  n : integer;

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

Basti te lo ponía como un ejemplo, pero no hace falta que lo incluyas en tu programa

Vale entonces, creo que no lo he entendido. En la línea

Código Delphi [-]
  n := Suma(3, 2);

yo pensaba que se estaba llamando a la funcion implementada en C, pero por lo que veo, con la declaración

Código Delphi [-]
function Suma2(a, b : integer) : integer; stdcall; external 'suma.dll'  name 'Suma';

se supone que ya queda implícito, es decir, la función Suma2 ¿no necesita implementación? puesto que está implementada en suma.dll, ¿no?

[[seoane]]

Exactamente , al declararla le estamos diciendo al compilador como es, donde esta, y con que nombre queremos llamarla, pero nada mas, la implementación ya esta dentro de la dll.

[senda]

Ok, perfecto (ya me funciona). Muchas gracias. Lo había entendido mal.