Imprimir directo al puerto paralelo.

Newbie · #1 27-09-2003

Qué tal.

Tengo una impresora térmica a la cual quiero enviar una cadena que tiene que imprimir en código de barras.

Actualmente se utiliza para este propósito un programa en clipper con el siguiente código.

Código:

      Esc=chr(27)
      SET PRINT ON
      ?Esc+'A'
      ?Esc+'A3H400V0001'
      ?Esc+'H00'+Esc+'V005'+Esc+'L0206'+Esc+'WB1'+'VERACRUZ'
      ?Esc+'Q1'
      ?Esc+'Z'

Lo único que hace es tomar una cadena y mandarla directamente a la impresora. Lo que quisiera que me diejran, por favor, es cómo puedo hacer lo mismo desde delphi.

Recuerdo que en C podías abrir un File y direccionar tu salida a stdprint y con eso se lograba lo que deseo, pero en Delphi ya no sé como hacerle. Estoy viendo lo de TStream y con el mismo TFile, pero si alguien conoce la manera, se los agraceceré bastante.

Gracias