[consuldelphi]

Este es un estracto del codigo que estoy usando. no lo puedo debugiar por ser dll
pero la diferencia es cuando quito y pongo la "linea problema" la cual se muestra en el codigo.
muchas gracias desde ya por la ayuda.



Public
...
...

function obtenerDato(prmser,prmusuario,prmmsg:OleVariant): Widestring:safecall;
end;

function ObtenerCalculoWeb (prmdec,prmcorrel,prmefec:Pchar): Integer; stdcall; external 'Calculoweb.dll' name 'ObtenerCalculoweb';


implementation


....
...


Function TClassDatos.obtenerDato(prmser,prmusuario,prmmsg:OleVariant): Widestring

var resultado:integer
begin

....
....

resultado:=ObtenerCalculoWeb(prmdec,prmcorrel,prmefec); {linea problema}

....
....

end;