Пытаюсь связать 1с и google calendar.
Загуглил статью: http://pro1c.net/tips/Авторизация-oauth-20-из-1С-82/#respond
Первый этап авторизации проходит на ура, а вот второй совсем никак.
Отправляю запрос на сервер, формирую так:

   ХТТПЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
   Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Скрипт.AddObject("ХТТПЗапрос",ХТТПЗапрос);
   Скрипт.Eval("ХТТПЗапрос.Option(4)=13056");
   
   ХТТПЗапрос.Open("POST", "https://accounts.google.com/o/oauth2/token", 0);
   ХТТПЗапрос.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
   
   ПараметрыПОСТ = "code=" + КодДоступа + "&";
   ПараметрыПОСТ = ПараметрыПОСТ + "client_id={}" + "&";
   ПараметрыПОСТ = ПараметрыПОСТ + "client_secret={}" + "&";
   ПараметрыПОСТ = ПараметрыПОСТ + "redirect_uri=urn:ietf:wg:oauth:2.0:oob" + "&";
   ПараметрыПОСТ = ПараметрыПОСТ + "grant_type=authorization_code";

   ХТТПЗапрос.Send(ПараметрыПОСТ);

После Send вываливается ошибка:
"A connection with the server could not be established"

всем кому интересно вэлкам, может вместе разберемся ;-)

(0) Дай почту. Получишь подарок невиданной щедрости.

Хотя не надо


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
   
   ЗаполнитьЗначенияСвойств(ЭтаФорма,Параметры,"ClientID,ClientSecret,APIkey,RedirectURIs,Scope");
   
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
   
   // Тип ответа сервера. Согласно документации, для установленных приложений = code
   _Параметры            = "response_type=code" + "&";
   // Параменты полученные при регистрации приложения
   _Параметры            = _Параметры + "client_id=" + ClientID + "&";
   _Параметры            = _Параметры + "redirect_uri=" + RedirectURIs + "&";
   _Параметры            = _Параметры + "access_type=offline" + "&";
   
   // Области доступа к которым будет выполняться запрос
   _Параметры            = _Параметры + "scope="+Scope;
   

   // адрес на котором пользователь выполнит авторизацию
   АдресАвторизации    = "https://accounts.google.com/o/oauth2/auth" + "?";
   
   // Формируем полный адрес авторизации вместе с параметрами
   ПолныйАдресАвторизации    = АдресАвторизации + _Параметры;
   
   // И показываем страницу пользователю
   Элементы.ПолеHTML.Документ.location.href = ПолныйАдресАвторизации;
   
   ДанныеGoogleПолучены = Ложь;

КонецПроцедуры

&НаКлиенте
Процедура ПолеHTMLДокументСформирован(Элемент)
   
   ЗаголовокОкна    = Элементы.ПолеHTML.Документ.nameProp;
   
   // Анализируем его, ищем код доступа, выделяем из строки
   Если Лев(ЗаголовокОкна, 13) = "Success code=" Тогда
       КодДоступа    = Сред(ЗаголовокОкна, 14);
       
       Если Не ДанныеGoogleПолучены Тогда
       
           // и передаем на второй этап
           ВторойЭтапДоступа(КодДоступа);
           ДанныеGoogleПолучены = Истина;
           
       КонецЕсли;
   КонецЕсли;

КонецПроцедуры

