Access Violation con DLL

[emeceuy]

Hola a todos...

Tengo una situación bastante extraña que no logro explicarme porque pasa, así que les cuento a ver si ven que puede ser...

Estoy utilizando una DLL compilada en "C", que su unica funcion (sumatoria) tiene 2 parametros de entrada y su salida es la suma de ambos... En delphi creo la funcion:

Código Delphi [-]
function Suma(A,B:integer):integer; stdcall; external 'sumaint.dll' name 'sumatoria';

Lo extraño es que cuando llamo a la funcion de ésta manera:

Código Delphi [-]
x:=Suma(strtoint(edit1.text),strtoint(edit2.text));
showmessage(inttostr(x));

el resultado es correcto, o sea, me devuelve la suma de los valores que hay en los edits...

Pero aqui viene lo extraño: si en vez de hacer el strtoint de los edits para pasarle los parametros a la funcion, directamente pondo dos numeros enteros, o sea:

Código Delphi [-]
x:=Suma(1,2);
showmessageinttostr(x));

salta un error de acces violation !!! es realmente muy raro...
También probé:

Código Delphi [-]
A:=strtoint(edit1.text);
B:=strtoint(edit2.text);
x:=Suma(A,B);
showmessageinttostr(x));

y da el mismo error... es muy raro...

Alguien sabe que puede ser???

muchas gacias, salu2

[[seoane]]

Estaría bien que pusieras el código en C, seguramente ahí esta el problema.

[[Al González]]

Es probable que no estés importando la función correctamente. Quizá el tipo de llamada de la función original no es StdCall. Lo que dice Domingo es importante, ¿podrías mostrarnos la cabecera de esa función de C.

Un abrazo importado.

Al González.

[emeceuy]

gracias por las prontas respuestas

la funcion de C es bien sencilla, simplemente suma las dos entradas, algo así:

int sumatoria (int A, int B)
{
int C;
C=A+B;
result(C);
}

[[seoane]]

Prueba con algo asi:

int stdcall sumatoria (int A, int B)

[[cHackAll]]

A mi me parece que la declaración en Delphi debería ser algo como ésto:

Código Delphi [-]
function Suma(var A, B: Integer): Integer; stdcall; external 'sumaint.dll' name 'sumatoria';

pues muy probablemente esté pasando como puntero los valores...

Claro que solo "supongo"

[emeceuy]

gracias !!! funcionó finalmente...

el poner var en los parametros de la funcion no funcionó porque se quejaba que no se pueden pasar variables, dice que tienen que ser constantes...

la solución fue poner stdcall en la funcion de C, ojo, va con doble subgueon antes... y para poder pasar reales, ojo que con el formato de C float se compatibiliza con el single de delphi...

dejo aquí la solucion final:

Código Delphi [-]
 function SumatoriaReal(A,B:single):single; stdcall; external 'dllsumatoria.dll' name 'SumaReal';

y la funcion de C es:

Código Delphi [-]
DLLIMPORT float __stdcall SumaReal (float A,float B);

MUCHAS GRACIAS A TODOSSSSSS !!!!!! D

[[Al González]]

¡Hola a todos!

¿Así que eran flotantes y no enteros? Haber empezado por ahí compadre.

Un abrazo sin omisiones.

Al González.

[emeceuy]

no, no... inicialmente eran enteros... hice todas las pruebas con enteros y funcionó, y luego pasé a enteros y tambien funcionó teniendo en cuenta eso de los singles... lo aclaré luego para que si alguno necesitaba pasar reales ya tuviera esa solucion

salu2