Binärdatei Record auslesen\zuweisen

[Daniel]

Die Felder des Records liegen im Speicher hintereinander. Wenn Du eines der vorderen Felder - z.B. streamName - vergrößerst, rutscht alles Folgende nach hinten. Das ist schon plausibel.
Die Felder des Array können, müssen aber nicht zwingend /direkt/ hintereinander liegen. Das kannst Du mit dem Thema "Alignment" steuern. Oder eben mit dem Schlüsselwort "packed", dann liegt das Zeugs wirklich dicht an dicht im Speicher.
Entscheidend aber ist, dass Du dasselbe Alignment verwendest wie die Software, die die Datei schreibt. Da es letztlich nur 1, 2, 4, und 8 als gängige Möglichkeiten gibt, ist ausprobieren ggf. die schnellste Lösung.

[EWeiss]

Zitat von Daniel:

Die Felder des Records liegen im Speicher hintereinander. Wenn Du eines der vorderen Felder - z.B. streamName - vergrößerst, rutscht alles Folgende nach hinten. Das ist schon plausibel.
Die Felder des Array können, müssen aber nicht zwingend /direkt/ hintereinander liegen. Das kannst Du mit dem Thema "Alignment" steuern. Oder eben mit dem Schlüsselwort "packed", dann liegt das Zeugs wirklich dicht an dicht im Speicher.
Entscheidend aber ist, dass Du dasselbe Alignment verwendest wie die Software, die die Datei schreibt. Da es letztlich nur 1, 2, 4, und 8 als gängige Möglichkeiten gibt, ist ausprobieren ggf. die schnellste Lösung.

Habe es versucht wie gesagt dann verändern sich die Daten im vergleiche zum FileSize.
Hmm.. kann jetzt aber auch nicht sehen was falsch sein könnte.
Die Datei ist von fly-worship 3KB

Danke.

gruss

[Zacherl]

Ist nicht das eigentliche Problem, aber OPEN_ALWAYS solltest du zu OPEN_EXISTING ändern (bei CreateFile) und bei GetFileSize statt INVALID_HANDLE_VALUE auf INVALID_FILE_SIZE prüfen (ist der selbe Wert, nur nicht so verwirrend beim lesen ). Den zweiten Parameter kannst du hier auch auf nil setzen statt @FileSize (den Wert überschreibst du ja eh wieder sobald das Resultat der Funktion zugewiesen wird).

Zitat von EWeiss:

Habe es versucht wie gesagt dann verändern sich die Daten im vergleiche zum FileSize.

Wie meinst du das "im Vergleich zu FileSize"? Welches Alignment hast du probiert? {$A1} , also packed ?

Edit: Kannst du mal die originale (unveränderte) Definition von TSTChannel verlinken?

[EWeiss]

Zitat:

Welches Alignment hast du probiert? {$A1} , also packed ?

sorry habe vergessen wie man das Alignment zuweist. (Befehl von Delphi)
glaube das hatten wir schon mal.

Das andere werde ich ändern Danke.

Code:

TYPE STChannel
    ID          AS LONG
    streamName  AS ASCIIZ * %MAX_PATH
    freq        AS SINGLE
    volume      AS SINGLE
    pan         AS SINGLE
    mute        AS BYTE
    solo        AS BYTE
    duration    AS LONG
    percent     AS LONG
    grouplevel  AS SINGLE
    led         AS BYTE
    rMeterValue AS SINGLE
    reserved    AS ASCIIZ * 25 '// Total 320 bytes.
END TYPE

EDIT:
Geänderte Teil