&НаКлиенте
Процедура ВторойЭтапДоступа(КодДоступа)
   
   ХТТПЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
   // Выполняем отключение контроля сертификтов
   Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Скрипт.AddObject("ХТТПЗапрос",ХТТПЗапрос);
   Скрипт.Eval("ХТТПЗапрос.Option(4)=13056");
           
   // открываем ресурс
   ХТТПЗапрос.Open("POST", "https://accounts.google.com/o/oauth2/token", 0);
   ХТТПЗапрос.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
   
   // формируем дополнительные параметры
   ПараметрыПОСТ =                "grant_type=authorization_code" + "&";    // предопределенный в документации
   ПараметрыПОСТ = ПараметрыПОСТ + "code=" + КодДоступа + "&";                // получен на первом этапе доступа
   // получены при регистрации приложения
   ПараметрыПОСТ = ПараметрыПОСТ + "client_id="+ClientID + "&";
   ПараметрыПОСТ = ПараметрыПОСТ + "client_secret="+ClientSecret + "&";
   ПараметрыПОСТ = ПараметрыПОСТ + "redirect_uri="+RedirectURIs;
   // Отправляем для обработки сервером
   ХТТПЗапрос.Send(ПараметрыПОСТ);

   Ответ    = ЗадачиИПорученияСервер.UnJSON(ХТТПЗапрос.ResponseText());
   
   Ключи = Новый Структура;
   Ключи.Вставить("Tocken",Ответ.Получить("access_token"));
   Ключи.Вставить("Refresh",Ответ.Получить("refresh_token"));
   Ключи.Вставить("expires_in",Ответ.Получить("expires_in"));
   Закрыть(Ключи);
   
КонецПроцедуры

Все тоже самое. И код такой же.
"redirect_uri=urn:ietf:wg:oauth:2.0:oob" такой?

urn:ietf:wg:oauth:2.0:oob

У меня все работает.

+ И кстати говоря именно календарь

Прокси? файервол?

Очень странно, все равно не функционирует.
Нет не прокси, ни файервола.

ща попробую про сертификаты покурить, по результатам отпишусь.

(8) Если научишься у создаваемых событий цвет менять, тоже отпишись плс.

(9) хорошо, договорились. Спасибо за помощь ;-)

Параметры пихай в адресную строку, а не в методе sent, вроде тама в sente под параметрами чот другое понимается, хотя я могу и ошибаться

(9) слушай, у тебя нет прокси верно?

(12) верно

(13) тогда точно ушел курить тему с сертификатами :-)

(14) Не знаю. Я никакие сертификаты не  устанавливал и не менял. Скрипт как раз же и отключает проверку сертификатов.

Используйте ServerXMLHttpRequest - он имеет возможность управления правилами для сертификатов.

(9) Насколько я понял цвета фактически предопределенные. Потому что единственный метод у цветов: get - он как бы возвращает список цветов но не более. Редактировать их не получится.
Следовательно у событий мы можем лишь назначить цвет из предопределенной палитры. Ну или я вкорне неправ )

(17) Хотя вру, на каждый календарь мы еще имеем возможность повесить по цвету на выбор. Можно насоздавать ху.ву тучу скрытых календарей на нужную палитру и манипулировать ими.

(18) Имхо можно, в api v3
Иначе зачем colorId в insert event?

Вопрос в узнать все эти colorId

https://developers.google.com/google-apps/calendar/v3/reference/events/insert

(19) Коллекция цветов у тебя есть и доступ к ней есть, но метод работы с колекцией всего 1! Ну каким образом ты создашь цвет? метода нет!!! назначить цвет из палитры можешь а создать только в пользовательском режиме при назначении цвета на календарь.

(15) Так и не понял в чем дело. Действительно скрипт отключает проверку сертификата.
Попробовал на своём ноуте с прямым подключением все работает на ура. На персональном ПК тоже с прямым доступом ни в какую не взлетает - вываливает "A connection with the server could not be established".
На ПК с прокси тоже не работает.
Здесь возникает вопрос: как сделать работу через прокси?
Пробую следующее:
ХТТПЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.language="javascript";
Скрипт.AddObject("ХТТПЗапрос",ХТТПЗапрос);
Скрипт.Eval("ХТТПЗапрос.Option(4)=13056");
// Параметры прокси
ХТТПЗапрос.SetProxy(0,"62.76.65.107:3128");
// открываем ресурс
ХТТПЗапрос.Open("POST","https://accounts.google.com/o/oauth2/token", 0);
ХТТПЗапрос.SetCredentials("ProxyLogin","ProxyPassword", 1);    
ХТТПЗапрос.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
Резульат тот же.

Попробовал поюзать ВК "Душелов.GoogleCalendar" - отличнейшая вещь.
Получает календари, создает календари, все на ура, только вот не удаляет никак.
Кстати, раскопал в этой ВК цвет - пока опытным путем определил, что: #2952A3 - голубой, #2952A3 - красный, #875509 - фиолетовый.

