Einzelnen Beitrag anzeigen

Benutzerbild von smart
smart

Registriert seit: 19. Dez 2004
Ort: Bochum
1.266 Beiträge
 
Delphi 2007 Professional
 
#5

AW: Delphi Mediaplayer Fehler

  Alt 4. Dez 2011, 15:25
Delphi-Quellcode:
  if OpenDialog1.Execute then
     begin
       if ausgelesen[aktuell] = 'Spielthen aktuell := 4;
 
       Form1.Mediaplayer1.Close;
       Form1.Mediaplayer1.Filename := OpenDialog1.FileName;
       Form1.Mediaplayer1.Open;
       Form1.Mediaplayer1.Play;
       Form1.Liedtitel.AlphaChannel := 1;
       Form1.Liedtitel.Visible := true;
       Form1.Liedtitel.Caption := '♪ Play song: ' + ExtractFileName(ausgelesen[aktuell]);
       aktuell := aktuell+1;
       warten := 2000;
       ausgelesen.Free;
     end;
so würde ich das machen.
Heike Kretschmann
Viele Grüße aus Bochum

kaum denkt man alles ist fertig, da fängt man wieder von Vorn an.
  Mit Zitat antworten Zitat