newdelphi7
12-12-2006, 04:55:54
Buenas, probablemente la pregunta este fuera de lugar porque en realidad mi problema no es realizar la impresion, sino como leer un archivo txt....
Estoy haciendo una aplicacion en PHP y no encontre forma de pasarle los comandos de ESC para hacer imprimir una impresora Star Sp200 y/o Epson Tm-300, por lo que al final termine guardando los datos a imprimir en un archivo "imprimir.TXT"
La idea es realizar una aplicacion en Delphi que lea los datos en el fichero imprimir.txt y lo mande directamente a la impresora con este comando:
var
iImpresora : TextFile;
begin
Assignfile(iImpresora,'Lpt1');
Rewrite(iImpresora);
Writeln(iImpresora,' AQUI IRIA LO QUE VA A LEER EN CADA LINEA y SERA LO QUE SALDRA EN LA IMPRESORA');
CloseFile(iImpresora);
end;
Aqui mi pregunta: el fichero consta de 15 a 25 Lineas promedio me gustaria saber como puedo yo leer el fichero linea por linea e irlo guardando en una variable hasta que sea fin de archivo y no se imprima mas..... Nota: cada linea tiene como 30 caracteres mas o menos...
Gracias por su ayuda y su tiempo, de antemano.....
Estoy haciendo una aplicacion en PHP y no encontre forma de pasarle los comandos de ESC para hacer imprimir una impresora Star Sp200 y/o Epson Tm-300, por lo que al final termine guardando los datos a imprimir en un archivo "imprimir.TXT"
La idea es realizar una aplicacion en Delphi que lea los datos en el fichero imprimir.txt y lo mande directamente a la impresora con este comando:
var
iImpresora : TextFile;
begin
Assignfile(iImpresora,'Lpt1');
Rewrite(iImpresora);
Writeln(iImpresora,' AQUI IRIA LO QUE VA A LEER EN CADA LINEA y SERA LO QUE SALDRA EN LA IMPRESORA');
CloseFile(iImpresora);
end;
Aqui mi pregunta: el fichero consta de 15 a 25 Lineas promedio me gustaria saber como puedo yo leer el fichero linea por linea e irlo guardando en una variable hasta que sea fin de archivo y no se imprima mas..... Nota: cada linea tiene como 30 caracteres mas o menos...
Gracias por su ayuda y su tiempo, de antemano.....