Разработка прозрачного RPC для сервисов на Delphi: минимизация усилий клиента

Delphi , Компоненты и Классы , RTTI

Вопрос, который стоит перед разработчиками, заключается в поиске наиболее простого решения для реализации прозрачного RPC (Remote Procedure Call) в двухъярусных приложениях на Delphi для Win32. Основная цель - вынести логику бизнес-процессов в отдельную службу, доступную для множества клиентов через TCP/IP с использованием telnet-стилевого протокола. При этом важно сохранить простоту определения функций, чтобы их не приходилось дублировать на клиенте.

Проблема

Разработчик хочет определить функцию на сервере, например Login, и использовать её на клиенте без дополнительных усилий. Однако, в текущей реализации требуется создать три функции: саму функцию на сервере, unmarshaller для разбора команд и marshaller для упаковки параметров. Это приводит к избыточности и усложнению кода.

Решение

Для упрощения процесса разработчик уже избавился от unmarshaller, используя RTTI для динамического вызова методов по имени. Однако, вопрос marshallера остаётся открытым. Возможные варианты:

1. Создание динамического коллекции псевдофункций, что сделает вызовы функций на клиенте неэстетичными и нарушит типовую безопасность.
2. Автоматическое генерация кода клиента на основе прототипов функций, полученных от сервера. Это требует смешения процесса компиляции и выполнения.
3. Использование обобщённого marshallera, который будет вызываться из всех прототипов функций клиента.
4. Применение RPC, что требует повторного определения функций в IDL и имеет другие недостатки.

Подтвержденный ответ

Использование готовых решений, таких как RemObjects SDK или kbmMW, может значительно упростить задачу. Эти фреймворки позволяют определить интерфейс и автоматически сгенерировать необходимый код для клиента и сервера.

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

Применение DataSnap, начиная с Delphi 2010, предоставляет мощную систему RPC, позволяющую создавать серверы, которые могут обслуживать любые типы и классы Delphi. Клиент может создавать прокси-код для вызова сервера, как будто он является его частью. DataSnap избавляет от необходимости использования IDL и COM, предоставляя чистый Delphi-код.

Пример кода

// Пример функции на сервере
function Login(Username: string; PinCode: integer): boolean;
// Реализация функции ...

// Пример использования DataSnap для создания клиента
uses
  System.SysUtils,
  DataSnap.DSClient,
  DataSnap.DSRemoteCalc;

type
  TRemoteCalc = interface(IInvokable)
    ['{0002042A-C13E-11CE-BF41-00AA00E120D3}']
    function Add(x, y: Double): Double; stdcall;
    function Subtract(x, y: Double): Double; stdcall;
    // Другие функции ...
  end;

var
  Calc: TRemoteCalc;
begin
  Calc := TRemoteCalc.CreateServiceConnection('127.0.0.1', 8080);
  try
    Result := Calc.Add(5, 3); // Вызов удаленной функции
  finally
    Calc.Free;
  end;
end;

Заключение

Для минимизации усилий клиента и упрощения процесса разработки RPC в Delphi-приложениях рекомендуется использовать готовые решения, такие как RemObjects SDK, kbmMW или DataSnap. Эти инструменты позволяют автоматизировать процесс создания клиентского и серверного кода, что значительно сокращает время разработки и поддерживает типовую безопасность.

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

Разработка прозрачного RPC для сервисов на Delphi с целью упрощения вызова функций сервера клиентами и минимизации усилий последних.

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

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

:: Главная :: RTTI ::