Iniciar Sesión

Ver la Versión Completa : [Sintaxis] Ayuda con libreria epson InterfaceEpsonNF.dll


drvedia1981
23 de noviembre de 2017, 18:09
Hola a todos, quiero utilizar la libreria de epson InterfaceEpsonNF.dll para manejar un tm-t20 no fiscal y vi un ejemplo que trae en vb6 que funciona muy bien como puedo llevarlo a power7 solo esta el archivo .dll y el manual con los comandos, por ejemplo para setear puerto dice asi
function ConfiguraTaxaSerial (dwTaxa:Integer):Integer; StdCall; External 'InterfaceEpsonNF.dll'
donde dwtaxa puede ser 9600 19200 baudios etc.

En vb6:
Dim iRetorno As Integer
Private Sub FUNC02_Click()
iRetorno = ConfiguraTaxaSerial(19200)
MsgBox "Baud Rate da Serial configurado com sucesso.", vbOKOnly + vbInformation, "Retorno"
End Sub

Alguna ayuda para implementarlo en power7 Muchas Gracias Saludos.

Kuk
23 de noviembre de 2017, 18:31
drvedia1981, en el fichero COBOL85.CBR pones:


[MainForm.Entry]
ConfiguraTaxaSerial=InterfaceEpsonNF.dll


En tu programa haces:


WORKING-STORAGE SECTION.
01 RESP PIC S9(9) COMP-5.
01 NPORT PIC S9(9) COMP-5.
01 FUNC PIC X(50) VALUE "ConfiguraTaxaSerial".
PROCEDURE DIVISION.

MOVE 19200 TO NPORT

CALL FUNC WITH STDCALL USING BY VALUE NPORT RETURNING RESP

drvedia1981
24 de noviembre de 2017, 02:05
Hola Kuk gracias por la pronta respuesta, tengo que poner cada función en el cobol85.cbr por ejemplo:

[MainForm.Entry]
ConfiguraTaxaSerial=InterfaceEpsonNF.dll
IniciaPorta=InterfaceEpsonNF.dll
ImprimeTextoTag=InterfaceEpsonNF.dll
Le_Status=InterfaceEpsonNF.dll

Es asi no ? Saludos.

---------- Post añadido : 02:05 ---------- Post anterior : 19:09 ----------

Hola kuk ya funcionando perfecto gracias por todo saludos

Ale
1 de febrero de 2022, 13:34
Hola buen día. como están coboleros. Estoy programando una fiscal sam4s ellix 40f. Necesito incluir la DLL (Sam4sFiscaldriver.dll) para comunicarme.. Nunca trabaje con DLL que no sean de cobol. Mi duda es como incluyo las funciones en el archivo
cobol85, paso a paso..
ej:
SerialPortOpen=Sam4sFiscaldriver.dll
SerialBaudset=Sam4sFiscaldriver.dll
AbrirTique=Sam4sFiscaldriver.dll
etc

Ejecuto el Cobol85 y como sigue..
muchas gracias....
saludos a todos desde La Pampa Argentina..