"TCP Клиент-сервер с Indy в Delphi 7: Простой Демонстрационный Код"

Delphi , Интернет и Сети , TCP/IP

TCP Клиент-Сервер с Indy в Delphi 7: Простой Демонстрационный Код

Введение: Интернет-Директори (Indy) – это мощная библиотека для работы с сетью, которая поддерживается и активно используется разработчиками на Delphi. Несмотря на то что некоторые ссылки, ведущие к демонстрациям Indy, могут быть неактуальными или неработоспособными, существуют альтернативные способы изучения основ TCP-клиент/сервер взаимодействия с использованием Indy.

Шаг 1: Подготовка окружения

Для начала работы вам понадобится установленный пакет Indy для вашего проекта Delphi. Обычно он доступен через компоненты Delphi, которые можно установить через менеджер пакетов.

uses
  IdGlobal,
  IdTCPClient;

Шаг 2: Создание TCP клиента

Создадим простой TCP-клиент для отправки данных серверу. Ниже представлен пример кода, который инициализирует клиента и отправляет строку.

procedure SendMessageToServer(const AServerIP: string; const Port: Integer);
var
  TCPClient: TIdTCPClient;
begin
  TCPClient := TIdTCPClient.Create(nil);
  try
    TCPClient.Host := AServerIP;
    TCPClient.Port := Port;
    TCPClient.Connect;

    // Отправляем данные серверу через поток вывода
    TCPClient.IOHandler.WriteLn('Привет, сервер!');

    // Получаем подтверждение от сервера
    if TCPClient.IOHandler.ReadLn = 'Получено' then
      ShowMessage('Сообщение получено сервером');
  finally
    TCPClient.Free;
  end;
end;

Шаг 3: Создание TCP сервера

Теперь создадим TCP-сервер, который будет ожидать входящие соединения и обрабатывать их.

procedure SetupServer(const APort: Integer);
var
  TcpListener: TIdTCPServer;
begin
  TcpListener := TIdTCPServer.Create(nil);
  try
    TcpListener.OnExecute := ServerExecute;
    TcpListener.DefaultPort := APort;
    TcpListener.Active := True;

    // Ожидаем, пока сервер будет работать (например, в цикле)
    while True do
      Sleep(1000);
  finally
    TcpListener.Free;
  end;
end;

procedure ServerExecute(AContext: TIdContext);
begin
  // Приняли соединение, обрабатываем запрос клиента
  var Message: string = AContext.Connection.IOHandler.ReadLn;
  if Message <> '' then
  begin
    // Отправляем подтверждение обратно клиенту
    AContext.Connection.IOHandler.Write('Получено');
  end;
end;

Заключение:

В этой статье мы рассмотрели, как создать простой TCP-клиент и сервер с использованием Indy в Delphi. Несмотря на отсутствие некоторых рабочих примеров, вы можете использовать вышеуказанный код как основу для своих проектов или адаптировать существующие демо из Indy 9 для использования с Indy 10.

Примечание: Убедитесь, что у вас установлена последняя версия Indy и Delphi, чтобы избежать возможных проблем совместимости. Для более сложных примеров рекомендуется обратиться к документации Indy или специализированным ресурсам по Delphi программированию.

Создано по материалам из источника по ссылке.

Текст описывает, как создать простой TCP-клиент и сервер в среде Delphi 7 с использованием библиотеки Indy для демонстрации клиент-серверного взаимодействия по протоколу TCP.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TCP/IP ::