|
Leer un Archivo
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...
Solo quiero saber como abro y leo el fichero linea por linea y lo almaceno en una variable o hasta en un arreglo hasta que sea fin de archivo... GRACIAS
|