Programación General > Pascal

 Leer Archivo Binario Sin Tipo Y Visualizarlos

(1/1)

Simeon:
Alguien puede indicarme como se visualiza en cristiano lo leido en binario?.
Ocurre que para usar los datos de un archivo binario ejecuto otro programa que convierte en ascii. Quiciera leerlo directamente. Gracias

Amilius:
Mira, no somos adivinos para conocer el formato o codificación del archivo binario que quieres interpretar.

FSR:
Un Ejemplo:


--- Código: Text ---Program Lee_Archivo_Binario; Type    TProc = Procedure(Ch :Char);    PProc = ^TProc; {Va leyendo un archivo binario Byte por Byte, llamado al procedimiento "Proc"}{después de cada lectura. Le pasa como parámetro el caracter leído}Procedure LeeBin(Arch :String; Var Proc :PProc);    Var        Ch :File;        Dt :Byte;       {Almacena el Byte leído}        Ld :Word;      {Cantidad de Bytes que se pudieron leer}            Begin        Assign(Ch, Arch);        Reset(Ch, 1);        Repeat            BlockRead(Ch, Dt, 1, Ld);             If (Ld=1)  then Proc^(Chr(Dt));        Until (DosError>0) or (Ld=0);        Close(Ch);    End; {LeeBin}  {Despliega un caracter en pantalla}Procedure MiProc(Ch :Char);    Begin        Write(Ch);    End; {MiProc}  Begin    LeeBin('C:\MIBIN.DAT', @MiProc);    ReadLn;End. {Lee_Archivo_Binario} 


Cualquier duda, postéala por acá. Saludos ;)

Simeon:
Gracias a quienes me ayudaron, en particular al amigo FSR, por darme un ejemplo. Creo con esta información resolver mi problema.

Simeón

Navegación

[0] Índice de Mensajes