Sounddatei als Blob in SQLite

[SittingDuck]

Moin Moin ...

In einer SQLite Tabelle wurden *.m4a Dateien in Blob-Felder gepackt. Diese möchte ich auslesen und abspielen. Erwartet hatte ich ein Ergebnis in dieser Art: (HEX-Auszug des Headers)

Code:

00 00 00 1C 66 74 79 70 4D 34 41 20 00 00 00 00  ....ftypM4A ....
4D 34 41 20 6D 70 34 32 69 73 6F 6D 00 00 00 08  M4A mp42isom....

Jedoch sieht die Datei nach dem Speichern leider so aus und ist demnach dann auch nicht direkt abspielbar.

Code:

00 00 00 00 00 00 00 1C 00 66 00 74 00 79 00 70  .........f.t.y.p
00 4D 00 34 00 41 00 20 00 00 00 00 00 00 00 00  .M.4.A. ........
00 4D 00 34 00 41 00 20 00 6D 00 70 00 34 00 32  .M.4.A. .m.p.4.2

Die Daten lese ich ungefähr folgendermaßen aus:

Code:

var Blob: TSQLiteBlobStream; ms: TStringStream; b: Byte;

ms := TStringStream.Create('');
if Blob.Size > 0 then begin 
 ms.Position := 0;
 ms.CopyFrom(Blob, Blob.Size);
 // with Blob do 
 // while Position < Pred(Size) do begin
 // Read(b, 1); 
 // if Odd(Position) then ms.WriteBuffer((b), 1);
 // end; ^^ tut es leider auch nicht ... Unicode, UTF8 ?
 Blob.Free; 
 ms.Position := 0; 
 ms.SaveToFile('Test.m4a');
end;

Die auskommentierten Stellen zeigen einen Versuch nur jede zweite Zahl zu nehmen, aber das funktioniert leider auch nicht, weil über die gesamte Datei gesehen eben nicht nur Nullen vor jeder Zahl stehen, sondern auch ab und zu mal ein $FF oder $04 oder eine $06 übersprungen wird. Warscheinlich ist die Lösung ganz einfach, aber ich komme hier nicht weiter. Danke schon mal für Eure Hilfe.

Total verHEXt grüßt ...