Hola Foro, estoy TRATANDO de trabajar con el ocx de Epson para impresoras fiscales (mas precisamente la TM-U220AF) y por consiguiente me baje el ocx de Epson. Me trae un ejemplo de Visual Basic y no llego a enterder bien a VB
. Tendria que hacer lo mismo en Delphi, aca dejo el codigo para ver si alguien puede ayudarme en esto.
VisualBasic
Código Delphi
[-]
Dim sCmd AsString
Dim sCmdExt AsString
Dim bAnswer AsBoolean
'---------------------------
' Ticket-Factura
'---------------------------
'Open
sCmd = Chr$(&HB) + Chr$(&H1)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
sCmdExt = Chr$(&H0) + Chr$(&H0)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Nombre Comprador #1")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Nombre Comprador #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #1")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("Domicilio Comprador #3")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("T")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("30614104712")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("I")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("L¡nea de Remitos #1")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("L¡nea de Remitos #2")
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField("")
If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
Call FPDelay
IfMe.EpsonFP.ReturnCode <> 0 Then ShowMsg
PublicSub FPDelay()
'
' Delay Sequence
'
Dim Start1 AsSingle
Start1 = Timer '
DoWhileMe.EpsonFP.State = EFP_S_Busy
DoWhile Timer < Start1 + 0.125 ' Timer delay
DoEvents
If Start1 > Timer Then' This is to
ExitDo' compensate for the
EndIf' AM to PM change
Loop
Loop'
EndSub
Se los agracezco
Rodrigo.