Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Получить список серверов  (Прочитано 415 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Shouldercannon
Постоялец

ru
Offline Offline

« : 26-12-2016 12:00 » 

Пытаюсь получить список серверов
Код: (PHP)
100.[TBBC] Master Server Version 0.5.6.101.24.151.80.35.226:27666
212.159.59.104:27888
212.159.59.104:27889
212.159.59.104:27890
163.158.166.243:27888
163.158.166.243:27891
163.158.166.243:27893
163.158.166.243:27889
163.158.166.243:28000
31.31.73.85:28777
163.158.166.243:27897
163.158.166.243:27890
212.159.59.104:27891
79.184.26.134:26667
163.158.166.243:27896
188.221.75.206:27888
155.133.34.252:27888
94.45.222.106:27816
94.45.222.106:27888
94.45.222.106:27864
94.45.222.106:27880
94.45.222.106:27850
94.45.222.106:27840
94.45.222.106:27872
.
Код: (Delphi)
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPClient1.Host := '163.158.182.243';
  IdTCPClient1.Port := 28900;
  IdTCPClient1.Connect;
end;

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
  IdTCPClient1.Socket.Write('001');
  IdTCPClient1.IOHandler.ReadStrings(Memo1.Lines);
  IdTCPClient1.Disconnect;
end;
Получаю всё, но программа повисает намертво. Где допущена ошибка?
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines