Hola Zuncopop, yo estoy usando lo siguiente y me funciona bien...
---Esto lo tengo en una unidad separada---
Código Delphi
[-]TConsultarNumeroComprobanteActual = Function( respuesta :PAnsiChar; respuesta_largo_maximo :Longint): LongInt; StdCall;
Function ConsultarTipoComprobanteActual( respuesta :PAnsiChar; respuesta_largo_maximo :Longint): LongInt;
Function ConsultarNumeroComprobanteActual( respuesta :PAnsiChar; respuesta_largo_maximo :Longint): LongInt;
var ConsultarNumeroComprobanteActual: TConsultarNumeroComprobanteActual;
error : LongInt;
Begin
@ConsultarNumeroComprobanteActual := GetProcAddress(T900dll, 'ConsultarNumeroComprobanteActual');
error := ConsultarNumeroComprobanteActual( @Respuesta[0], respuesta_largo_maximo );
Result := Error;
End;
-------En el modulo de facturacion---------
Código Delphi
[-]var vNroComprobante: array[0..10] of Ansichar;
error:=Ut900.ConsultarNumeroComprobanteActual( @vNroComprobante, 10 );
if error>0 then MostrarError900(error);
Gracias a Escafandra!!!
Espero te sirva, saludos