Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.12.2016, 07:38   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
Вопрос Получить список серверов

Пытаюсь получить список серверов
PHP код:
100.[TBBCMaster 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

Код:
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;
Получаю всё, но программа повисает намертво. Где допущена ошибка?

Последний раз редактировалось Shouldercannon; 26.12.2016 в 09:40.
Shouldercannon вне форума Ответить с цитированием
Старый 29.12.2016, 12:00   #2
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

Повисало из-за того, что в
Код:
IdTCPClient1.IOHandler.ReadStrings
не указывалось
Код:
AReadLinesCount: Integer
Код:
procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
  IdTCPClient1.IOHandler.Write('001');
  IdTCPClient1.IOHandler.ReadStrings(Memo1.Lines, 25, IndyTextEncoding(IdTextEncodingType.encOSDefault));
  IdTCPClient1.Disconnect;

  Panel1.Caption := 'Всего строк: ' + IntToStr(Memo1.Lines.Count);
end;
Как узнать AReadLinesCount при получении ответа?
Shouldercannon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как можна получить список установленых OPC серверов ?? tarasdj Общие вопросы Delphi 0 16.11.2011 16:10
Создание внутреннего и внешнего серверов. Создание серверов автоматизации. Ann_Sh Помощь студентам 3 09.10.2011 15:53
Список с заглавным звеном, из текстового файла получить список из записей и по нему уже сделать задание Zigfried Помощь студентам 2 04.10.2010 20:29
Как получить список серверов? antonyLW Работа с сетью в Delphi 2 16.06.2009 13:47
Как получить список серверов? JD-Ell Работа с сетью в Delphi 0 17.04.2009 22:34