(21) С компонентой Душелова - 1 проблема. Автора увы уже нет, а работает она со старыми версиями API - которые как бы умрут в обозримом будущем, насколько я понимаю.

(22) да, это я знаю и очень сожалею :-(

(22) просто в качестве эксперимента проверил

SetCredentials не использовал при проходе через прокси? наверняка у тебюя там атворизация стоит

(20) Да мне новые цвета не нужны. Палитра вполне устроила бы. Где возможные ИД цветов бы взять?

(25) Пробовал разные варианты:
1)
ХТТПЗапрос.SetProxy(0,"62.76.65.107:3128");
ХТТПЗапрос.Open("POST","https://accounts.google.com/o/oauth2/token", 0);
ХТТПЗапрос.SetCredentials("ProxyLogin","ProxyPassword", 1);  
2)
ХТТПЗапрос.SetProxy(0,"62.76.65.107:3128");
ХТТПЗапрос.SetCredentials("ProxyLogin","ProxyPassword", 1);
ХТТПЗапрос.Open("POST","https://accounts.google.com/o/oauth2/token", 0);
Совсем никак.

(26) это пока для меня загадка

(26) Разумеется тут https://developers.google.com/google-apps/calendar/v3/reference/colors/get

(27) А ты пример использования авторизации вот тут http://msdn.microsoft.com/en-us/library/windows/desktop/aa384058(v=vs.85).aspx смотрел?

(29) Т.е. ты предлагаешь самому запрос писать? я думал, что ид уже известны и их можно взять.
Те цвета что в (21) не работают.

(31) Ага самому. В принципе в api версии 2 был список предопределенных цветов судя по всему о них и писал  queit

(32) Вот что получается
{
"event": {
 "1": {
  "background": "#a4bdfc",
  "foreground": "#1d1d1d"
 },
 "2": {
  "background": "#7ae7bf",
  "foreground": "#1d1d1d"
 },
 "3": {
  "background": "#dbadff",
  "foreground": "#1d1d1d"
 },
 "4": {
  "background": "#ff887c",
  "foreground": "#1d1d1d"
 },
 "5": {
  "background": "#fbd75b",
  "foreground": "#1d1d1d"
 },
 "6": {
  "background": "#ffb878",
  "foreground": "#1d1d1d"
 },
 "7": {
  "background": "#46d6db",
  "foreground": "#1d1d1d"
 },
 "8": {
  "background": "#e1e1e1",
  "foreground": "#1d1d1d"
 },
 "9": {
  "background": "#5484ed",
  "foreground": "#1d1d1d"
 },
 "10": {
  "background": "#51b749",
  "foreground": "#1d1d1d"
 },
 "11": {
  "background": "#dc2127",
  "foreground": "#1d1d1d"
 }
}
}
Соответсвенно ИД 1,2,3.. 11
В приципе работает и цвет событию назначает, но только хрен поймешь какой цвет какой, пока не попробуешь.

Ладно. Ща прикручу выбор цвета.

Кстати, насчет попробуешь, при создании календаря есть возможность выставить ему цвет в режиме RGB - тогда он пробует подбирать из палитры наиболее подходящий и выбирает именно его. Может чем тебе поможет.

(35) Нет. Я все в primary фигачу

(36) Имею в виду что ты можешь создать календарь с RGB цветом, получить тут же новый цвет из коллекции назначить его на событие а календарь грохнуть.

(30) Да, смотрел.
Еще вот по этому пробовал: Знатоки WinHttp.WinHttpRequest.5.1 - загляните подкат.

В качестве тестового примера:
ХТТП = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
ХТТП.SetProxy(2,"62.76.65.107:3128");
ХТТП.Open("GET", "http://microsoft.com",0);
ХТТП.SetCredentials("ProxyLogin", "ProxyPassword", 0);    
ХТТП.Send();
Пока Число(ХТТП.Status)=200 Цикл
КонецЦикла;
Сообщить(ХТТП.ResponseText());    

