Решение проблемы загрузки изображений на VCL-сервер через HTTP: пустой поток `ARequestInfo.PostStream`

Delphi , Интернет и Сети , Браузер

Решение проблемы загрузки изображений на VCL-сервер через HTTP: пустой поток ARequestInfo.PostStream

В процессе разработки веб-приложений на языке Object Pascal с использованием VCL и компонентов Indy, разработчики часто сталкиваются с необходимостью загрузки файлов на сервер. В данном случае, рассматривается проблема загрузки изображений на HTTP-сервер, реализованный в VCL-приложении. Проблема заключается в том, что при попытке загрузить изображение через веб-форму, поток ARequestInfo.PostStream оказывается пустым, что препятствует чтению данных изображения.

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

В коде обработчика команды сервера TForm6.HTTPServerCommandGet присутствует блок, отвечающий за сохранение загружаемого изображения. Однако, несмотря на то, что в HTML-форме установлен правильный enctype="multipart/form-data", поток ARequestInfo.PostStream остается пустым, что не позволяет прочитать загружаемое изображение.

Пример кода

procedure TForm6.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  imageStream: TMemoryStream;
begin
  // ...
  else if Pos('command=saveImage', ARequestInfo.UnparsedParams) > 0 then
  begin
    imageStream := TMemoryStream.Create;
    try
      ARequestInfo.PostStream.Seek(0, soFromBeginning);
      imageStream.LoadFromStream(ARequestInfo.PostStream);
      imageStream.SaveToFile('picture.jpeg');
    finally
      imageStream.Free;
    end;
  end;
end;

function UploadImageForm: string;
var
  uploadImageHTMLForm: TStringBuilder;
begin
  // ...
  // Формирование HTML-формы для загрузки файла
  // ...
end;

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

Для корректной работы с загрузкой файлов через HTTP в формате multipart/form-data необходимо использовать специальные методы для обработки данных из запроса. Так как TIdHTTPServer не поддерживает multipart/form-data напрямую, требуется дополнительный код для извлечения содержимого файла из тела запроса.

Альтернативный ответ: пример извлечения данных

Для решения проблемы можно использовать следующий подход. После того как сервер получает запрос на сохранение изображения, нужно прочитать тело запроса, чтобы извлечь данные файла. Это можно сделать, используя методы TIdMultipartFormDataParser, который предоставляет Indy для обработки данных в формате multipart/form-data.

uses
  IdGlobal, IdHTTP, IdMultipartFormDataParser;

procedure TForm6.HTTPServerCommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  Parser: TIdMultipartFormDataParser;
  Part: TIdMultipartFormData;
  Stream: TMemoryStream;
begin
  if Pos('command=saveImage', ARequestInfo.UnparsedParams) > 0 then
  begin
    Parser := TIdMultipartFormDataParser.Create(ARequestInfo.PostStream, TEncoding.UTF8);
    try
      while Parser.NextPart(Part) do
      begin
        if Part.PartName = 'uploadField' then
        begin
          Stream := TMemoryStream.Create;
          Stream.CopyFrom(Part.ContentStream, Part.ContentLength);
          Stream.SaveToFile('picture.jpeg');
          Stream.Free;
        end;
      end;
    finally
      Parser.Free;
    end;
  end;
end;

Важные замечания

При работе с multipart/form-data важно правильно обработать заголовки запроса и данные, отправляемые клиентом. Необходимо убедиться, что форма в HTML-документе корректно настроена на отправку данных в формате multipart/form-data, и что серверная часть приложения правильно обрабатывает полученные данные.

Заключение

Проблема загрузки изображений на VCL-сервер через HTTP может быть решена с помощью правильной настройки HTML-формы и использования дополнительных методов Indy для обработки данных в формате multipart/form-data. Приведенный пример кода демонстрирует, как извлечь данные загружаемого файла из тела HTTP-запроса.

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

Проблема заключается в некорректной загрузке изображений на VCL-сервер через HTTP, где поток `ARequestInfo.PostStream` оказывается пустым, что необходимо исправить для чтения данных изображения, используя методы обработки данных `multipart/form-data`.

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

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

:: Главная :: Браузер ::