Impressora Bematech LB1000

[Helio Beltrao]

Boa noite, Pessoal

Um cliente nosso comprou uma impressora Bematech LB1000 etiqueta codigo barra como posso usar a DLL do fabricante no nosso sistema uso XHarbou

[Kapiaba]

veja se ajuda: no forum, deve ter as declarações completa.

Código: Selecionar todos

STATIC XDLL

FUNCTION VENDAS()

   IF .NOT. FILE( "BEMATECH.DLL" )

      ? [MENSAGEM DE ERRO]

   ELSE

      XDLL := LoadLibrary( "BEMATECH.DLL" )  // 32 Bits

   ENDIF

   ACTIVATE...

   ENDDO ...

   //... TERMINOU...

   FreeLibrary( xDll )
   xDll := Nil

RETURN NIL


// NO FINAL FINAL DO MODULO DE VENDAS: NAO PONHA EM FUNCTION.


*******************************************************************************
DLL32 Function BReseta() AS _INT PASCAL FROM "PrinterReset" LIB XDLL
DLL32 Function LeStatus() AS _INT PASCAL FROM "Le_Status" LIB XDLL
DLL32 Function BInicia_Porta(Porta AS STRING) AS _INT PASCAL FROM "IniciaPorta" ;
      LIB XDLL
DLL32 Function BReset() AS _INT PASCAL FROM "PrinterReset" LIB XDLL
DLL32 Function Taxa_Serial(Taxa AS LPSTR) AS _INT PASCAL FROM "ConfiguraTaxaSerial" ;
      LIB XDLL
DLL32 Function BFecha_Porta() AS _INT PASCAL FROM "FechaPorta"                  ;
      LIB XDLL
DLL32 Function BImp_Texto(Texto AS STRING) AS _INT PASCAL FROM "BematechTX"     ;
      LIB XDLL
DLL32 Function BFormataTX(cTexto AS LPSTR,nTipo AS _INT,nItalico AS _INT,;
      nSublinhado AS _INT,nEXpandido AS _INT,nEnfatizado AS _INT) AS _INT PASCAL;
FROM "FormataTX" LIB XDLL
DLL32 Function BComandoTX(Comando AS STRING,nTam AS _INT) AS _INT PASCAL;
      FROM "ComandoTX" LIB XDLL
 
DLL32 Function Bema_Bitmap(vCam AS STRING,Modo AS LPSTR) AS _INT PASCAL        ;
      FROM "ImprimeBitmap" LIB XDLL
 
DLL32 Function BEstatus() AS _INT PASCAL FROM "BematechTX" LIB XDLL
DLL32 Function BCorta_Papel(Corte AS LPSTR) AS _INT PASCAL FROM "AcionaGuilhotina";
      LIB XDLL
DLL32 Function BModelo_Imp(nImp AS LPSTR) AS _INT PASCAL                         ;
      FROM "ConfiguraModeloImpressora" LIB XDLL
DLL32 Function BQRCode(nNivel AS _INT,nTam AS _INT,nTipo AS _INT,nVersao AS _INT,;
      nFormato AS _INT,cQRCode AS STRING) AS LONG PASCAL;
      FROM "ImprimeCodigoQRCODE" LIB XDLL
DLL32 Function BImp_Bitmap(cArq AS STRING, nModo AS _INT) AS LONG PASCAL;
      FROM "ImprimeBitmap" LIB XDLL