Как добавить SOAP-веб-сервис в приложение на Delphi 2006 с Indy 10

Delphi , Синтаксис , Ошибки и Исключения

Разработчики, столкнувшиеся с необходимостью интеграции SOAP-веб-сервиса в приложение, созданное с использованием Delphi 2006 и Indy 10, часто сталкиваются с проблемой несовместимости примеров, предоставляемых Delphi, которые требуют Indy 9. В данной статье мы рассмотрим, как можно добавить функционал веб-сервиса в ваше приложение, не изменяя версию Indy.

Проблема

Вам необходимо добавить в ваше приложение, разработанное на Delphi 2006 с использованием Indy 10, функционал веб-сервиса для взаимодействия с пользователями через SOAP. Примеры, предоставляемые Delphi, требуют Indy 9, что не является приемлемым вариантом, так как ваше приложение зависит от Indy 10. Также вы не нашли других пакетов, которые могли бы предоставить подобную функциональность.

Возможные решения

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

Один из вариантов - использование Apache в качестве сервера, который будет обрабатывать запросы к вашему веб-сервису. Для этого можно создать модуль Apache, который будет содержать вашу логику (TWebModule) и служить в качестве веб-сервера.

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

Другой вариант - использование SDK от RemObjects, которое поддерживает как Indy 9, так и Indy 10. Однако стоит учесть, что это может быть не самым бюджетным решением.

Подтвержденное решение

Согласно подтвержденному ответу, с использованием последней версии Indy 10.5.7 (ветка Tiburon) и следуя руководству, опубликованному на сайте Digicoast, вы можете создать простой автономный SOAP-сервер с использованием Delphi 2009. Это решение также должно быть применимо и к Delphi 2006. Сервис можно использовать с клиентами на Java (JAX-RPC), однако рекомендуется проверить совместимость всех типов данных.

Пример кода

// Пример класса для обработки SOAP-запросов
unit SOAPService;

interface

uses
  System.SysUtils,
  System.Classes,
  Indy.Protocols.SOAP,
  Indy.Protocols.HTTP;

type
  TSOAPHandler = class
  protected
    function DoGET(const AContext: TIdHTTPRequestContext): string; override;
    function DoPOST(const AContext: TIdHTTPRequestContext): string; override;
  public
    constructor Create;
  end;

implementation

uses
  System.TypInfo; // Для работы с метаданными

constructor TSOAPHandler.Create;
begin
  inherited Create;
  // Настройка обработчика
end;

function TSOAPHandler.DoGET(const AContext: TIdHTTPRequestContext): string;
begin
  Result := inherited;
  // Обработка GET-запросов (например, WSDL)
end;

function TSOAPHandler.DoPOST(const AContext: TIdHTTPRequestContext): string;
var
  RequestSOAP: TIdSOAP;
  ResponseSOAP: TIdSOAP;
begin
  Result := inherited;
  if AContext.Response.SOAPEnabled then
  begin
    RequestSOAP := TIdSOAP.Create(nil);
    try
      RequestSOAP.Parse(AContext.RequestContentStream, False);
      // Обработка SOAP-запроса
      ResponseSOAP := TIdSOAP.Create(nil);
      ResponseSOAP.Version := tvSoap11;
      with ResponseSOAP.Body.AddMethod('SomeService', 'SomeMethod') do
      begin
        // Установка параметров ответа
      end;
      // Возврат SOAP-ответа
      Result := ResponseSOAP.WriteToString;
    finally
      RequestSOAP.Free;
    end;
  end;
end;

end.

Комментарии и решения проблем

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

Заключение

Добавление SOAP-веб-сервиса в приложение на Delphi 2006 с Indy 10 возможно, несмотря на ограничения, связанные с версией Indy. Используя подходы, описанные выше, вы сможете интегрировать необходимый функционал, минимизируя необходимость изменения существующего кода и зависимостей.

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

Разработчикам, использующим Delphi 2006 и Indy 10, необходимо добавить функционал SOAP-веб-сервиса, несмотря на проблемы совместимости примеров, требующих Indy 9.

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

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

:: Главная :: Ошибки и Исключения ::