Разбор HTTPRequest.POST для загрузки файлов в WebBroker

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

В данной статье мы рассмотрим, как использовать метод HTTPRequest.POST для загрузки файлов на сервер, который использует компоненты WebBroker в Delphi. Пользователь столкнулся с проблемой, когда ему необходимо было принять файлы PDF, XLS и JPG от клиентов через WebBroker сервер. Он успешно отправлял файлы, но не мог их корректно обработать на сервере.

Проблема

Пользователь использовал метод HTTPRequest.POST для отправки файлов на сервер, но не понимал, как извлечь полученные данные. В коде клиента создавался поток файла (TFileStream), который затем передавался в качестве содержимого запроса. На стороне сервера был обработчик действия, который должен был принимать и обрабатывать загружаемые файлы, но в текущей реализации не удавалось извлечь данные.

Пример кода клиента

try
  NetHTTPClient.ContentType := 'application/pdf';
  tmpPDFFile := TFileStream.Create(pFilename, fmOpenRead);
  // Другие операции...
  NetHTTPRequest.ContentStream := tmpPDFFile;
  NetHTTPRequest.Post(tmpURL, tmpPDFFile);
  // Обработка ответа сервера...
except
  // Обработка исключений...
end;

Пример кода сервера

procedure TWebModule1.WebModule1UploadAnyFileAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  try
    Handled := true;
    Response.StatusCode := 200;
    // Параметры запроса...
    // Попытка создать поток для ответа...
    tmpStream := Response.ContentStream;
    // Обработка типов файлов...
  except
    // Обработка исключений...
  end;
end;

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

Пользователь предположил, что для извлечения данных на сервере необходимо использовать TMemoryStream вместо TFileStream. Однако, он не был уверен, куда именно должны приходить данные.

Решение проблемы

Для решения проблемы необходимо изменить тип потока в обработчике сервера на TMemoryStream и использовать его для сохранения данных. Вот как это может быть реализовано:

procedure TWebModule1.WebModule1UploadAnyFileAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  MemoryStream: TMemoryStream;
begin
  try
    Handled := True;
    Response.StatusCode := 200;
    MemoryStream := TMemoryStream.Create;
    try
      Request.ContentStream.CopyTo(MemoryStream, Request.ContentLength);
      MemoryStream.SaveToFile('c:\temp\uploadedfile.' + tmpFileType);
    finally
      MemoryStream.Free;
    end;
  except
    // Обработка исключений...
  end;
end;

Альтернативный подход

Также можно использовать метод Request.ReadBodyAsStream, который позволяет прочитать содержимое запроса в поток:

procedure TWebModule1.WebModule1UploadAnyFileAction(...);
var
  Stream: TStream;
begin
  try
    // ...
    Stream := Request.ReadBodyAsStream;
    if Assigned(Stream) then
    begin
      // Сохранение потока в файл
      Stream.SaveToFile('c:\temp\uploadedfile.' + tmpFileType);
      Stream.Free;
    end;
  except
    // Обработка исключений...
  end;
end;

Заключение

В данной статье мы рассмотрели, как можно использовать метод HTTPRequest.POST для загрузки файлов на сервер WebBroker, а также предложили два способа извлечения данных на стороне сервера. Использование TMemoryStream или метода Request.ReadBodyAsStream позволяет корректно обработать и сохранить файлы, отправленные клиентом.

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

Статья посвящена решению проблемы разбора HTTP-запросов POST для загрузки файлов на сервер, использующий компоненты WebBroker в Delphi.

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

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

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