Startest du dein Programm aus der Delphi
IDE ? Dann ueberpruefe mal folgende
Einstellung: Menu -> Tools -> Debugger Options ->Language Exceptions -> Stop On Delphi Exceptions.
Alternativ das Programm normal ueber den Windows Explorer starten. Der Debugger fuehrt naemlich nicht
die Anweisung unter
Exception aus, sondern stoppt einfach.
Ich wuerde aber die Anweisungen nacheinander ausfuehren, da das Kommando in
der
Exception Routine auch einen Fehler produzieren kann.
Delphi-Quellcode:
var errorbit = Boolean;
[...]
try
IdFTP1.MakeDir('Testordner');
except
on EIdProtocolReplyError do errorbit := True;
end;
if errorbit then
begin
try
IdFTP1.ChangeDir('Testordner');
except
on EIdProtocolReplyError do // tue irgendetwas;
end;
end;