Ошибка при загрузке файлов через WSDL в Delphi: решение проблемы с TByteDynArray и Base64

Delphi , Синтаксис , Шифрование

При работе с WSDL и веб-сервисами в Delphi часто возникает задача передачи файлов. В частности, это может быть реализовано через кодирование файлов в Base64 и передачу их в виде массива байт (TByteDynArray). Однако, как показывает пример кода пользователя boris.nihil, такой подход может привести к проблемам, особенно когда сервер не принимает переданные данные. В данной статье мы рассмотрим возможные причины этой проблемы и предложим решения, включая альтернативный подход.

Проблема:

Пользователь boris.nihil столкнулся с проблемой при загрузке файлов (TXT и PDF) на сервер через веб-сервис, описанный WSDL. Файлы кодировались в Base64, преобразовывались в TByteDynArray и передавались в функцию uploadSKZZRacun. Сервер отклонял запрос, указывая на ошибку в шифровании (или, как выяснилось позже, в невозможности верифицировать подпись).

Анализ проблемы и решение:

Основная проблема, как предположил ertank, заключается в том, что WSDL может автоматически обрабатывать кодирование в Base64. Это означает, что нет необходимости вручную кодировать файл в Base64 и передавать его как TByteDynArray.

Решение, предложенное ertank (и оказавшееся верным):

Использовать TFile.ReadAllBytes для чтения содержимого файла непосредственно в TByteDynArray. Это позволяет избежать ручного кодирования в Base64.

uses
  System.IOUtils;

...

dat_unl.datoteka := TByteDynArray(TFile.ReadAllBytes(filenameedit1.text));

Пояснения к коду:

• System.IOUtils - модуль, содержащий класс TFile и функцию ReadAllBytes.
• TFile.ReadAllBytes(filenameedit1.text) - читает содержимое файла, указанного в filenameedit1.text, и возвращает его в виде массива байт (TBytes).
• TByteDynArray(TFile.ReadAllBytes(filenameedit1.text)) - преобразует TBytes (являющийся синонимом для TArray<Byte>) в TByteDynArray. Это необходимо, так как тип свойства datoteka в классе Datoteka определен как TByteDynArray.

Важно! Этот код предполагает использование достаточно новой версии Delphi, которая включает модуль System.IOUtils и функцию TFile.ReadAllBytes.

Альтернативное решение (для старых версий Delphi):

Если вы используете старую версию Delphi, в которой отсутствует System.IOUtils.TFile.ReadAllBytes, можно использовать TFileStream для чтения файла в массив байт.

uses
  Classes;

...

var
  FS: TFileStream;
  FileSize: Integer;
begin
  FS := TFileStream.Create(filenameedit1.text, fmOpenRead);
  try
    FileSize := FS.Size;
    SetLength(dat_unl.datoteka, FileSize);
    FS.Read(dat_unl.datoteka[0], FileSize);
  finally
    FS.Free;
  end;
end;

Пояснения к коду:

• Classes - модуль, содержащий класс TFileStream.
• TFileStream.Create(filenameedit1.text, fmOpenRead) - создает файловый поток для чтения файла.
• FS.Size - возвращает размер файла в байтах.
• SetLength(dat_unl.datoteka, FileSize) - устанавливает размер массива dat_unl.datoteka равным размеру файла.
• FS.Read(dat_unl.datoteka[0], FileSize) - читает содержимое файла в массив dat_unl.datoteka.
• FS.Free - освобождает файловый поток.
• try...finally - гарантирует, что файловый поток будет освобожден, даже если произойдет ошибка.

Дополнительные рекомендации:

• Обработка ошибок: Всегда добавляйте обработку ошибок при работе с файлами и веб-сервисами. Используйте блоки try...except для перехвата исключений и предоставления информативных сообщений об ошибках.
• Безопасность: При работе с файлами, особенно загружаемыми от пользователей, необходимо уделять внимание безопасности. Проверяйте расширения файлов, ограничивайте размер загружаемых файлов и проводите другие проверки для предотвращения загрузки вредоносного кода.
• try...finally: Обязательно заключайте создание объектов в блоки try...finally для гарантированного освобождения ресурсов. Это предотвращает утечки памяти и другие проблемы. В примере boris.nihil отсутствует блок try...finally для zahtjev и dat_unl.

Пример с использованием try...finally:

var
  zahtjev: UploadSKZZRacunRequest;
  dat_unl: Datoteka;
  rezultat: UploadResponse;
  FS: TFileStream; // Добавлено для альтернативного решения
  FileSize: Integer; // Добавлено для альтернативного решения
begin
  zahtjev := UploadSKZZRacunRequest.Create;
  try
    dat_unl := Datoteka.Create;
    try
      dat_unl.naziv := ExtractFileName(filenameedit1.text);

      // Используем предложенное решение ertank (если доступен System.IOUtils)
      // dat_unl.datoteka := TByteDynArray(TFile.ReadAllBytes(filenameedit1.text));

      // Альтернативное решение для старых версий Delphi
      FS := TFileStream.Create(filenameedit1.text, fmOpenRead);
      try
        FileSize := FS.Size;
        SetLength(dat_unl.datoteka, FileSize);
        FS.Read(dat_unl.datoteka[0], FileSize);
      finally
        FS.Free;
      end;

      zahtjev.unl := dat_unl; // Устанавливаем свойство unl

      rezultat := (HTTPRIO1 as CezihWs).uploadSKZZRacun(zahtjev);

    finally
      dat_unl.Free;
    end;
  finally
    zahtjev.Free;
  end;
end;

Вывод:

При загрузке файлов через WSDL в Delphi важно понимать, как обрабатывается кодирование Base64. В большинстве случаев, WSDL автоматически выполняет кодирование, и нет необходимости вручную преобразовывать файлы в Base64. Использование TFile.ReadAllBytes (или TFileStream для старых версий Delphi) позволяет напрямую читать содержимое файла в TByteDynArray и передавать его на сервер. Не забывайте об обработке ошибок и использовании блоков try...finally для обеспечения надежности и безопасности вашего кода. Также, убедитесь, что вы правильно устанавливаете свойства объекта запроса (в примере, zahtjev.unl := dat_unl;).

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

Статья описывает решение проблемы с загрузкой файлов через WSDL в Delphi, связанной с некорректной обработкой кодирования Base64 и использованием TByteDynArray.

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

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

:: Главная :: Шифрование ::