Delphi-Quellcode:

    fHandle := CreateFile(PWideChar(sFile), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
    if (fHandle <> INVALID_HANDLE_VALUE) then
    begin
      FillChar(Channel, sizeof(TSTChannel) * MAXCHANNEL, 0);

      BufferSize := sizeof(TSTChannel) * MAXCHANNEL;
      FileSize := GetFileSize(fHandle, nil);
      if (FileSize = INVALID_FILE_SIZE) then
        FileSize := 0;

      if (FileSize div sizeof(TSTChannel) = 8) then
        BufferSize := FileSize;

      if (FileSize < BufferSize) then
        BufferSize := 0
      else
      bErrorFlag := ReadFile(fHandle, Channel[1], BufferSize, dwBytesReaden, nil);

      CloseHandle(fHandle);
    end;

Hab zwei shots angehängt.
Bei Packed ist der ganze Speicher verschoben.

gruss

[himitsu]

PS: das "gute" alte file of TMyRecord funktioniert immernoch.

Externe Records NIEMALS pur definiert, sondern ausschließlich PACKED oder mit explizitem {$ALIGN x} (direkt davor oder über die ganze Datei)
und {$ALIGN 1} = PACKED , egal ob Datei, Stream oder sonstwas.
denn du willst ja nicht, dass sich die Ausrichtugn irgendwann mal ändert und es dann nicht mehr zu deiner Datei passt.

Extern = von/nach außerhalb deines Programms.
(mit der Ausnahme, dass wenn die Datei/Stream ausschließlich nur von der eigenen EXE geschrieben/gelesen wird und das nicht über Programminstanzen hinweg)


AnsiChar war schonmal gut (kann auch für UTF-8 genutzt werden) oder eben WideChar, wegen Unicode.
Denn dynamische/compilerabhängige Typen sind auch verboten.

[Zacherl]

Sieht hier aber so aus, als ob das standard Alignment (von 4?) korrekt wäre. Die Pfade der hinteren Einträge des Arrays stimmen ja bis aufs letzte Byte exakt. Sicher, dass volume an der Stelle 50 sein muss?

[himitsu]

Zitat von Zacherl:

Sieht hier aber so aus, als ob das standard Alignment (von 4?) korrekt wäre.

Njain.

Es war mal vor Jahren 4 und in etwas aktuelleren Delphis ist es 8 (für Windows ... in anderen OS vielleicht anders)

http://docwiki.embarcadero.com/RADSt...chten_(Delphi)

PS:
http://docwiki.embarcadero.com/RADSt...chten_(Delphi)
http://docwiki.embarcadero.com/RADSt...Types_(Delphi)


ALIGN gibt aber nur die "maximale" Ausrichtung an.
Kleiner Typen werden an ihrer Größe ausgerichtet.
> WORD alle 2 Byte (außer &Align ist unter 2)
> Interger alle 4 Byte, also nach einem WORD bliebe eine Lücke von 2

[EWeiss]

Zitat:

PS: das "gute" alte file of TMyRecord funktioniert immernoch.

Wie meinst du das?

Zitat:

Sieht hier aber so aus, als ob das standard Alignment (von 4?) korrekt wäre. Die Pfade der hinteren Einträge des Arrays stimmen ja bis aufs letzte Byte exakt. Sicher, dass volume an der Stelle 50 sein muss?

Ich habe die Regler in Fly auf 50% gesetzt von daher müsste es stimmen.

Habe alles versucht.

Delphi-Quellcode:

  {$Align On}
  {$ALIGN 8}
  TSTChannel = record
    ID          : Integer;
    streamName  : Array [0..250] of AnsiChar;
    freq        : single;
    volume      : single;
    pan         : single;
    mute        : byte;
    solo        : byte;
    duration    : Integer;
    percent     : Integer;
    grouplevel  : single;
    led         : byte;
    rMeterValue : single;
    reserved    : Array [0..25] of AnsiChar;
  end;

  {$Align Off}

Array [0..250] of AnsiChar;

Auf
Array [0..MAX_PATH] of AnsiChar;

dann kracht es.

gruss

[himitsu]

Zitat von EWeiss:

Wie meinst du das?

http://docwiki.embarcadero.com/RADSt...d_Input-Output
var F: file of TSTChannel;

Zitat:

Delphi-Quellcode:

  {$Align On}
  {$ALIGN 8}

Eines reicht. Es ist Alles das Gleiche.

Delphi-Quellcode:

{$A+} = {$ALIGN ON} = {$ALIGN 8} wobei 8 der DEFAULT ist
{$A-} = {$ALIGN OFF} = {$ALIGN 1}

Delphi-Quellcode:

  {$ALIGN 8}  // ab hier 8
  TSTChannel = record
     ..
  end;
  {$ALIGN ON} // ab hier wieder DEFAULT

[EWeiss]

Zitat:

var F: file of TSTChannel;

Ach so meinst du da.. Danke
Aber ich benötige ein Array.

gruss