Binärdatei Record auslesen\zuweisen

[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