Einzelnen Beitrag anzeigen

SittingDuck

Registriert seit: 11. Jan 2006
Ort: Leverkusen
159 Beiträge
 
Delphi 2010 Professional
 
#1

Sounddatei als Blob in SQLite

  Alt 14. Nov 2014, 12:27
Datenbank: SQLite • Version: 3.8.5 • Zugriff über: TSQLiteDatabase
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 ...
Ciao ... SittingDuck
iPhone Backup und mehr: iTwin v3.9 Beta ... Alternative Startleiste: Launcher v3.8 !
  Mit Zitat antworten Zitat