EpsonFPHostControlX ayuda
 

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:eek:. 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.

hola rodrinig sobre ocx
 

hola Rodrigo me gustaría ayudarte
primero que nada me gustaría saber si ya solucionaste tu problema ya que tu consulta fue en la fecha 20-01-2009.
yo veo que estas usando un ocx o driver que es entendible con codigos hex de bajo nivel digamos.
has intentado usar este ocx ya que es mas entendible?
OCXFiscal.V2.0.0 v2.0 OCXFiscal.zip

Descripción :
Este archivo contiene el instalador del control OCX de alto nivel.
y sus ejemplos son mas fácil de entender.
usando un emulador fiscal "impresoras-fiscales emulador" lo googlea y aparecerá es un soft de arg.
que dura 14 de ultima usas una maquina virtual ...cuando se expire.
a mi me funciona perfectamente.
otra consulta que te hago es si tenes la impresora física..
saludos..