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 |
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 :) |
Hola, ha newdelphi7 ya le han contestado aquí, por cierto newdelphi, por favor, no repitas hilos.
Leete la Guía de estilo Saludos |
Ups, perdón, no he pasado aun por ahí por lo que mis disculpas al moderador.
|
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