Integración C en Delphi

[senda]

Hola alguien tiene idea de si esto se puede hacer y como?? Es decir, ¿desde una aplicación Delphi se pueden utilizar funcionalidades implementadas en C? Muchas gracias.

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

Podrías utilizar DLL's ¿Te serviría eso?

[senda]

Pues tendría que investigarlo. Te refieres a meter las funcionalidades implementadas en C en una libreria DLL y cargar dicha librería desde mi aplicación Delphi???
Suena interesante, pero tendré que documentarme bastante a cerca de la creación de DLL's y de la posterior integración de una DLL en una aplicación Delphi. Alguna sugerencia???

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

No lo he hecho nunca (que conste), pero en teoría no debe tener problemas.
Aquí hay expertos en C, a ver si nos dan su opinión.
¡O mejor! a ver si alguno nos crea una DLL con una funcioncilla sencilla (sumar(a,b:Integer), por ejemplo) e intentamos llamarla desde Delphi.

[[basti]]

Un ejemplo suma:

La función en la dll escrita en C:

extern "C" __declspec(dllexport)
int WINAPI Suma (int a, int b)
{
	return a + b;
}

El extern "C", es para que se exporte la función con el mismo nombre (en este caso Suma).

Ahora el código Delphi:

Código Delphi [-]

function Suma(a, b : integer) : integer; stdcall; external 'dlldondeestasuma.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)



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

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

Esto vale para variables enteras, float o similares. Pero no para cadenas, ya que hay que mandarlas como Pchar, que es el formato que usa C. Los arrays o estructuras de datos se pueden enviar como punteros.

[[seoane]]

Es la primera vez que pruebo a hacer una dll en C. Espero que este bien

El código de la primera dll (suma.c) es el siguiente:

__declspec(dllexport) int __stdcall Suma(int a, int b)
{
 return a+b;
}

La compilacion la hice con MinGW de esta manera (quitar los espacion ente los ++):

g + + -c suma.c
dllwrap --def suma.def suma.c -o suma.dll

Donde "suma.def" es:

LIBRARY    suma.dll
EXPORTS
    Suma = Suma@8                      @1

Para utilizar el código desde Delphi la importo así:

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