¿Es posible incluir rutinas C++ en aplicacion Delphi?

[[escafandra]]

Un ejemplo de como importar la API wsprintf desde User32.dll

Código Delphi [-]
function wsprintf(lpOut, lpFmt: PChar): Integer; cdecl; varargs; external 'User32.dll' name 'wsprintfA';

Saludos.

[compuin]

Muchas gracias a todos por sus aportes

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

La otra opción es con LoadLibrary y GetProcAddress, para hacerlo de forma dinámica.

[compuin]

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

La otra opción es con LoadLibrary y GetProcAddress, para hacerlo de forma dinámica.

Hola

Podrias colocar un ejemplo de ello ?

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

Empezado por compuin

Podrias colocar un ejemplo de ello ?

https://www.clubdelphi.com/foros/showthread.php?t=92441
https://stackoverflow.com/questions/...-dll-in-delphi

[compuin]

Empezado por escafandra

Un ejemplo de como importar la API wsprintf desde User32.dll

Código Delphi [-]
function wsprintf(lpOut, lpFmt: PChar): Integer; cdecl; varargs; external 'User32.dll' name 'wsprintfA';

Saludos.

Hola,

He tratado de hacerlo asi pero me arroja un error, el cual dice lo siguiente

The procedure entry point MYFUNCION could not be located in the dynamic link library MYDLL.DLL

La funcion existe en el DLL, el cual fue creado con Borland C++ 7.4

Alguna sugerencia ?

[[escafandra]]

Empezado por compuin

Hola,

He tratado de hacerlo asi pero me arroja un error, el cual dice lo siguiente

The procedure entry point MYFUNCION could not be located in the dynamic link library MYDLL.DLL

La funcion existe en el DLL, el cual fue creado con Borland C++ 7.4

Alguna sugerencia ?

El hecho de que uses una función en una dll no implica que esa dll la exporte. depende de la dll que realmente la exporta. Implemente una función en tu dll, expórtala e impórtala de forma estática desde delphi. Eso es lo que debe funcionar.

Código PHP:

__declspec(dllexport)

int MyFuncion(int parametro)
{
  return parametro*2;
} 


Código Delphi [-]
function MyFuncion(parametro: integer): integer; cdecl; external 'MyDLL.dll' name 'MyFuncion';

Saludos.