В цикле Status=200 - здесь совсем не пойму - получается что авторизация пройдена?!

Хотя в общем, кажется получилось. Сейчас попробую все вместе слепить.

(38) Небеса разверзлись!!! Все получилось!!! I can't believe in it!!!

Код следующий:
ХТТПЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");
Скрипт.language="javascript";
Скрипт.AddObject("ХТТПЗапрос",ХТТПЗапрос);
Скрипт.Eval("ХТТПЗапрос.Option(4)=13056");
// Подключение прокси
ХТТПЗапрос.SetProxy(2,"IP_proxy:Port");// Задаем параметры своего прокси сервера
// открываем ресурс
ХТТПЗапрос.Open("POST","https://accounts.google.com/o/oauth2/token", 0);
ХТТПЗапрос.SetCredentials("ProxyLogin","ProxyPassword", 0);
ХТТПЗапрос.setRequestHeader("Content-Type","application/x-www-form-urlencoded");
Ну и дальше все стандартно.

И еще момент - в процедуре ПолучитьСписокКалендарей(Маркер) тоже нужно указать прокси, аналогично.

200 значит все хорошо

Вот еще один момент интересный есть. На первом этапе нужно нажать на кнопку "Разрешить". Как её программно нажать?

(41) Никак в том и суть авторизации

(42) очень жаль :-(

(41) Угу, никак. Зато потом ты получишь маркер и сможешь его обновлять без участия юзера. У меня на этапе создания пользователя он авторизуется первый и последний раз, далее его уже никто ниочем не спрашивает )

Товарищи, вопрос такой - какая квота на календари и события?

(45) В консоле же написано. 10 000 реквестов в день

(46) это я видел. Реальные данные есть?
Просто мне нужно создать 120 календарей в каждом 80 событий.
Всего создается 30 календарей и ни одного события.
Пишется ошибка: Quota Exceeded

Ну значит исчерпал. Распредели нагрузку по нескольким аккаунтам.

Не совсем понимаю как я мог исчерпать лимит
Requests     % Requests    
1.11k               100.00%

Странная у них система :-)
По нескольким - это идея, спасибо ;-)

А ты случайно за 5.0 requests/second/user не вылазишь? Там тоже лимит.

(50) я же его могу поменять.
Реально я и так и так пробовал:
1) Просто в цикле добавляю календари из списка
2) В цикле добавляю календари из списка с задержкой 5, 10, 30, 60 секунд

В общем, не получается больше 25 календарей загрузить.
Задержка в 5, 10 и т.д. секунд не играет существенной роли.
Причем заметил еще один момент - загрузил 25 календарей (без событий), удалил все календари. В следующий раз можно загрузить где-то через 40 - 90 минут.

Вообще-то странно что 25 дает. Если я правильно понял, то не должно быть больше 20 клиентов

OAuth 2.0 allows users to share specific data with you (for example, contact lists) while keeping their usernames, passwords, and other information private. A single project may contain up to 20 client IDs

(53) т.е. получается, что всего может быть 20 календарей?

(54) Не. 20 различных аккаунтов пользователей.

(54) Если так, то где-то не сходится.
Получается у меня главный календарь + 2 подключаемых + 2 тестовых. И еще я могу загрузить, получается, 20.
Итого: 25

(55) Что-то я не совсем понимаю.

(57) У тебя 100500 календарей у одного пользователя?

(58) Нет.
Цель у меня следующая: хочу сделать студентам расписание занятий и чтобы они подключались и смотрели занятия по своей группе. Групп где-то штук 200.

(59) Мож тебе вообще сделать импорт через ical?

(60) что-то все там так сложно.
Но все равно, спасибо. Возможно и раскопаю ical.

Пока думаю еще повожусь с гуглом.

(61) Не, ну можно через csv вроде бы попробовать. в формате экспорта аутглюка
там проблем и ограничений по количеству быть не должно )

(62) а ссылочкой не поделитесь?

(63) Насколько я понимаю вот: http://support.google.com/calendar/bin/answer.py?hl=ru&answer=37118&topic=1672003&ctx=topic

