API Tinkoff

[aabbam]

Процедура FormНаСервере()
Сервер = "https://invest-public-api.tinkoff.ru";
Порт = 443;
Логин = "";
Пароль = "";

Прокси = Новый ИнтернетПрокси(Ложь);
ЗащищенноеСоединениеOpenSSL = Новый ЗащищенноеСоединениеOpenSSL(Н еопределено,Неопределено);
СоединениеHTTP = Новый HTTPСоединение(Сервер, Порт, Логин, Пароль,Прокси,,ЗащищенноеС� �единениеOpenSSL);

Токен = "токен";

Заголовки = Новый Соответствие;
Заголовки.Вставить("Authorization ", "Bearer " + Токен);
Заголовки.Вставить("accept", "application/json");
Заголовки.Вставить("Content-Type", "application/json");
Сервис = "rest/tinkoff.public.invest.api.contract.v1.UsersService/GetAccounts";

ЗапросHTTP = Новый HTTPЗапрос(Сервис, Заголовки);
ЗапросHTTP.УстановитьТелоИз� �троки("{}", КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИсп ользовать);

Результат = СоединениеHTTP.ВызватьHTTPМет� �д("GET", ЗапросHTTP);

Если Результат.КодСостояния <> 200 Тогда
Сообщить("Ошибка выполнения запроса. Код состояния "+Результат.КодСостояния) ;
Возврат;
КонецЕсли;

Данные = Результат.ПолучитьТелоКак� �троку();
Сообщить(Данные);

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

[borodаn]

Процедура FormНаСервере()
Сервер = "https://invest-public-api.tinkoff.ru";
Порт = 443;
Логин = "";
Пароль = "";

Прокси = Новый ИнтернетПрокси(Ложь);
ЗащищенноеСоединениеOpenSSL = Новый ЗащищенноеСоединениеOpenSSL(Н еопределено,Неопределено);
СоединениеHTTP = Новый HTTPСоединение(Сервер, Порт, Логин, Пароль,Прокси,,ЗащищенноеС� �единениеOpenSSL);

Токен = "токен";

Заголовки = Новый Соответствие;
Заголовки.Вставить("Authorization ", "Bearer " + Токен);
Заголовки.Вставить("accept", "application/json");
Заголовки.Вставить("Content-Type", "application/json");
Сервис = "rest/tinkoff.public.invest.api.contract.v1.UsersService/GetAccounts";

ЗапросHTTP = Новый HTTPЗапрос(Сервис, Заголовки);
ЗапросHTTP.УстановитьТелоИз� �троки("{}", КодировкаТекста.UTF8, ИспользованиеByteOrderMark.НеИсп ользовать);

Результат = СоединениеHTTP.ВызватьHTTPМет� �д("GET", ЗапросHTTP);

Если Результат.КодСостояния <> 200 Тогда
Сообщить("Ошибка выполнения запроса. Код состояния "+Результат.КодСостояния) ;
Возврат;
КонецЕсли;

Данные = Результат.ПолучитьТелоКак� �троку();
Сообщить(Данные);

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

Сервер должен быть без https:// в Новый HTTPСоединение(Сервер,