Создание серверов WebSocket для Delphi: практические примеры

Delphi , Интернет и Сети , Сокеты

WebSocket – это протокол, обеспечивающий двунаправленную связь между клиентом и сервером через одну открытую соединение. Он часто упоминается как ключевой элемент HTML5 и получил официальное признание (RFC 6455). Для разработчиков на Delphi существует несколько решений для реализации WebSocket серверов, которые можно использовать в своих проектах.

Доступные реализации WebSocket серверов для Delphi

Delphi on Rails

Этот проект доступен на Google Code и распространяется по лицензии Mozilla Public License 1.1. Он предоставляет возможность работы как с устаревшим, так и с новым протоколом WebSocket.

Delphi Web Socket

Этот компонент основан на Indy 9 и распространяется по лицензии New BSD License. Он также доступен на Google Code.

WebSockets Delphi Components

Это коммерческое решение, которое поддерживает Indy 10 и совместимо с Delphi 7 до Rio.

Альтернативные варианты

Помимо вышеупомянутых, существуют и другие проекты, например:

• bauglir-websocket: Реализация WebSocket сервера/клиента на Pascal и C#.
• ics-websockets: WebSockets сервер для Delphi, основанный на Internet Component Suite (ICS).

IPworks for Delphi

Это набор компонентов для Delphi, предоставляющий широкие возможности для создания интероперабельных приложений, но является платным.

mORMot Framework

Это мощная библиотека, которая, несмотря на некоторые недостатки в документации и поддержке протокола WebSocket, предоставляет стабильную SQLite базу данных и может использоваться в производственных условиях с большим количеством событий.

Indy WebSockets

Это более новая версия Indy реализации от Андре Муссше, доступная на GitHub и получившая положительные отзывы от пользователей.

Практические примеры

Для демонстрации возможностей WebSocket сервера на Delphi, рассмотрим простой пример кода на Object Pascal:

program WebSocketServer;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Indy.Components,
  Indy.Protocols;

type
  TWebSocketServer = class(TInterfacedWrapper, TIdServer, TIdIOHandlerServer)
  private
    fWebSocket: TIdWebSocketIOHandler;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Execute; override;
  end;

{ TWebSocketServer }

constructor TWebSocketServer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fWebSocket := TIdWebSocketIOHandler.Create(self);
  IOHandler := fWebSocket;
  Active := True;
end;

destructor TWebSocketServer.Destroy;
begin
  fWebSocket.Free;
  inherited Destroy;
end;

procedure TWebSocketServer.Execute;
begin
  inherited;
  while not Terminated do
    WaitForAnyEvent(100);
end;

procedure TWebSocketServer.BeforeConnect(AContext: TIdIOHandlerContext);
begin
  inherited;
  fWebSocket.BeforeConnect(AContext);
end;

procedure TWebSocketServer.OnConnect(AContext: TIdIOHandlerContext);
begin
  inherited;
  fWebSocket.OnConnect(AContext);
  with fWebSocket do
  begin
    // Подключаем обработчик событий WebSocket
    OnPong := OnHandshakeComplete := nil;
    OnHandShake := OnTextMessage;
    OnBinaryMessage := nil;
  end;
end;

procedure TWebSocketServer.OnHandShake(AContext: TIdIOHandlerContext);
begin
  inherited;
  fWebSocket.OnHandShake(AContext);
  if fWebSocket.HandShaked then
  begin
    with fWebSocket do
    begin
      // Отправляем приветственное сообщение
      SendText('Привет, это WebSocket сервер на Delphi!');
    end;
  end;
end;

procedure TWebSocketServer.OnTextMessage(AContext: TIdContext; const ASender: TIdSocketHandle; const AData: string; var AProcessed: Boolean);
begin
  inherited;
  with AContext.Connection.IOHandler as TIdWebSocketIOHandler do
  begin
    // Обработка входящего текстового сообщения
    if AData = 'Ping' then
    begin
      SendText('Pong');
      AProcessed := True;
    end;
  end;
end;

var
  Server: TWebSocketServer;
begin
  Server := TWebSocketServer.Create(nil);
  Server.DefaultPort := 8080;
  Server.BindToIP('0.0.0.0');
  Server.Active := True;
  try
    // Ждем завершения программы пользователем
    Readln;
  finally
    Server.Active := False;
    Server.Free;
  end;
end.

Этот код создает простой WebSocket сервер, который слушает на порту 8080 и отвечает на текстовые сообщения. В примере реализована обработка сообщения "Ping" с ответом "Pong".

Заключение

Создание WebSocket сервера на Delphi может быть выполнено с использованием различных библиотек и компонентов. Каждое из решений имеет свои особенности и может быть выбрано в зависимости от конкретных требований проекта. Приведенный пример кода демонстрирует базовую реализацию сервера и может служить отправной точкой для дальнейшей разработки.

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

Создание серверов WebSocket для Delphi, с примерами реализации и использованием различных библиотек и компонентов.

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

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

:: Главная :: Сокеты ::