La Web del Programador: Comunidad de Programadores
 
    Pregunta:  402 - IMPRIMIR ARCHIVO BINARIO DELPHI3
Autor:  Juan Carlos Pérez
Bueno, soy programador y mi consulta es saber como puedo imprimir un archivo binario tal como lo hacia en DOS con la instrucción ´copy /b %1 LPT1:´ ahora en Delphi3, he tratado abriendo el archivo en binario, pero al parecer su tamaño es el que complica (hablo de archivos de más de 10MB, generados por una aplicación DOS, estos archivos son para ploteos. yo trabajo con GIS(Geographic Infomation Systems) y ojala puedan ayudarme
Gracias

  Respuesta:  Juan Carlo Pérez
Hola yo mismo:
bueno esperando que mi pregunta fuese contestada nunca pense que yo mismo seria quien la conteste, primero me respondo ya que puese que hubiese otra persona con el mismo problema, asi que aqui va la respuesta:

1 : Capturar el indice de la impresora ( creando un objeto TPrinter )

2 : Extraer con una funcioncita el path de coneccion.

3 : Abrir el archivo como texto y luego la impresora como texto

4 : hacer un

AssignFile(File1,nombredelarchivo);
assignFile(File2,rutadeimpresion);
reset(file1);
rewrite(file2);
while not EOF(file1) do
begin
readln(file1,Buf);
writeln(file2,buf);
end;
closefile(file1);
closefile(file2);
y listo.....
liberar el objeto TPrinter y todo Ok.

chaus..