VPF::IdFTP1.Connect проверка - Форум программистов

akimovaleks

Дата 22.8.2010, 20:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 15
Регистрация: 13.3.2010

Репутация: нет
Всего: нет

подскажите как сделать проверку на соеденения
примерно так
если
IdFTP1.Connec // произошел
то вылоним код
иначи
выполним другой код

cat512

Дата 22.8.2010, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 438
Регистрация: 20.3.2007

Репутация: нет
Всего: 15

Ты уже написал, только надо проинициализировать свойства user password, host, port соответствующими значениями

Matematik

Дата 23.8.2010, 16:42 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50

Indy в случае ошибки кидает исключение, надо только его поймать и обработать

Код


  try
    idftp2.Host := 'my.router2';
    idftp2.Username := 'anonymous';
    idftp2.Password := 'lalala';
    idftp2.Connect(True, 10000);
  except
    on E: EIdProtocolReplyError do
      ShowMessage(Format('сервер послал нах - код %d сообщение %s', [E.ReplyErrorCode,E.Message]));
    on E: EIdException do
      ShowMessage(Format('какая-то еще ошибка %s %s', [E.ClassName,E.Message]));
    else
      raise
  end;

EIdProtocolReplyError - ошибка протокола, например - не принимает логин\пароль
EIdException - любая другая ошибка indy, например - "сервер не найден"
эти и другие исключения описаны в IdException.pas

Это сообщение отредактировал(а) Matematik - 23.8.2010, 16:45

Akella

Дата 28.8.2010, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

мне кажется, что сначала присвоить адрес сервера, потом сделать Connect, и если всё в норме, то уже передавать присваивать свойствам компоненты, логин и пароль и выполнять login или logon, точно не помню

fishick

Дата 31.8.2010, 23:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 30.8.2010

Репутация: нет
Всего: нет

Порядок такой:
IdFTP1.Host:='';
IdFTP1.Port:=21;
IdFTP1.username:='';
IdFTP1.password:='';
idftp1.Connect;

можно поместить в блок try...exept для обработки исключений

Проверка соединения выполняется так:

If IdFTP1.Connected then далее код если подключено

Akella

Дата 4.9.2010, 17:55 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 4
Всего: 329

повторяю, что для IdFTP1.Connected не нужны логин и пароль

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »