MultiPartFormData загрузка файла в кириллице

[droltromed]

Добрый день.
Появилась такая проблема:
при загрузке файла на сервер файл передаётся в кодировке KOI8-R (судя по названию файла), если в его названии есть кириллица.
Если название состоит из латиницы, то файл корректно заливается с нормальным названием.

Например, в listbox1 содержится путь к файлу с названием

Картинка 1.png

Файл пытается залиться на сервер с названием

=?KOI8-R?B?68HS1MnOy8E=?= 1.png

Пытался в недрах библиотеки IdMultipartFormData менять строку

LItem.FFileName := ExtractFileName(AFileName)

в функционале добавления файла, но, как оказалось, эта строка вообще игнорируется.

Использующийся код в проекте:

var MultiData:TIdMultiPartFormDataStream;

MultiData:=TIdMultiPartFormDataStream.Create;
MultiData.AddFile('userFile',listbox1.Items[i],'')
html:=form1.idhttp1.Post('site.ru',MultiData);

В чём может быть причина и как загрузить файл в кириллице корректно?

[Stilet]

Пытался в недрах

За порчу генофонда руки нужно отрывать.
Ты уверен, что сам сервер корректно обрабатывает кириллицу?

[droltromed]

За порчу генофонда руки нужно отрывать.
Ты уверен, что сам сервер корректно обрабатывает кириллицу?

Иного выбора нет.
Либо модифицировать MultiPart, либо искать\писать аналог.

Сервер кириллицу обрабатывает корректно. Через браузер заливается кириллица отлично.

[Stilet]

А какая у тебя версия Indy?

[droltromed]

А какая у тебя версия Indy?

10.6.2.5298.

Версия MultiPartFormData - 1.17.

[droltromed]

Если есть альтернативные варианты MultiPartFormData для заливки файла с кириллицей на сервер, буду рад увидеть. Надеюсь, найдётся вариант решения проблемы.

[Пепел Феникса]

разве в мультипарте нельзя кодировку указать?
у вас сервер принимает или нет такие файлы?
ибо по запросу видно что имя файло просто кодировано(оно и не может чистым текстом идти)

[droltromed]

разве в мультипарте нельзя кодировку указать?

Можно, но только для AddFormField.
Для AddFile кодировку указать нельзя, только тип вложения (ContentType)..
В теории, через AddFormField можно и файл залить, но тогда файл придётся заливать в поток и потом его отправлять.

у вас сервер принимает или нет такие файлы?
ибо по запросу видно что имя файло просто кодировано(оно и не может чистым текстом идти)

Именно такую кодировку не принимает. Файл просто игнорируется.
Если заливать через браузер, то корректно заливается независимо от того, кириллица или латиница.
Причём кириллицу он заливает в кодировке UTF-8.
Файл с названием "завести.png" выглядит в запросе как "Завести.png".
А через MultiData.AddFile заливается только если латиница.

[droltromed]

Спустя 5 лет случайно нашёл ответ на вопрос. Натыкался много раз на свои же темы (которых две - одна 5 летней давности, вторая - двухлетней).
Ответ получил практически от самих создателей среды программирования.
Нашёл решение здесь: https://forum.antichat.ru/threads/301327/
Итак, корректная загрузка файла на сервер с содержанием кириллицы в названии:

MultiData:=TIdMultiPartFormDataStream.Create; //создаём запрос для отправки
fs:=TFileStream.Create(NameFile, fmOpenReadWrite); //загоняем файл в поток, NameFile - путь к файлу
//готовим файл к отправке, fs - поток с файлом, NameTS - название файла, в котором и заключалась проблема, его здесь можно писать на кириллице (!).
with MultiData.AddFormField('file_0', 'application/vnd.ms-excel', '', fs, NameTS) do
begin
 HeaderCharset := 'utf-8'; //указываем кодировку
 HeaderEncoding := '8'; //указываем формат обработки
end;
idhttp1.Post(server,Multidata); //отправляем сформированный запрос на сервер

Эврика, файл корректно отправился в потоке и загрузился с кириллицей в названии. Ответ на проблему был в поисках многие годы, и теперь проблема решена.