Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 22-11-2018
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 913
Poder: 23
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Veamos si esto soluciona el problema...
Código Delphi [-]
var
...
  str : string;
 ...
begin
      ...
      SetLength(str, 100);

     error := ConsultarVersionDll( PChar(str), Length(str), mayor, menor );
     ....
end;
Saludos cordiales
Responder Con Cita
  #2  
Antiguo 22-11-2018
omarperez.qui omarperez.qui is offline
Miembro
 
Registrado: ago 2006
Posts: 26
Poder: 0
omarperez.qui Va por buen camino
Cita:
Empezado por cloayza Ver Mensaje
Veamos si esto soluciona el problema...
Código Delphi [-]
var
...
  str : string;
 ...
begin
      ...
      SetLength(str, 100);

     error := ConsultarVersionDll( PChar(str), Length(str), mayor, menor );
     ....
end;
Saludos cordiales
Muchas gracias por tu respuesta.
El problema sigue igual. Mi duda es si el problema esta en el PChar o los tipos enteros. Segun la definicion de la dll cuando tiene un * delante es un puntero. Si es asi deberia definir los Longint como pint o pint64 o algo asi... ya lo probe tambien y sin solucion.
Saludos!
Responder Con Cita
  #3  
Antiguo 23-11-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
¿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.
Responder Con Cita
  #4  
Antiguo 23-11-2018
omarperez.qui omarperez.qui is offline
Miembro
 
Registrado: ago 2006
Posts: 26
Poder: 0
omarperez.qui Va por buen camino
Cita:
Empezado por escafandra Ver Mensaje
¿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
Responder Con Cita
  #5  
Antiguo 23-11-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Quizás pueda ayudarte mejor si subes esa dll.

Saludos.
Responder Con Cita
  #6  
Antiguo 24-11-2018
omarperez.qui omarperez.qui is offline
Miembro
 
Registrado: ago 2006
Posts: 26
Poder: 0
omarperez.qui Va por buen camino
Cita:
Empezado por escafandra Ver Mensaje
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!!
Responder Con Cita
  #7  
Antiguo 24-11-2018
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
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.

Última edición por escafandra fecha: 24-11-2018 a las 01:22:26.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
EPSON fiscal hgiacobone Varios 2 17-11-2015 17:14:01
Epson TM-L60 II BlueSteel Varios 0 03-01-2008 00:20:06
Quickreport + Epson FX-890 MasterXP Impresión 5 31-07-2007 08:52:53
Parametros Opcionales no Parametros por defecto Velia Varios 7 19-08-2006 15:18:42
Epson u210B mane Impresión 3 08-06-2005 10:06:27


La franja horaria es GMT +2. Ahora son las 00:37:17.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi