Загружаем файлы с Google Drive через API

Есть обработка входящей почты, которая обрабатывала письма от определенного адресата. В письме во вложении были файлы, которые складывались в нужную папку. В какой-то момент файлы превысили 20 Мб и гугловская почта вместо вложения стала вставлять в письмо ссылки на файлы. Необходимо было восстановить функционал. Поизучав тему, понял, что достаточно просто. Даже не нужно городить авторизацию по OAuth.

Будем считать, аккаунт в гугле уже есть. Заходим в консоль под собой. Первым делом включаем Google Drive API. Вибираем в списке доступных API

И включаем

Далее нужно получить ключ API. Идем в учетные данные.

И создаюем ключ.

Теперь созданный ключ будем использовать для доступа.

В обработке достаточно указать ключ и URL файла

В обработке все достаточно просто. Первым запросом получаю имя файла. Вторым уже качаем файл.

   ssl = Новый ЗащищенноеСоединениеOpenSSL(
Новый СертификатКлиентаWindows(),
Новый СертификатыУдостоверяющихЦентровWindows());

Соединение = Новый HTTPСоединение("www.googleapis.com",,,,,, ssl);


Запрос = Новый HTTPЗапрос("drive/v3/files/" + ИДФайла + "/?key=" + КлючAPI);

Ответ = Соединение.Получить(Запрос);
ИнфОФайле = Ответ.ПолучитьТелоКакСтроку();


Чтение = Новый ЧтениеJSON;
Чтение.УстановитьСтроку(ИнфОФайле);
Отв = ПрочитатьJSON(Чтение);

Запрос = Новый HTTPЗапрос("drive/v3/files/" + ИДФайла + "/?key=" + КлючAPI + "&alt=media");

Ответ = Соединение.Получить(Запрос);


Данные = Ответ.ПолучитьТелоКакДвоичныеДанные();

ПутьДляСохранения = "";

Д = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
Д.ПолноеИмяФайла = Отв.name;


Если Д.Выбрать() Тогда
Данные.Записать(Д.ПолноеИмяФайла);
КонецЕсли;