Forum: Programmieren allgemein
Delphi
by KodeZwerg,
17. Apr 2018
Jetzt schon, als ich schrieb war's noch ohne Bild, wie immer GFX lösen "will auch" faktor aus hehe
ps: Sie haben Post.
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
17. Apr 2018
Ja das ignoriere, das hatte ich noch beim testen drinnen damit ich weiß wo ich bin (bevor HolgerX mit korrekter definition kam)
Nun kann es ja bei Dir losgehen,
Viel Erfolg!
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
17. Apr 2018
Ok, Dein Tool bringt die gleichen Ergebnisse, #8 und #9 entweder defekt oder sonst was.
procedure TForm2.Button1Click(Sender: TObject);
type
TSTChannel = packed record
ID : LONGINT;
streamName : Array of AnsiChar;
freq : single;
volume : single;
pan : single;
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
17. Apr 2018
Hallo HolgerX, ich habe mal deine Type definition ausprobiert, für Record 1-7 aus der .bin klappt es mit der "StreamName" nun, Record 8 und 9 wird übersprungen.
Per HexEdit zeigt der mir für #8 auch einen gekappten Namen an ("weetly Broken (A)\Loop.mp3" alle anderen beginnen mit "Sweetly Broken") und #9 ist leer.
Könnte es sein dass das (#8 und #9) entfernte Records sind? Also Überbleibsel.
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
17. Apr 2018
Nein, ich brauch korrekte Daten für's erste Record damit ich deine Type definition überarbeiten kann, da stimmt was nicht.
Alternativ spiel mit diesem Schnippsel rum, mit dem entstand das Bild von oben. Nicht lachen aber so mach ich es.
procedure TForm2.Button1Click(Sender: TObject);
type
TSTChannel = packed record
ID : Integer;
// streamName : Array of AnsiChar;
...
Forum: Programmieren allgemein
Delphi
by KodeZwerg,
17. Apr 2018
Hab arge Probleme mit deiner RecordSize, schreib oder Knipps mal erstes Record und sag exakt wie dafür die werte sein müßten.
Momentan komm ich damit nicht klar, siehe Bild.