Интеграция Delphi с C#: вызов методов классов через веб-сервис для автоматизации рабочих процессов

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

Вопрос интеграции приложений на различных языках программирования и платформах является актуальным для многих разработчиков. Особенно это касается ситуаций, когда необходимо использовать мощные компоненты и классы, написанные на Object Pascal (Delphi), в сочетании с сервисами, реализованными на C#.

Проблема и контекст

Представьте, что у вас есть приложение на Delphi, которое использует компоненты TMS Workflow для отправки электронных писем с ссылками, активирующими веб-сервис на C#. Вы хотите, чтобы после выполнения определенных операций на стороне C#, управление рабочим процессом возвращалось обратно в приложение на Delphi. Это требует доступа к классам и методам, реализованным в вашем Delphi-приложении.

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

Один из возможных подходов к решению этой задачи — использование PInvoke в C#, что позволяет вызывать функции из неуправляемых библиотек. Однако, такой подход ограничен и требует выполнения кода на той же машине, где размещена библиотека.

Подтвержденный ответ: веб-сервис на Delphi

Наиболее предпочтительным решением является создание веб-сервиса на Delphi, который будет предоставлять доступ к необходимым классам и методам. Это дает преимущество в том, что бинарные файлы Delphi могут быть установлены как на той же, так и на другой машине, и API будет независим от языка и платформы.

Для реализации веб-сервиса на Delphi можно использовать компоненты Indy для HTTP или TCP-сервера, что позволит создать универсальный API, доступный для вызова из C#.

Пример кода на Object Pascal (Delphi)

unit WebServiceUnit;

interface

uses
  System.SysUtils,
  System.Variants,
  System.Classes, System.JPEG,
  System.Rtti,
  DCPWebSvc,
  IndyCore,
  IdHTTPServer;

type
  TMyWebService = class(TIdHttpServer)
  private
    function ExecuteRequest(AContext: TIdContext): Boolean; dynamic;
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

uses
  Types;

constructor TMyWebService.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  DefaultPort := 8080;
  OnCommandGet := 'Calculate';
end;

function TMyWebService.ExecuteRequest(AContext: TIdContext): Boolean;
var
  RequestParams: TStringList;
  a, b, c: Integer;
begin
  Result := True;
  RequestParams := TStringList.Create;
  try
    AContext.Response.ContentType := 'text/xml';
    AContext.Response.Senderr := '200 OK';
    AContext.Response.Subject := 'OK';

    RequestParams := ParseQueryString(AContext.Request.QueryString);
    if RequestParams.Values['a'] <> '' then
      a := StrToIntDef(RequestParams.Values['a'], 0);
    if RequestParams.Values['b'] <> '' then
      b := StrToIntDef(RequestParams.Values['b'], 0);
    if RequestParams.Values['c'] <> '' then
      c := StrToIntDef(RequestParams.Values['c'], 0);

    // Вызов метода Delphi-класса с параметрами a, b, c
    // ...
  finally
    RequestParams.Free;
  end;
end;

end.

В этом примере создается HTTP-сервер, который обрабатывает GET-запросы с параметрами a, b и c, которые могут быть использованы для вызова методов Delphi-классов.

Заключение

Интеграция приложений на Delphi с сервисами на C# через веб-сервис предоставляет гибкое и эффективное решение для автоматизации рабочих процессов. Использование Object Pascal (Delphi) для создания веб-сервиса позволяет обеспечить доступ к необходимым классам и функциям независимо от платформы и языка программирования, что делает систему более масштабируемой и надежной.

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

Интеграция Delphi-приложения с C#-сервисом через веб-сервис для автоматизации рабочих процессов.

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

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

:: Главная :: Классы ::