Как правильно отправить изображение на Flagma.ru через Delphi: альтернатива TIdMultiPartFormDataStream

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

Как правильно отправить изображение на Flagma.ru через Delphi

Вопрос, который стоит перед разработчиками, использующими Delphi, часто заключается в необходимости выполнения специфических задач взаимодействия с веб-сервисами. Одной из таких задач является отправка изображений на сайт Flagma.ru. В данном примере рассматривается проблема, связанная с отправкой изображений через Delphi в версию 10.1, и предложенное решение.

Проблема

При отправке изображения на сайт Flagma.ru через компоненты Indy в Delphi, разработчики столкнулись с ошибкой при загрузке файла. Несмотря на правильно сформированные запросы, изображение после загрузки имело неверные размеры, в то время как в браузере файл отображался корректно.

Пример кода, который пытается решить проблему

В примере кода, который разработчики пытались использовать для решения задачи, создавался поток данных с использованием TIdMultiPartFormDataStream, однако такой подход оказался неэффективным.

a := TStringStream.Create(tempa);
formData := TIdMultiPartFormDataStream.Create;
formData.Clear;
formData.AddFile('qqfile', fn, GetMIMETypeFromFile(fn));
try
  http.Post(url, formData, a);
except
  on E: EIdException do
  begin
    response := '';
  end;
end;
formData.Free;
response := utf8Decode(a.DataString);

Подход к решению

Ключевым моментом в решении проблемы является понимание того, каким образом сервер Flagma.ru ожидает получение файлов. Важно отправить файл напрямую в тело запроса, не используя TIdMultiPartFormDataStream.

Решение

Использование перегруженной версии метода TIdHTTP.Post, которая принимает поток данных TStream, например TFileStream, позволяет корректно отправить файл на сервер. Ниже представлен пример кода, который решает проблему:

http.Request.ContentType := 'application/octet-stream';
http.Request.Accept := '*/*';
http.Request.AcceptLanguage := 'ru-RU,ru;q=0.9,en-US;q=0.8,en;q=0.7';
// Обратите внимание, что приведенный выше код может не требовать указание AcceptEncoding, так как gzip/deflate сжатие не влияет на бинарные данные
http.Request.Referer := 'https://flagma.ru/my/1538481/podat-obyavlenie.html';

fnShort := ExtractFileName(fn); // Получаем имя файла
url := 'https://flagma.ru/messageuploadphoto.php?qqfile=' + fnShort;
http.Request.CustomHeaders.Values['X-Mime-Type'] := GetMIMETypeFromFile(fn);
http.Request.CustomHeaders.Values['X-File-Name'] := fnShort;
http.Request.CustomHeaders.Values['X-Requested-With'] := 'XMLHttpRequest';

fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
try
  try
    response := http.Post(url, fs); // Отправляем файл напрямую
  except
    response := '';
  end;
finally
  fs.Free;
end;

Комментарии в описании проблемы указывают на необходимость либо отправить изображение напрямую в тело запроса, либо создать мультиparte form data, если это требуется процессом, обрабатывающим запрос.

Заключение

Правильный подход к решению задачи в данном случае - это понимание того, как должен быть организован процесс отправки данных. В данном случае, сервер Flagma.ru ожидает получение файла напрямую в теле запроса, без использования мультиparte формата. Это позволяет избежать ошибок с размером изображения после загрузки и корректно работать с сервисом.

Разработчики должны быть внимательны к деталям, таким как заголовки запросов и методы, используемые для отправки данных, что позволит обеспечить корректное взаимодействие с веб-сервисами, включая специализированные платформы, такие как Flagma.ru.

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

Вопрос касается корректной отправки изображений через Delphi на сервис Flagma.ru и решения проблемы с неверными размерами изображений после загрузки.

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

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

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