День добрый, существует код отправки файла на ftp сервер:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1.bFileSendClick(Sender: TObject);
begin
With IdFTP1 do
IdFTP1.Host:=('*****');
IdFTP1.Port:=21;
IdFTP1.Username:='*****';
IdFTP1.Password:='*****';
try
IdFTP1.Connect;
IdFTP1.ChangeDir('/Home/');
if FileExists (ExtractFilePath(ParamStr(0))+'Update.rar') then IdFTP1.Put(ExtractFilePath(ParamStr(0))+'Update.rar','Update.rar',false);
finally
IdFTP1.Disconnect;
end;
|
Проблема в том, что сервер иногда бывает не доступен. Хотелось бы узнать, как сделать, что бы, при не возможности отправить файл на сервер, отправить его на запасной. Подскажите пожалуйста=(
01.07.2013, 16:51
Если ftp не доступен
Линейный вид
