LPT a USB???
 

Hola a todos...
Resulta que realice un software el cual imprime la factura en una EPSON TM U200PD enviado los codigos binarios por LPT, hasta ahi no hubo inconveniente, pero el equipo se daño y compraron uno el cual ya no posee este puerto, como solución adquirieron un cable que de LPT lo transforma a USB.
El codigo para imprimir en LPT era este:

Código Delphi [-]
AssignFile(Archivo,'LPT1');

para USB que hago??? :confused:
Gracias de antemano por su ayuda...

de LPT a USB
 

Hola a todos...

Se acuerdan de un sistema operativo llamado D.O.S ? pues para estas cosas aún está vigente..

Yo haría lo siguiente:

1. Configurar normalmente la impresora TMU para que imprima por el puerto USB de la nueva máquina.
2. Compartir en red esta impresora en la nueva máquina.
3. En este punto viene la solución:

salir al simbolo del sistema utilizando el comando cmd.exe.
ejecutar el comando net use de la siguiente manera:
c:\net use LPTn: \\nombre_equipo\nombre_impresora_compartida /persistent=yes

LPTn = n es el número de puerto que quieres utilizar,es decir, LTP1 o LPT2.
Con lo anterior ya tienes en tu nueva máquina un puerto LPT1 que realmente lo que hace es imprimir sobre el puerto USB de la impresora.

Haz pruebas, pues yo utilizo ese comando para hacer imprimir programas viejos (COBOL) sobre puertos USB en máquinas nuevas que ya no tienen puerto paralelo.


Saludos desde Bogota - Colombia :cool:

Gracias por contestar, tambien soy de Colombia, mas exactamente de Cali.

Configurare ello y despues te comentare como me fue. Gracias

hola!

Nunca lo he hecho pues no he tenido necesidad, siempre utilizo puerto serie en mis aplicaciones pero me quede con esta duda ¿no funciona si haces esto?

Código Delphi [-]
AssignFile(Archivo,'USB001');

El numero de puerto es el que me aparece para mi impresora:

Inicio -> Impresoras y Faxes -> EPSON TX300 -> Propiedades

y en propiedades en la pestaña "Puertos"

Si haces la prueba nos informas de tus resultados.

Saludos!!

pues cuando me pasaba eso yo lo hacia de esta manera

1.- compartia la impresora
2.- en la misma maquina donde estaba la impresora hacia esto

Net use lpt1 \\NombredeMaquina\NombredeImpresora


y me funcionaba my bien

Gracias FGarcia,
Mira que me aparece un error 67.
El equipo se llama FACTURAC
he colocado:
NET USE LPT1:\\FACTURAC\TM-U220D/persistent= yes

quitale los 2 puntos no deberian ir

Nada te cuento que sigue con el mismo error... no habra algo que se pueda hacer por medio de codigo delphi?

pero antes de hacer el comando, compartistes la impresora???

Salu2:p

muy buena pregunta

si la comparti

y con que nombre la has compartido?

Realice de las 2 maneras, en la parte de "Nombre del recurso compartido":
1 con el nombre que la instale TM-U220D
2 cambiando el nombre U220D
y da el mismo error 67

Hola.

Si te da error 67 es que posiblemente no estés dejando un espacio entre LPT1 y \\...
y lo del persistent no lo tengo muy claro, prueba con esto:

Saludos

El /persistent=yes es para que se reconecte la unidad al comienzo de la sesión. debe llevar un espacio en blanco antes.

Saludos

Pues no sé por qué pero a mi ese parámetro no me funciona, ¿es posible que sea solo para discos duros?

pos ahora me sale error 66, que vaina
me tocara decirle al cliente que compre una tarjeta y lo malo es que tengo mas software asi...

Casi con toda seguridad te estás equivocando en el nombre o bien del servidor de la impresora o bien de la impresora.

es antiguo pero les falto ejecutar como administrador el cmd ya que solo el admin lo puede hacer