dll para otros lenguajes

[Edgar++]

Holas! ayudaria mucho si mostraras el prototipo de la funcion de la que se habla, asi podriamos ayudarte mejor

[fryguy]

Limpié las últimas pruebas hechas y el encabezado es el siguiente.

 
function GenerateMD5(Cadena: string): string;
....
exports
GenerateMD5;
 
begin
end;

Como se puede imaginar por la declaración de la funcion es para poder generar una hash MD5 a partir de una cadena. Ya tengo implementada esta dll con aplicaciónes hechas en Delphi 6 y también la adapté para usar como store procedure extendida en SQL 2K.

[Edgar++]

Holas! me imaginé que el parametro era de tipo string, tu problema podria ser que VB y Delphi manejan de foma distinta los tipos string o como se produce su pasaje en la funcion, es decir si es por valor o por referencia, igualmente no podria decirte con exactitud.
Pero te recomendaria que pruebes declarar tu funcion de la siguinete forma:

Código Delphi [-]
function GenerateMD5(Cadena: PAnsiChar): PAnsiChar;

si el problema fuera el que te comenté, esto deberia funcionar... cualquier cosa avisanos!

[Mick]

Solo puntualizar que aunque solo se indique un parametro es necesario especificar sdcall o la convencion que sea necesaria. Ya que la diferencia no solo esta en el orden de los parametros, sino en quien se encarga de eliminar de la pila los parametros, asi que si no se indica la convencion adecuada, el programa dara errores bestias.

Saludos

[fryguy]

Seguí los consejos de ustedes y por lo menos la cosa empieza a andar.
Ahora el único problema que tengo es que al usar la dll en VB la aplicación da un error al cerrarla, pero ninguno mientras se usa. Calculo que debe ser un problema de administración de memoria o de la forma en que se llama.
Desde VB la llamada la hago así:

Declare Function GenerateMD5 Lib "MD5.dll" (Cadena As String) As Long

pero cambie la forma de trabajar con la función; la cadena se pasa por referencia y trae el valor de la cadena, el resultado de la función es la longitud de la hash.