Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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



Ответ
 
Опции темы
Старый 26.12.2016, 08:38   #1
Shouldercannon
Профессионал
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Адрес: Пенза
Сообщений: 1,672
Репутация: 192

icq: 473732523
Вопрос Получить список серверов

Пытаюсь получить список серверов
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 в 10:40.
Shouldercannon вне форума   Ответить с цитированием
Старый 29.12.2016, 13:00   #2
Shouldercannon
Профессионал
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Адрес: Пенза
Сообщений: 1,672
Репутация: 192

icq: 473732523
По умолчанию

Повисало из-за того, что в
Код:

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 вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как можна получить список установленых 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




14:00.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Покупайте на сайте www.skinon.ru уникальные чехлы и наклейки для телефонов.
купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru