Epson TM900 Parametros dll

[omarperez.qui]

La dll está pidiendo una cadena estilo C, y en C una cadena es un array; y un array se representa por un puntero a su primer elemento. En este caso también vale poniendo el nombre del array estático como te puse en el otro ejemplo.

Esto significa que en una funcion, por ej. CargarDatosCliente() las cadenas debo definirlas como Array igual que el anterior? Pueden ser dinamicas, sin tamaño?

Código Delphi [-]
type
  TCargarDatosCliente  = function ( nombre_o_razon_social1 :PansiChar;  nombre_o_razon_social2 :PansiChar;
                                   domicilio1 :PansiChar; domicilio2:PansiChar;  domicilio3:PansiChar;
                                 id_tipo_documento :LongInt; numero_documento:PansiChar; id_responsabilidad_iva :LongInt): LongInt; StdCall;

var
  Nombre1 : Array of char[];
  Nombre2 : Array of char[];
  Direccion1 : Array of char[];
  Direccion2 : Array of char[];
  TipoDoc:LongInt;
  NroDoc:LongInt;
  idIVA:LongInt;
Begin
  @CargarDatosCliente := GetProcAddress(dll, 'CargarDatosCliente');

  Nombre1:=' JUAN PEREZ';
  Nombre2:='';
  Direccion1:='Calle Nº';
  Direccion2:='Localidad..';
  TipoDoc := 1; //DNI
  NroDoc := 10000000;
  idIVA := 1; //IVA Insc
  error := CargarDatosCliente( @CargarDatosCliente,  @Nombre1[0],@Nombre2[0],@Direccion1[0],@Direccion2[0], TipoDoc , NroDoc, IdIVA );
  ShowMessage( IntToStr(error) );

End;

[[escafandra]]

En primer lugar Nombre1: Array of char[] es un error sintáctico en delphi. en todo caso sería Nombre1: Array of char
En segundo lugar, un array no es un String por lo que no puedes asignarle uno.

Para encontrar el puntero tipo CHAR de un String delphi basta con hacer el cast PAnsiCHAR(Nombre1) Eso convierte el String a Cadena estilo C
Si usas PAnsiCHAR la conversión será a un CHAR clásico de tamaño 1 BYTE.
En el caso de versiones de delphi UNICODE PCHAR es lo mismo que PWCHAR por lo que lo mejor es usar explicitamente PAnsiCHAR si queremos que la cadena no se interprete como UNICODE. Este bonito galimatías se lo debemos a Embarcadero y trae numerosas confusiones a la hora de usar código antiguo en versiones modernas de delphi.

Ahora, para esa función que propones, tu código quedaría así:

Código Delphi [-]
type
  TCargarDatosCliente  = function ( nombre_o_razon_social1 :PansiChar;  nombre_o_razon_social2 :PansiChar;
                                   domicilio1 :PansiChar; domicilio2:PansiChar;  domicilio3:PansiChar;
                                 id_tipo_documento :LongInt; numero_documento:PansiChar; id_responsabilidad_iva :LongInt): LongInt; StdCall;

var
  Nombre1: String;
  Nombre2: String;
  Direccion1: String;
  Direccion2: String;
  Direccion3: String;
  TipoDoc: LongInt;
  NroDoc: String;
  idIVA: LongInt;
  error: LongInt;
  CargarDatosCliente: TCargarDatosCliente;
Begin
  @CargarDatosCliente := GetProcAddress(dll, 'CargarDatosCliente');

  Nombre1:= ' JUAN PEREZ';
  Nombre2:= '';
  Direccion1:= 'Calle Nº';
  Direccion2:= 'Localidad..';
  TipoDoc := 1; //DNI
  NroDoc := '10000000';
  idIVA := 1; //IVA Insc
  error := CargarDatosCliente(PAnsiChar(Nombre1), PAnsiChar(Nombre2), PAnsiChar(Direccion1), PAnsiChar(Direccion2), PAnsiChar(Direccion3), TipoDoc , PAnsiChar(NroDoc), IdIVA);
  ShowMessage( IntToStr(error) );
End;

Saludos.

[[escafandra]]

Una cosa más. Si vamos a usar PAnsiCHAR lo mejor es declarar las cadenas de texto como AnsiString en lugar de String.

Saludos.

[omarperez.qui]

Bien, esto empieza a tomar color.
Enormemente agradecido Escafandra!!
Saludos

[zuncopop]

Buenas tardes, estoy desarrollando una aplicación para esta impresora fiscal y no logro obtener el ultimo numero de comprobante fiscal (tique-factura A o B) alguien tiene algún ejemplo que me pudiera facilitar. se los voy a agradecer muchísimo ya que me estoy volviendo Loco. gracias Slds

[omarperez.qui]

Empezado por zuncopop

Buenas tardes, estoy desarrollando una aplicación para esta impresora fiscal y no logro obtener el ultimo numero de comprobante fiscal (tique-factura A o B) alguien tiene algún ejemplo que me pudiera facilitar. se los voy a agradecer muchísimo ya que me estoy volviendo Loco. gracias Slds

Hola Zuncopop, seria bueno saber si estas usando la dll EpsonFiscalInterface.dll, con los metodos que explica Escafandra mas arriba o cual.

[zuncopop]

buen dia , Omar te agradezco la atencion. si estoy usando la libreria fiscal tal como lo describe escafandra y me funciona todo perfecto, excepto cuando quiero recuperar el ultimo numero de comprobante emitido. el comando que utilizo es el siguiente

TConsultarNumeroComprobanteUltimo = Function (tipo_de_comprobante : String; respuesta : String; respuesta_largo_maximo : LongInt): LongInt; StdCall;