[mishqa35]

Всем доброго вечера.
Вопщем имеется форма на ней IdFTP1, OpenDialog1, Edit1, Label1, Button1 и Button2
Задача передать 1 файл на ftp
Вот мой код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
  begin
    IdFTP1.Host := '10.24.2.70';  // ip или имя FTP сервера
    IdFTP1.Username := 'misha'; // Имя пользователя
    IdFTP1.Password := 'password';  // Пароль
    if idFTP1.connected=false then idFTP1.Connect(True,-1); // Проверяем подключение
    Label1.Font.Color := clGreen;  // Меняем цвет Label1 на "Зеленый"
    Label1.Caption := 'Подключен';  // Пишем на Label1 "Подключен"
    //Label1.Font.Color := clRed;  // Меняем цвет Label1 на "Красный"
    //Label1.Caption := 'Не подключен';  // Пишем на Label1 "Не подключен"
    //if not IdFTP1.Connected then IdFTP1.Connect(False);
  end;

procedure TForm1.Button2Click(Sender: TObject);
  begin
    Edit1.Clear;  // Очищаем поле Edit1
    OpenDialog1.Execute;
    Edit1.Text := OpenDialog1.filename;
  end;

procedure TForm1.Button1Click(Sender: TObject);
  var
    Soob: string;
    File_name : string;
  begin
    File_name := ExtractFilename(OpenDialog1.FileName); // Получаем имя файла
    IdFTP1.Put(Edit1.Text, File_name);
    Soob := 'Файл '+ File_name +' успешно добавлен на '+ idftp1.Host;
      MessageDlg(Soob, mtinformation, [mbOk], 0);
  end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    if IdFTP1.Connected then
      IdFTP1.Disconnect;  // Закрываем соединение
  end;

Вопрос состоит в том как при запуске программы узнать доступен ли FTP и вывести это в Label1 - разобрался тока с тем чтобы выводил доступен. если ftp не доступен то прога виснет.
На php все было бы примерно так..

PHP код:

if (idFTP1.connected != "false") {
 $FontColor = "clGreen";
 $caption = "Подключен";
} else {
 $FontColor = "clRed";
 $caption = "Не подключен";
}
Label1.Font.Color = $FontColor;
Label1.Caption = $caption; 


Но не как не могу реализовать это на delphi

ps; Строга не судите в delphi всего третий день

[lmikle]

Посмотри - а неит ли там свойства у IdFTP - Timeout.
Высталяешь там какое-нить разумное значение и пытаешься подключиться. Если все ОК, то прога идет дальше, если не смогли -получишь эксепшн - обработаешь его, типа:

Код:

Try
  IdFTP1.Connect;
  Label1.Caption := 'Conected!';
Except
  Label1.Caption := 'FTP unavalable!';
  Exit;
End;

[mishqa35]

lmikle, спасибо, разобрался кое как

Теперь интересует еще пара вопросов.
1. Как остановить заливку файла - вначале IdFTP1.Disconnect;
после конектимся обратно проверяем есть ли там файл с таким названием, если есть то удаляем его. - (Разабрался)

2. Как показать индикатор типа скока закачено уже, а скока осталось в % и в Мб, у мня реализована полоска через ProgressBar1 но хочется подругому.
Хелп ме..

[mishqa35]

Админы закройте темку.