Hallo
Ich programmiere einen Musik Player der seine Lieder und Pfade von Listboxen bekommt.
Doch wenn ich meine Random (also zufällig) funktion verwende dan wechselt er das lied zwar einwandfrei aber es
kommt immer eine Fehler meldung
E/A Fehler-32 mit einem OK button aber das lied läuft gewechselt im hintergrund.
Der Code ist dieser
Delphi-Quellcode:
var
ran:integer;
begin
ran := random(listbox1.Items.Capacity);
if mp.Position = MP.Length then begin
Listbox1.Selected[ran] := true;
mp.FileName := Listbox2.Items.Strings[ran];
mp.Open;
mp.Play;
RID3(mp.FileName);
Label1.Caption := TitleTag;
Label2.Caption := ArtistTag;
if Settings.ReadBool('SETTINGS','BALLOON',False) = True then begin
TI.BalloonHint := (Label1.Caption + ' ' + Label2.Caption);
TI.ShowBalloonHint;
end;
sleep(100);
end;
mp ist der MediaPlayer
RID3 ist Read ID3 also für den Titel Etc...
Settings ist eine INI datei
TI ist ein TrayIcon
Es klappt eigentlich alles also wenn ich zb. manuell umschalte benutze ich in etwa den gleichen code
und da kommt kein E/A Fehler-32
Ausgeführt wird dieser Code von einem Timer der auf 1000MS steht
ich hoffe ihr seht den Fehler rascher als ich
Vielen dank
Claudio Hediger