Hallo,
ich habe mir die Tage ein Programm zusammengebastelt, welches Winamp ausliest un in einem kleinen Fenster Titel, Interpret etc. ausgibt. Das Problem ist, dass wenn ich Winamp schließe und das Programm noch läuft eine "E/A - fehler 6" Fehlermeldung kommt. Der Fehler tritt in der Prozedur auf, in der die ID3 Tags der Mp3 ausgelesen wird:
Delphi-Quellcode:
procedure Lese_ID3Tag(Filename:string);
var Buffer: array[1..128] of char;
F: File;
begin
AssignFile(F, Filename);
Reset(F,1);
[b]Seek(F,FileSize(F)-128);[/b] // Hier tritt der Fehler auf ...
BlockRead(F, Buffer, SizeOf(Buffer));
CloseFile(F);
with ID3Tag
do begin
ID := copy(Buffer,1,3);
Titel := copy(Buffer,4,30);
Artist := copy(Buffer,34,30);
Album := copy(Buffer,64,30);
Year := copy(Buffer,94,4);
Comment := copy(Buffer,98,30);
Genre := ord(Buffer[128]);
end;
end;
Hat da jemand eine Ahnung, wie man die Fehlermeldung umgehen kann?
Vorab schon mal vielen Dank.
Gruß Torsten
(Falls benötigt hab ich mal das ganze Projekt noch in den Anhang gesteckt.)