Autor Tema: Leer Archivo Binario Sin Tipo Y Visualizarlos (Leído 1594 veces)

Simeon · « **en:** Jueves 10 de Junio de 2004, 19:56 »

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 &#34;Proc&#34;}
{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&#62;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:&#092;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

SoloCodigo

Autor Tema: Leer Archivo Binario Sin Tipo Y Visualizarlos (Leído 1594 veces)

Simeon

Leer Archivo Binario Sin Tipo Y Visualizarlos

Amilius

Re: Leer Archivo Binario Sin Tipo Y Visualizarlos

FSR

Re: Leer Archivo Binario Sin Tipo Y Visualizarlos

Simeon

Re: Leer Archivo Binario Sin Tipo Y Visualizarlos