Epson TM900 Parametros dll

[omarperez.qui]

Empezado por escafandra

Quizás pueda ayudarte mejor si subes esa dll.

Saludos.

Te agradezco enormemente, no pude subirlo por el tamaño pero te dejo el link de Epson para bajarlo.

https://ftp.epson.com/drivers/EpsonF...e.02.06.00.zip

Creo que la única función que podrías probar es la de la versión de la dll, las otras necesitaran estar conectadas a la impresora.

Yo sigo intentando e investigando. Mil gracias Escafandra!!

[[escafandra]]

El problema está en el tamaño de la cadena. Prueba de esta forma:

Código Delphi [-]
type
  TConsultarVersionDll = function ( descripcion : PAnsiChar; descripcion_largo_maximo: LongInt; var mayor : LongInt; var menor : LongInt) : LongInt; StdCall;


var
  dll  : THandle;
  error : LongInt;
  str : Array[0..200] of AnsiChar;
  mayor : LongInt;
  menor : LongInt;
  ConsultarVersionDll: TConsultarVersionDll;
begin
  dll := 0;

  // instanciar dll - recordar que se require "uses Windows"
  // for production -- dll := LoadLibrary('EpsonFiscalInterface.dll');
  dll := LoadLibrary('EpsonFiscalInterface.dll');

  // check error
  if dll = 0 then
  begin
    ShowMessage('Error al instanciar DLL');
    Exit;
  end;

  // obtener las referencias a funciones:  "ConsultarVersionDll"
  @ConsultarVersionDll := GetProcAddress(dll, 'ConsultarVersionDll');
  if not Assigned(ConsultarVersionDll) then
  begin
    ShowMessage('Error al asignar funcion: ConsultarVersionDll');
    Exit;
  end;
  
  // execute ConsultarVersionDll
  mayor:= 0;
  menor:= 0;
  error := ConsultarVersionDll(@str[0], 200, mayor, menor );

  ShowMessage( str );
  ShowMessage( IntToStr(mayor) );
  ShowMessage( IntToStr(menor) );
  ShowMessage( IntToStr(error) );

  // desalocar dll
  FreeLibrary(dll);
end;

También puedes hacerlo de forma estática de esta forma:

Código Delphi [-]
function ConsultarVersionDll(descripcion: PAnsiChar; descripcion_largo_maximo: LongInt; var mayor : LongInt; var menor : LongInt): LongInt; stdcall; external 'EpsonFiscalInterface.dll';

var
  error : LongInt;
  str : Array[0..200] of AnsiChar;
  mayor : LongInt;
  menor : LongInt;
begin
  ConsultarVersionDll(str, 200, mayor, menor);
  ShowMessage(Str +#13 + 'Mayor: '+ IntToStr(mayor) + #13 + 'Menor: ' + IntToStr(menor));
end;

Saludos.

[omarperez.qui]

Escafandra, me has mostrado que tengo tanto por aprender, ni siquiera puedo intuir como lo has sabido.
La forma estática es mas sencilla y clara. Y el @str[0] que has puesto creo que nunca lo entenderé.
Ahora voy por el resto de la dll. Espero me trate mejor. Quizás me tome el atrevimiento de preguntarte por alguna regla sobre las dll, pero quiero intentar y sobre todo entender.
Enormemente agradecido.

Saludos

[[escafandra]]

Empezado por omarperez.qui

Escafandra, me has mostrado que tengo tanto por aprender, ni siquiera puedo intuir como lo has sabido.

Cuando el paso de parametros es correcto hay que buscar los puntos que pueden generar errores. El tamaño de una cadena cuando se pasa su puntero es uno de ellos. Hay que seguir el humo para encontrar el incendio.

Empezado por omarperez.qui

Escafandra, me has mostrado que tengo tanto por aprender, ni siquiera puedo intuir como lo has sabido.
La forma estática es mas sencilla y clara.

Pero en tiempo de ejecución no puedes controlar la asignación de la función importada y el programa dará un error al inicio y se abortará si la dll no se encuentra o tiene un error

Empezado por omarperez.qui

Y el @str[0] que has puesto creo que nunca lo entenderé.

@str[0] es para pasar un puntero al primer elemento del array. 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.

Saludos.

[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.