Entry Point Not Found

[Javierus]

Hace milenios que no uso C/C++, pero ¿Estás seguro de que la DLL está exportando esa función?
Y lo evidente: La DLL está en la misma carpeta que el exe

[compuin]

Empezado por Javierus

Hace milenios que no uso C/C++, pero ¿Estás seguro de que la DLL está exportando esa función?
Y lo evidente: La DLL está en la misma carpeta que el exe

Si, esta en la misma carpeta, lo que no estoy seguro es si esta exportando

Hay alguna forma de probar eso ?

[delphi.com.ar]

Empezado por compuin

...lo que no estoy seguro es si esta exportando...

Si subes la definición del header, te puedo decir si se está exportando o no.

Otra forma, "navegar" la librería, dado que si exporta la función por nombre, puedes verla con alguna herramienta tipo: ExportViewer ó Dependency Walker.

Saludos!

[compuin]

Empezado por delphi.com.ar

Si subes la definición del header, te puedo decir si se está exportando o no.

Otra forma, "navegar" la librería, dado que si exporta la función por nombre, puedes verla con alguna herramienta tipo: ExportViewer ó Dependency Walker.

Saludos!

Te refieres al header de C++ ?

[delphi.com.ar]

Empezado por compuin

Te refieres al header de C++ ?

Si... si la función tiene únicamente lo que pegaste como código, sin header, ya te confirmo que no la estás exportando.

[compuin]

Empezado por delphi.com.ar

Si... si la función tiene únicamente lo que pegaste como código, sin header, ya te confirmo que no la estás exportando.

Aca parte del header

/* From formulas.c */

#define EclToEqu(Z, L) CoorXform(Z, L, DTOR(TROPIC))
#define EquToEcl(Z, L) CoorXform(Z, L, DTOR(-TROPIC))
#define EquToLocal(Z, L, T) CoorXform(Z, L, T)
#define ReadPlanetData() (*datapointer++)
#define Biorhythm(D, R) (sin(((D)/(R))*PI*2.0)*100.0)
#define JulianDayFromTime(T) ((T)*36525.0+2415020.0)

extern long MdyToJulian();
extern void JulianToMdy();
extern real ProcessInput();
extern void CoorXform();
extern int HousePlaceIn();
extern void HousePlace();
extern void ComputeStars();
extern real CastChart();

[[escafandra]]

En C/C++ extern no exporta, simplemente le dice al compilador que esa función está implementada en otro sitio.


Para exportar funciones en una dll se usa __declspec(dllexport) Mira el ejemplo que dejé aquí.


Saludos.

[delphi.com.ar]

Acá te dejo un ejemplo hecho a medida:

Archivo funcs.cpp (todo junto, deberías pasar la definición al header)

#define EXTERN_DLL_EXPORT extern "C" __declspec(dllexport)

EXTERN_DLL_EXPORT long __stdcall MdyToJulian(int mon, int day, int yea)
{
	long im, j;

	im = 12*((long)yea+4800)+(long)mon-3;
	j = (2*(im%12) + 7 + 365*im)/12;
	j += (long)day + im/48 - 32083;
	if (j > 2299171) /* Take care of dates in */
	j += im/4800 - im/1200 + 38; /* Gregorian calendar. */
	return j;
}

En ese código podes observar que se exporta como una función C, con la convención stdcall.

Para compilarlo bajé el compilador gratuito Embarcadero Free C++ compiler, y lo compilé utilizando:

bcc32c funcs.cpp -tD

Y el código Delphi:

Código Delphi [-]
function MdyToJulian(mon, day, yea : integer ): Longint; stdcall; external 'funcs.dll' name 'MdyToJulian';

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := FloatToStr(MdyToJulian(1, 16, 2020));
end;

Saludos!