Epson TM900 Parametros dll

[omarperez.qui]

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