Проблема с загрузкой именованных файлов через REST API Google Drive в Delphi

Delphi , Синтаксис , API реализация

Вопрос, с которым сталкиваются разработчики, работающие с Google Drive API в среде Delphi, заключается в том, что при загрузке файлов через REST API, они появляются на Google Drive с именем "Untitled". Это происходит из-за того, что в запросе не указывается имя файла, которое должно быть передано в виде метаданных.

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

Для того чтобы загрузить файл с указанием имени, необходимо отправить метаданные вместе с самим файлом. Существует два способа это сделать:

1. Завершить простой загрузку и затем выполнить отдельный запрос для обновления метаданных файла.
2. Использовать многочастную загрузку и добавить параметр с метаданными.

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

Чтобы загрузить файл с указанным именем, следует использовать следующий подход:

RESTRequest.Method := TRESTRequestMethod.rmPOST;
RESTRequest.Params.AddItem('metadata', '{"title": "YourFileName.dat"}', TRESTRequestParameterKind.pkREQUESTBODY, [], TRESTContentType.ctAPPLICATION_JSON);

После выполнения первой части запроса на загрузку файла, необходимо обновить метаданные, используя ID файла, который возвращается в ответе от сервера:

var
  s: string
RESTRequest.Response.GetSimpleValue('id', s);

RESTRequest1.Params.Clear;
RESTClient.BaseURL := 'https://www.googleapis.com/drive/v2/files/'+s;
RESTRequest1.Resource := '';
RESTRequest1.Method:=TRESTRequestMethod.rmPUT;
RESTRequest1.AddBody('{"title": "Capture.jpg"}', TRESTContentType.ctAPPLICATION_JSON);
RESTRequest1.Execute;

Таким образом, сначала выполняется загрузка файла, а затем происходит обновление метаданных с указанием желаемого имени файла.

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

Также стоит отметить, что использование метода AddBody() может заменить предыдущие параметры, включая JSON с метаданными. В документации указано:

Вызов метода AddBody заменяет любые предыдущие значения параметра тела. Однако, если в качестве ABodyContent передать строку, указанное значение будет добавлено, и результирующий запрос будет содержать несколько параметров тела.

Для отправки JSON метаданных и файла вместе в теле запроса необходимо использовать формат multipart/related. В классе TRESTRequest такой функционал может отсутствовать, и тогда потребуется создать единый поток данных, содержащий всю многочастную информацию, и передать его в метод AddBody() с типом содержимого TRESTContentType.ctMULTIPART_RELATED. Попытка добавить различные части как отдельные параметры приведет к тому, что будет использован неправильный тип содержимого.

Пример кода

Вот пример кода, который демонстрирует, как загрузить файл с указанием имени, используя многочастную загрузку:

local_filename:= 'D:/Capture.jpg';
RESTResponseDataSetAdapter.AutoUpdate := false;
RESTRequest.Params.Clear;
RESTRequest.Method := TRESTRequestMethod.rmPOST;
RESTRequest.AddParameter('application/json; charset=utf-8', '{"title": "Capture.jpg"}', TRESTRequestParameterKind.pkREQUESTHEADER, [], TRESTContentType.ctAPPLICATION_JSON, 'Content-Type: metadata');
RESTRequest.AddHeader('Content-Type: multipart/related; boundary=BOUNDARY');
RESTRequest.AddHeader('Authorization: Bearer YOUR_TOKEN');

// Создание многочастного запроса
upload_stream := TMemoryStream.Create;
upload_stream.WriteBuffer('--BOUNDARY', 2);
upload_stream.WriteBuffer('Content-Type: application/json; charset=utf-8', 1);
upload_stream.WriteBuffer('\r\n', 4);
upload_stream.WriteBuffer('{"title": "Capture.jpg"}', 1);
upload_stream.WriteBuffer('\r\n', 4);
upload_stream.WriteBuffer('Content-Type: image/jpeg; charset=utf-7', 1);
upload_stream.WriteBuffer('\r\nContent-Disposition: attachment; filename="Capture.jpg"', 1);
upload_stream.WriteBuffer('\r\n', 4);
upload_stream.WriteBuffer('\r\n', 4);
// Дописать содержимое файла в поток
// ...
RESTRequest.AddBody(upload_stream, TRESTContentType.ctMULTIPART_RELATED);

// Завершение многочастного запроса
upload_stream.WriteBuffer('\r\n--BOUNDARY--', 1);
upload_stream.Close;
RESTRequest.Execute;

В данном примере важно заменить 'YOUR_TOKEN' на действительный токен доступа Google. Обратите внимание, что строка границы многочастного запроса (BOUNDARY) не должна содержать пробелов вокруг символов --.

Помните, что для работы с REST API Google Drive и других сервисов, важно обращаться к официальной документации и следить за обновлениями API, так как некоторые детали могут со временем изменяться.

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

Проблема заключается в необходимости корректной загрузки файлов через REST API Google Drive в среде Delphi с указанием их имен, что требует отправки метаданных вместе с файлом.

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

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

:: Главная :: API реализация ::