(64) Благодарю. Примерно понятно.
Только есть одна проблема - там совершенно не понятно как это сделать программно.
Я то планирую все это поставить в регламентное задание и пусть оно себе обновляет расписание без моего участия :-)

Товарищи, вопрос на засыпку - по какому принципу формируется id календаря?

(66) Э... Не в курсе, да и какая разница?

(67) а как тогда получить id календаря???

(68)вы меня пугаете...
1. Когда создаете календарь через https://developers.google.com/google-apps/calendar/v3/reference/calendars/insert
в ответе возвращается объект из которого можно выдернуть id и запомнить
2. Получить список календарей через кусок кода вида:
// Запрос без проверки сертификтов
   ХТТПЗапрос = Новый COMОбъект("WinHttp.WinHttpRequest.5.1");
   Скрипт=Новый COMОбъект("MSScriptControl.ScriptControl");
   Скрипт.language="javascript";
   Скрипт.AddObject("ХТТПЗапрос",ХТТПЗапрос);
   Скрипт.Eval("ХТТПЗапрос.Option(4)=13056");
           
   ХТТПЗапрос.Open("GET","https://www.googleapis.com/calendar/v3/users/me/calendarList",0);
   ХТТПЗапрос.setRequestHeader("Authorization","Bearer " + ТокенНаДоступ);
   ХТТПЗапрос.Send();

   ИмяВременногоФайла = ПолучитьИмяВременногоФайла("txt");
   
   Текст = Новый ЗаписьТекста(ИмяВременногоФайла, КодировкаТекста.UTF8);
   Текст.ЗаписатьСтроку(ХТТПЗапрос.ResponseText());
   Текст.Закрыть();
   
   ФайлОтвета    = Новый ТекстовыйДокумент;
   ФайлОтвета.Прочитать(ИмяВременногоФайла, КодировкаТекста.UTF8);
   ТекстОтвета = ФайлОтвета.ПолучитьТекст();
   Ответ        = JSON.UnJSON(ТекстОтвета);
   
   
   
   МассивКалендарей = Ответ.Получить("items");

И дальше его спокойно обработать. Получая оттуда id тех календарей которые необходимо

(69) Допустим я создаю календарь:
       ХТТПЗапрос.Open("POST","https://www.googleapis.com/calendar/v3/calendars/?fields=summary%2CtimeZone&key=" + API_key,0);
       
ХТТПЗапрос.setRequestHeader("Content-Type", "application/json");
ХТТПЗапрос.setRequestHeader("Authorization", "Bearer " + Маркер);
ХТТПЗапрос.setRequestHeader("X-JavaScript-User-Agent", "Google APIs Explorer");
ПараметрыПОСТ = "{
       |    ""summary"": """ + НаименованиеКалендаря + """,
       |    ""timeZone"": ""Asia/Omsk""
       |}";
ХТТПЗапрос.Send(ПараметрыПОСТ);
Результат = Результат + ХТТПЗапрос.ResponseText();

Так вот в результате следующее:

Свойство    Значение               Тип
ХТТПЗапрос    COMОбъект               COMОбъект
Option          Ошибка чтения значения        
ResponseBody    COMSafeArray               COMSafeArray
ResponseStream    COMОбъект               COMОбъект
ResponseText    "{
                  "summary": "BUP12",
                  "timeZone": "Asia/Omsk"
               }"                         Строка
Status            200                       Число
StatusText    "OK"                       Строка

Где там id я ума не приложу...

Конечно можно после добавления получать список календарей, потом его расперсивать и получать последний календарь, но все таки хочется разоюраться

(70) Гы... ты сам  говоришь его не выводить
Ты сам явно указываешь чтов  ответе тебе возвращать лишь
fields=summary%2CtimeZone
А надо тупо убрать этот кусок, тогда вернется весь объект.
то бишь запрос должен быть
POST https://www.googleapis.com/calendar/v3/calendars?key={YOUR_API_KEY}

(71) ё-маё!!! спасибо за ликбез!!! ))) пошел дальше курить мантры )))