Hi,
entschuldigung, dass ich nochmal poste, aber da ist noch ein Problem aufgetaucht: Die Sache mit der vom Programm erstellten
Exception hab ich mittlerweile in den Griff bekommen
, aber was kommt danach
; ich meine, der Anwender muss ja früher oder später auch mal eine Datei öffnen können,
nachdem er einen Dateinamen falsch eingegeben hat; das heißt also im Klartext
Ich möchte wissen, wie man den ÖffnenDialog noch 'am Leben erhalten' kann, bis der Benutzer entweder auf 'Abbrechen' klickt, oder eine Datei öffnet;
Hoffe, ihr versteht mein Problem;
Mein Quelltext sieht momentan folgendermaßen aus:
Delphi-Quellcode:
try
mediaplayer1.Open;
except
HandleMCIDeviceError;
try
fileLoad1.Execute;
except
on E: EMCIDeviceError do HandleMCIDeviceError2;
end;
end;
Jetzt die beiden Fehlerbehandlungsroutinen:
Delphi-Quellcode:
procedure TForm1.HandleMCIDeviceError;
begin
ShowMessage('Datei kann nicht geöffnet werden!'+#13+'Player wurde nicht geöffnet!');
Form1.MediaPlayer1.Close;
end;
procedure TForm1.HandleMCIDeviceError2;
begin
ShowMessage('Es wurde keine Datei geladen!');
end;