Проблемы SOAP-сервера в Delphi XE: решение для Windows 7 x64

Delphi , ОС и Железо , Windows

Разработчики, работающие с технологиями Delphi и Pascal, иногда сталкиваются с неожиданными проблемами, особенно при работе с корпоративными сетями. Одна из таких проблем связана с работой SOAP-сервера, написанного на Delphi XE, который некорректно функционирует за некоторыми прокси-серверами/фаерволами. Давайте разберемся в этой проблеме и найдем решение.

Описание проблемы

Пользователь, работающий на Windows 7 x64 за корпоративным прокси-сервером, столкнулся с проблемой, при которой SOAP-сервер, написанный на Delphi XE, переставал корректно обрабатывать запросы после первого успешного. Проблема заключалась в следующем:

• После обработки первого запроса от пользователя, сервер переставал корректно обрабатывать любые последующие запросы, включая запросы от других пользователей.
• Сервер отвечал на запросы, но SOAP-вложения в запросах казались поврежденными, что приводило к ошибкам при обработке.
• Отладочные логи показывали, что TSoapAttachment.SourceStream в параметрах запроса становился недоступным, а TSoapAttachment.CacheFile оставался пустым.
• При попытке использования SourceStream возникала ошибка доступа.
• Файлы BorlandSoapAttachment(n), созданные в папке временных файлов после первого запроса, оставались заблокированными и не удалялись после завершения запроса, в то время как файлы BorlandSoapAttachment(n+1) для последующих запросов накапливались.
• Сервер снова начинает работать после перезапуска IIS или перезагрузки пула приложений.
• С высокой степенью вероятности проблема связана с прокси-сервером или сетью пользователя, так как при работе вне корпоративной сети проблем не возникало.
• Интересно, что на Windows XP с тем же прокси-сервером проблема не наблюдалась.

Анализ проблемы и возможные решения

После детального анализа проблемы было предложено несколько направлений для решения:

1. Использование сетевого снимка (например, Wireshark) для сравнения HTTP-контента последующих запросов и анализа исходящих и входящих данных.
2. Замена использования SOAP-вложений на передачу файлов в виде Base64-строк, что может увеличить размер передаваемых данных примерно на 30%.
3. Проверка работы клиента на Windows 7 в режиме "Запуск от имени администратора", что может быть связано с политиками доступа пользователей в Windows 7.

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

Проблема, вероятно, связана с особенностями работы Windows 7 и ее политиками доступа к файлам, а также с поведением прокси-сервера. Решение может заключаться в изменении способа передачи файлов или настройке прав доступа к временным файлам на сервере.

Пример кода

Для демонстрации, приведем пример кода, который передает данные в виде Base64-строк:

uses
  System.SysUtils,
  System.Types,
  System.Classes,
  IdGlobal,
  IdBaseComponent,
  IdHTTPClient,
  IdIOHandlerSocket;

type
  TMySoapClient = class(TIdHTTPClient)
  private
    function EncodeFileAsBase64(const FileName: string): string;
  public
    procedure SendFileWithSoap;
  end;

{ TMySoapClient }

function TMySoapClient.EncodeFileAsBase64(const FileName: string): string;
var
  FileStream: TMemoryStream;
  FileData: string;
begin
  FileStream := TMemoryStream.Create;
  try
    if TFile.ReadAllBytes(FileName, FileStream) then
    begin
      FileData := TIdGlobal.Base64Encode(FileStream);
    end;
  finally
    FileStream.Free;
  end;
  Result := FileData;
end;

procedure TMySoapClient.SendFileWithSoap;
var
  FileName: string;
begin
  FileName := 'path\to\your\file.txt';
  Send('SOAPAction', 'http://tempuri.org/UploadFile');
  with RequestDo(
    ContentType := 'text/xml',
    SOAPAction := 'http://tempuri.org/UploadFile',
    SOAPBodyContent := 'element',
    SOAPBody := '<UploadFile><FileName>' + FileName + '</FileName><FileData>' + EncodeFileAsBase64(FileName) + '</FileData></UploadFile>'
    );
end;

В этом примере кода функция EncodeFileAsBase64 преобразует содержимое файла в Base64-строку, а метод SendFileWithSoap использует этот код для передачи данных в SOAP-запросе.

Заключение

При работе с SOAP-серверами в Delphi XE важно учитывать особенности работы в различных сетевых условиях и операционных системах. Приведенные выше методы могут помочь в решении проблемы, связанной с работой SOAP-сервера на Windows 7 x64 за прокси-сервером.

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

Пользователь столкнулся с проблемой корректной работы SOAP-сервера, написанного на Delphi XE, в среде Windows 7 x64 и корпоративного прокси-сервера, которая проявляется в необработанность сервером последующих запросов после успешного завершения первого.

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

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

:: Главная :: Windows ::