Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
31. Okt 2003
Moin DelphiUser,
von da aus geht er also in den Except Zweig!?
Hätte ja bei einer ungültigen Datei durchaus seine Berechtigung, und ist gewollt, weil dann ja der Dialog nicht geschlossen werden darf.
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
31. Okt 2003
Moin DelphiUser,
als erstes könntest Du mal im OnCanClose des OpenDialoges als erste Zeile hinter try noch ein MediaPlayer1.Close hinzufügen.
Anschliessend setz mal auf diese Zeile einen Breakpoint, und geh' mal im Einzelschritt (F7) durch den Code, sobald das Programm auf den Breakpoint gelaufen ist. Dann können wir mal einkreisen, wo der Fehler ausgelöst wird.
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
23. Okt 2003
Moin DelphiUser,
ich weiss ja nicht, was Du sonst noch so alles in Deinem Programm drinhast, aber bei mir funktioniert's.
Forum: Sonstige Fragen zu Delphi
Delphi
by Christian Seehase,
23. Okt 2003
Moin DelphiUser,
ausserdem könnte man auch einfach das OnCanClose Ereignis des Dialoges benutzen:
procedure TForm1.OpenDialog1CanClose(Sender: TObject;
var CanClose: Boolean);
begin
try
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;