Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Leer un Archivo (https://www.clubdelphi.com/foros/showthread.php?t=38347)

newdelphi7 12-12-2006 05:13:55

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

Gydba 12-12-2006 12:33:44

Bunos días,

Pues la manera más simple (aunque no tan eficiente) quizás sería utiliar un objeto TStringList con su respectivo método LoadFromFile y luego recorrer los items del objeto como si fueran filas, puesto que divide según encuentre CR.
El problema es el evidente: si en el archivo que generas escribís los famosos NULL CHARS vas a encontrarte con ciertos inconvenientes.

Espero que orientarte en algo, de última solamente chifla :)

Bicho 12-12-2006 12:38:08

Hola, ha newdelphi7 ya le han contestado aquí, por cierto newdelphi, por favor, no repitas hilos.
Leete la Guía de estilo

Saludos

Gydba 12-12-2006 13:02:08

Ups, perdón, no he pasado aun por ahí por lo que mis disculpas al moderador.

newdelphi7 12-12-2006 14:54:33

Perdon Al Moderador
 
Disculpa el inconveniente por repeti el ilo, en realidad cuando lo postee lo volvi a repensar y dije bueno creo que sera mejor ponerlo aqui en VArios que en Impresion....

Disculpa y gracias por todo, me ha gustado lo atento que estan de los foros y la rapidez en que se puede recibir una ayuda por alguien mas experto que uno en la materia.


La franja horaria es GMT +2. Ahora son las 02:14:04.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi