VPF::как с помощью Indy проверить соединение

Teran

Дата 5.6.2006, 14:50 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

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

Как с пом Indy быстро проверить соединение с Internet.
(Вообще нужно проверить правилный ли прокси или нет?)
smile

--------------------

Ни цего не понимаю

Snowy

Дата 5.6.2006, 14:56 (ссылка)

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

Загрузка ...

Эксперт

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

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

Пробуй установить соединение с внешним сервером.
Если не удалось - нету.

Teran

Дата 5.6.2006, 15:07 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

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

Цитата(Snowy @ 5.6.2006, 14:56

)

установить соединение с внешним сервером

а как мне это сделать с Indy не подскажеш ?

например Прокси: 10.10.10.1:80. smile

--------------------

Ни цего не понимаю

Snowy

Дата 5.6.2006, 15:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

Пишу навскидку. Примерно так:

Код

var
  tcp: TIdTCPClient;
begin
  tcp := TIdTCPClient.Create(nil);
  tcp.Host := '10.10.10.1';
  tcp.Port := 80;
  try
    tcp.Connect(4000); // если в течении 4 секунд не законнектились, значит не судьба
    MessageBox(0, 'Есть контакт', 'Угу', 0);
  except
    MessageBox(0, 'Нет контакта', 'Неа', MB_ICONERROR);
  end;
  tcp.Free;
end;

Teran

Дата 6.6.2006, 09:34 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

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

Цитата(Snowy @ 5.6.2006, 15:32

)

Пишу навскидку.

за код спасибо. он работает
но

Код


tcp.Connect(4000);

есть только в Indy компонентах версии от 9 и выше
в старых версиях timeout задать нельзя (и прога будет висеть секунд 10)

--------------------

Ни цего не понимаю

Matematik

Дата 6.6.2006, 09:43 (ссылка)

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

Загрузка ...

Эксперт

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

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

Скачай новую версию

Snowy

Дата 6.6.2006, 09:45 (ссылка)

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

Загрузка ...

Эксперт

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

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

Старые версии найти затруднительно.
Уже 9-ка считается старой.

Запускай в отдельном треде, и по срабатыванию выставляй флаг.
Так определение будет в фоновом режиме.

bravo

Дата 15.6.2006, 18:36 (ссылка)

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

Загрузка ...

Новичок

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

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

А у меня возникли проблемы. Скажем я создаю сервер. И мне нужно к нему же закоyннектиться.
Вот так "создаю" сервер.

Код


var    
  tcpS: TIdTCPServer; 
begin
  tcpS := TIdTCPServer.Create(nil);
  tcpS.defaultport:=5555;

Вот так пытаюсь законнектиться.

Код


var    
  tcpC: TIdTCPClient;    
begin
  tcpC := TIdTCPClient.Create(nil);
  tcpC.Host:= '127.0.0.1'
  tcpC.Port:= 5555;
  try
    tcpC.Connect(4000);
    MessageBox(0, 'Есть контакт', 'Угу', 0);    
  except    
    MessageBox(0, 'Нет контакта', 'Неа', MB_ICONERROR);
  end;
end;

Ошибка вылетает при выполнение коннекта. Что не так с сервером? Или я с коннектом что то намудрил, хотя чего мудрить ... copy - paste +)

Добавлено: Сори, сам разобрался. tcpS.active:=true; =)))

Это сообщение отредактировал(а) bravo - 15.6.2006, 19:17

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