Листинг 11.2. Реализация простого клиента
procedure TForm1.Button1Click(Sender: TObject);
begin
//Соединяемся с сервером и посылаем ему введенную строку
IdTCPClient1.Host := txtServer.Text;
IdTCPClient1.Connect;
IdTCPClient1.WriteLn(txtMessage.Text);
txtMessage.Text := \'\
//Ожидаем ответ и закрываем соединение
txtResults.Lines.Append(IdTCPClient1.ReadLn);
IdTCPClient1.Disconnect;
end;
ТЕЛЕГРАМКанал с обзорами, анонсами новинок и книжными подборками
Книжный Вестник
Бот для удобного поиска книг (если не нашлось на сайте)
Поиск книг
Свежие любовные романы в удобных форматах
Любовные романы
О психологии, саморазвитии и личностном росте
Саморазвитие
Детективы и триллеры, все новинки
Детективы
Фантастика и фэнтези, все новинки
Фантастика
Отборные классические книги
Классика
ВКОНТАКТЕБиблиотека с любовными романами, которая наверняка придётся по вкусу женской части аудитории
Любовные романы
Библиотека с фантастикой и фэнтези, а также смежных жанров
Фантастика
Самые популярные книги в формате фб2
Топ фб2
книги