Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-04-2020
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.202
Poder: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
String no es un tipo válido en AnsiC, por lo que la declaración que haces de la función es errónea. Por otro lado la declaracion en C la hacen de esta forma:

Código PHP:
  DLL_EXPORT_IMPORT int DLL_STD_CALL ConsultarNumeroComprobanteUltimo( const char *tipo_de_comprobantechar *respuestaint respuesta_largo_maximo ); 
Yo probaría de esta forma:
Código Delphi [-]
  TConsultarNumeroComprobanteUltimo = function (tipo_de_comprobante, respuesta: PAnsiChar; respuesta_largo_maximo: LongInt): LongInt; StdCall;


Saludos.
Responder Con Cita
  #2  
Antiguo 16-04-2020
zuncopop zuncopop is offline
Registrado
 
Registrado: feb 2008
Posts: 6
Poder: 0
zuncopop Va por buen camino
Epson fiscal tm900

gracias escafandra ahora lo pruebo y comento como me fue.
Responder Con Cita
  #3  
Antiguo 17-04-2020
omarperez.qui omarperez.qui is offline
Miembro
 
Registrado: ago 2006
Posts: 26
Poder: 0
omarperez.qui Va por buen camino
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

Última edición por Casimiro Notevi fecha: 17-04-2020 a las 10:59:11.
Responder Con Cita
  #4  
Antiguo 22-07-2020
softarg softarg is offline
Miembro
 
Registrado: may 2018
Posts: 16
Poder: 0
softarg Va por buen camino
Epson fiscal tm900

Hola a todos, veo que algunos ya están hace tiempo luchando con esta impresora.

Estoy tratando de importar la Dll = EpsonFiscalInterface.dll en Delphi 10.3 pero es imposible, "Error al cargar la bibioteca de tipo/DLL".

Intente registrar la Dll de varias formas y tampoco funciona.

alguno pudo traducir todas las llamadas a las funciones?
hay alguna forma de ver cuales son las funciones expuestas por la Dll?

estoy atorado hace días con esto, agradezco su tiempo.

Saludos Softarg.
Responder Con Cita
Respuesta



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 01:43:43.


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