Stream (Cover) aus MP3 laden und in Datei speichern???

[Cylence]

Hi,

ich bau grad einen MP3 Player, und da möchte ich das Cover aus den MP3 Tags auslesen und in eine Datei speichern und dann eben anzeigen.....

so mach ich das:

Delphi-Quellcode:

         Buf := nil;
         Id3v2Tag.GetAllPictureFrameDescriptions;
         Coverstream := TFileStream.Create('c:\StreamTest.bmp', fmCreate);    //PrgPfad + '\temp\' + 'mp3Cover.bmp');
         Id3v2Tag.GetPicture(CoverStream, Id3v2Tag.GetAllPictureFrameDescriptions[1]);
         Size := CoverStream.Size - CoverStream.Position;
         if Size > 0 then
           begin
              Buf := AllocMem(Size);
              CoverStream.Read(Buf^, Size);
         end;    
         Coverstream.Write(Buf^, Size);

es kommen keine Fehler oder so, aber die Datei ist immer 0 kb groß und nix drinnen, aber was mach ich falsch, kann mir jemand helfen??? Ich kenn mich mit Streams noch nich so aus...

[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]