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]