Cargar array of char de un archivo binario

[JosepZ]

Gracias por la respuesta

Lo he probado y sigue pasando lo mismo.... y el caso es que si trato el archivo como si no conociera su formato y me desplazo hasta el offset siguiente al final del array of char con seek y leo los 4 bytes del integer siguiente, lo lee sin problemas y lo añade al memo...

Cada vez estoy mas confuso...

[JosepZ]

He descubierto que si declaro el tipo como array of char no acabo en el offset que empieza el integer; por eso así no lo mostraba bien, y con seek(archivo,offset) si. El integer empieza en el offset 58.

Empiezo en el offset 24, y debería acabar en el 57.

Si lo declaro como array[1..33] of char acabo en el offset 56, y si lo declaro array[1..34] of char, acabo en el 60.

¿Que tamaño o tipo tendría que darle para que ocupe exactamente los 34 bytes qye tiene asignados para ese texto Unicode?

[ixMike]

¿?

En un principio [1..34]of char ó [1..17]of widechar tendrían que colocarte en el 57. Es realmente extraño.
Se me ocurre que, para salir del paso, podrías leer el fichero como secuencia de SmallInts o Word (Int16), ya que:

- para los datos Int16 ya lo tienes.
- para hallar los Int32, tendrías que pasar dos Int16 a hexadecimal, juntarlos, y calcular el Int32.
- cada carácter Unicode equivale a un Int16.

Es una idea, pero tu código debería funcionar. ¿Sería mucho pedir un archivo de ejemplo para que pudiéramos hacer pruebas? Con un ejemplo de lo que se debería obtener de él, claro.

Saludos.

[JosepZ]

¿Mucho pedir???

Al contrario, muy muy agradecido por tu ayuda.
Lo he subido aqui: http://rapidshare.com/files/69149915/FEI_004.pgmf.html

Su estructura es esta:

Field-----------------Size (bytes)--------------Type-----------------------------------Contenido en el archivo

FileFingerprint------------2---------------------Int16-------------------------------------- 1000
FileVersion---------------2---------------------Int16-------------------------------------- 100
BlockCount--------------4--------------------- Int32-------------------------------------- 2
BlockFingerprint----------2---------------------Int16--------------------------------------1010
BlockVersion-------------2---------------------Int16-------------------------------------- 100
RecordCount------------4----------------------Int32-------------------------------------- 1
RecordSize--------------4----------------------Int32--------------------------------------70
CheckSum--------------4----------------------UInt32--------------------------------------3120033703
CourseName-----------34----------------------char[34]Unicode <--Este es el problematico ---'FEI 004'
WattSlopePulse---------4----------------------Int32<-------------------------------------- 1

Con un editor hexa he comprobado que el string unicode empieza en el offset 24, exactanente donde debería teniendo en cuenta el tamaño de los tipos anteriores, y acaba en el 57; en el 58 empieza el integer que vá detrás, y con el filemon, compruebo donde acaba el array of char según su tamaño.

El texto que contiene coincide, en este caso con el del archivo, FEI 004, en unicode.

Gracias

[ixMike]

Hola.

Bueno, es bastante curioso lo que te pasa. Yo implementé este código:

Código Delphi [-]
program leer;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

type

Tpgmf = record
  FilePrint: SmallInt; // 2B
  Version: SmallInt; // 2B
  Count: Integer; // 4B
  BlockFingerPrint: SmallInt; // 2B
  BlockVersion: SmallInt; // 2B
  RecordCount: Integer; // 4B
  RecordSize: Integer; // 4B
  Checksum: Integer; // 4B - Uso Delphi 3 standar y LongWord no me lo reconoce 
  CourseName: array [0..16] of WideChar; // 34B
  WattsSlopePulse: Integer; // 4B
 end;

const
  TAB=#9;

var
  F: File of Tpgmf;
  Dato: Tpgmf;
  Fw: File of Byte;
  W: Byte;
  N: Integer;

begin
  AssignFile(F, ParamStr(1));
  Reset(F);
  Seek(F, 0);
  Read(F, Dato);
  CloseFile(F);
  WriteLn('FilePrint: '+IntToStr(Dato.FilePrint));
  WriteLn('Version: '+IntToStr(Dato.Version));
  WriteLn('Count: '+IntToStr(Dato.Count));
  WriteLn('BlockFingerPrint: '+IntToStr(Dato.BlockFingerPrint));
  WriteLn('BlockVersion: '+IntToStr(Dato.BlockVersion));
  WriteLn('RecordCount: '+IntToStr(Dato.RecordCount));
  WriteLn('CheckSum: '+IntToStr(Dato.CheckSum));
  WriteLn('CouseName: '+String(Dato.CourseName));
  WriteLn('WattsSlopePulse: '+IntToStr(Dato.WattsSlopePulse)+#13#13);
  ReadLn;
  AssignFile(Fw, ParamStr(1));
  Reset(Fw);
//  For N:=0 to FileSize(Fw)-1 do   Esto leería todos los bytes
  For N:=0 to 61 do  //Pero conque lea 62 está bien, es lo que ocupa la estructura
    begin
    Seek(Fw, N);
    Read(Fw, W);
    WriteLn(IntToStr(W)+TAB+IntToHex(W,2)+TAB+Chr(W));
    end;
  CloseFile(Fw);
  ReadLn;
end.

La segunda parte era para ver el balor de los bytes. Efectivamente, después de la cadena de texto (que declaras demasiado larga, tienes que quitarle un carácter, 0..17 son 36 bytes) hay un byte que vale "1", pero que leyéndolo con la estructura no aparece. Me parece que habrá que buscar otra solución (o un buen porqué).

¡Ah! y si encuentras/has encontrado la solución, postéala, no me dejes con las ganas de saber qué pasaba


Saludos.

[JosepZ]

El byte de valor "1" no aparece por que array[0..16] of widechar lee 36 bytes, en vez de 34, y el integer "WattsSopePulse" se desplaza.

Lo he comprobado con el file monitor;empieza a leer en el offset 0 y lee 60 bytes, dos por encima del offset 58, donde empieza el integer.

Ni idea de por que, pero lo hace. Por eso con seek, le das el offset y el tamaño y lo lee sin problemas.

[ixMike]

Me dejas de piedra.


Esto es como aquella división que me puse de pequeño y no fui capaz de resolver (con un número no llegaba, y con el siguiente me pasaba ).

¿Controlas algún otro entorno a parte de Delphi? Creo que sería buena idea probar, incluso hacerse una librería (DLL) para leer el dichoso archivo. Aún me faltan unas pocas lecciones de C, pero si llego pronto igual puedo probar.

De verdad no se me ocurre nada más.

Saludos extraños.