mcidevice error bein Laden bestimmter Lieder in Mediaplayer

[sorensen]

Hallo,

ich arbeite mit Turbo Delphi 2006 und habe bei meinem Musik Programm festgestellt,das einige lieder
nicht in den MediaPlayer geladen werden können ohne eine Fehlermeldung mcidevice error auszulösen.

ich wollte mit :

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if Form1.OpenDialog1.Execute then
    begin
          try
          form1.MediaPlayer1.FileName:= OpenDialog1.FileName;
          finally
            showmessage('Fehler');
          end;
  end;
end;

herausfinden welche Lieder Probleme beim Laden machen.

Leider Zeigt mein Programm jetzt bei jedem Lied Fehler an

obwohl ich mit dem nächsten Button das Lied problemlos starten kann

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
      form1.MediaPlayer1.Open;
      form1.MediaPlayer1.Play;
end;

kann mir jemand sagen was hier falsch ist

[AnCorr]

Hallo

Vielleicht schon etwas alt, aber ich habe deine Frage erst jetzt gelesen.

Zitat:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if Form1.OpenDialog1.Execute then
    begin
          try
          form1.MediaPlayer1.FileName:= OpenDialog1.FileName;
          finally
            showmessage('Fehler');
          end;
  end;
end;

Dass Du nun bei jedem Lied eine Fehlermeldung bekommst ist klar, da der 'finally' Zweig IMMER ausgefuehrt wird.
Fuer deinen Zweck musst Du hier anstatt 'finally' die Direktive 'except' verwenden. Der Zweig wird dann nur im Fehlerfall ausgefuehrt.


Gruss
AnCorr