try
Form2.Ftp1.Get('
file1.txt',TPath.Combine(TPath.GetTempPath, '
file1.txt'),True,false);
Form2.Ftp1.Get('
file2.txt',TPath.Combine(TPath.GetTempPath, '
file2.txt'),True,false);
except
on e: EIdSocketError
do //<- hier würde ein Timeout auftauchen dachte ich
begin
Form2.Memo1.Lines.add(Format('
%s EIdSocketError: %d %s', [DateTimetoStr(now),e.LastError,e.
Message]);
end;
on e: EIdConnectTimeout
do
begin
Form2.Memo1.Lines.add(Format('
%s EIdConnectTimeout: %d %s', [DateTimetoStr(now),e.LastError,e.
Message]);
end;
on e: EIdReadTimeout
do
begin
Form2.Memo1.Lines.add(Format('
%s EIdReadTimeout: %d %s', [DateTimetoStr(now),e.LastError,e.
Message]);
end;
on e: EIdException
do //<- hier würde eine beliebige INDY-Exception auftauchen, hoffe ich
begin
Form2.Memo1.Lines.add(Format('
%s EIdException: %d %s', [DateTimetoStr(now),e.LastError,e.
Message]);
end;
on e:
Exception do //<- hier wird alles an Exceptions auftauchen, was bisher nicht abgefangen wurde.
begin
Form2.Memo1.Lines.add(Format('
%s %s: %s', [DateTimetoStr(now),e.ClassName,e.
Message]);
end;
end;