E/A - fehler 6

[Grandhanate]

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.)

[DeddyH]

Entweder mit try-except arbeiten oder den Compilerschalter $I benutzen.

[edit] P.S.: Willkommen in der DP [/edit]

[Luckie]

Also E/A Fehler 6 kennt meine Delphi Hilfe nicht. Sollte es ein Betriebssystem Fehlercode sein ist das: "Das Handle ist ungültig."

Und try-except ist wohl die schlechteste Lösung, wenn überhaupt, denn dann brauch er den Code gar nicht erst schreiben, wenn er doch immer fehlschlägt.

[Grandhanate]

Laut Google kommt die Fehlermeldung vom Betriebssystem; habs jetzt mal mit try/except probiert, hat aber auch nicht geklappt.Wenn also noch jemand nen Vorschlag (vllt auch Code) hat, bitte posten

[Luckie]

Dann ist es besagter Fehlercode. Überprüf mal den Dateinamen.

Und mach mal eine ordentliche Fehlerbehandlung:

Delphi-Quellcode:

AssignFile(F, Filename); 
{$I-} // interne fehlerbehandlung ausschalten, machen wir selber
Reset(F,1); 
{$I+}
if IOResult = 0 then  // unsere Fehlerbehandlung
begin
  Seek(F,FileSize(F)-128);
  BlockRead(F, Buffer, SizeOf(Buffer)); 
  CloseFile(F);
end
else
  ShowMessage(SysErrorMessage(getLastError));

Eine vernünftige Fehlerbehandlung ist nicht nur Kosmetik für den Endbenutzer, sondern dient auch der Fehlerfindung und Vermeidung beim Entwickeln.

[Grandhanate]

Hallo,

danke für eure Hilfe; habe das ganze jetzt mal komplett umgebaut, sodass es nicht mehr zu dem Problem führt. Thema ist damit also erledigt.

[Luckie]

Und was war jetzt der Fehler?

[Larsi]

Also ich finde, dass es intelligenter wär zu überprüfen ob Winamp nochläuft, z.B. dessen Prozeess oder Fenster. Den Fehler einfach ausblenden ist auch keine gute Idee.