Epson TM900 Parametros dll

[omarperez.qui]

Empezado por escafandra

¿Donde falla el código?

La dll debe estar en la carpeta del ejecutable o estar registrada en la ruta Windows\System32. El ejemplo que pones se basa en localizar el puntero a la función exportada por la dll de forma dinámica con GetProcAddress. Lo primero que hay que ver es donde está fallando, si es en la importación dinámica o en la ejecución.

Cuando una función exportada estilo C espera un puntero, desde delphi puede declararse como paso por referencia sin problemas que es como está en el ejemplo que muestras.
Las cadenas pueden ser estilo clasico o unicode, no sebemos que estilo dtiene esa dll, al menos no lo sabemos en el foro. puedes forsar la declaración con PAnsiChar que funcionará si tu delphi usa Unicode por defecto y la dll usa Char clasico (AnsiChar)



Prueva a declararla así:

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

Saludos.

Hola escafandra, gracias por tu respuesta.
La dll se carga y funciona. Las funciones que no llevan parametros son bien aceptados por la impresora. El tema son los parametros.
Probe de la forma que me has indicado, no se cual de los parametros sera el problema. Tendria que comenzar con alguna funcion que tenga un solo parametro a ver que pasa.
La documentacion de la dll es la que puse al comienzo del post.
He probado usando punteros en los parametros Integer, he usado "var" para el 1e parametro, He usado widestring, pchar, string, pstring, ansistring....ya no que poner.
El codigo de error que me devuelve en todos los casos es 83886082 que no hay referencia en los documentos de epson.

Saludos

[[escafandra]]

Quizás pueda ayudarte mejor si subes esa dll.

Saludos.

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