Интеграция 1С 7.7 и МДЛП Маркировка

WinHttp = СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
WinHttp.Open("POST", "http://api.mdlp.crpt.ru/api/v1/auth HTTP/1.1",0);
WinHttp.Option(2, "utf-8");
WinHttp.setRequestHeader("Content-type", "application/json; charset=utf-8");
WinHttp.SetRequestHeader("Cache-Control", "no-cache");

Стрим = СоздатьОбъект("ADODB.Stream");
	Стрим.Type=2;
	Стрим.Mode = 3;
	Стрим.charset="windows-1251";
	Стрим.open();
	
	Стрим.loadFromFile("D:\777\01234.txt");
	Стрим.charset="utf-8";
	Стр=Лев(Стрим.ReadText(),10000);
	Сообщить(Стр);
Попытка
		WinHttp.Send(Стр);
		лпОтвет = WinHttp.ResponseText();
		тк=СоздатьОбъект("Текст");
		тк.ДобавитьСтроку(лпответ);
		тк.Записать("D:\777\123.html");
		Статус = СокрЛП(WinHttp.Status);
		Описание = СокрЛП(WinHttp.StatusText);
	Исключение
		Статус    = "0";
		Описание = СокрЛП(ОписаниеОшибки());
	КонецПопытки;
	Сообщить(Статус);
	Сообщить(Описание);
	WinHttp.Open("POST", "http://api.mdlp.crpt.ru/api/v1/auth HTTP/1.1", 0);
	WinHttp.Send(Стр);
	Стр = WinHttp.ResponseText();    
	Текст = СоздатьОбъект("Текст");
Текст.ДобавитьСтроку(Стр );	
Текст.Записать("D:\777\0123.html");
КонецПроцедуры

Функция ПолучитьКодАутентификации(ОрганизацияМДЛП,ПользовательМДЛП,СтрОшибка="")
	
	Url = "https://"+СокрЛП(АдресСервисаМДЛП)+ПрефиксВерсии+"auth";
	
	Если ОрганизацияМДЛП.ТипАутентификации <> Перечисление.ТипыАутентификацииМДЛП.ЭП Тогда
		ТипАутентификации="PASSWORD";
	Иначе
		ТипАутентификации="SIGNED_CODE";
	КонецЕсли;
	сзJSONЗапрос = СоздатьОбъект("СписокЗначений");
	сзJSONЗапрос.Установить("client_id"    ,ОрганизацияМДЛП.ИдентификаторКлиента);
	сзJSONЗапрос.Установить("client_secret",ОрганизацияМДЛП.СекретКлиента);
	
	Если ОрганизацияМДЛП.ТипАутентификации <> Перечисление.ТипыАутентификацииМДЛП.ЭП Тогда
		Если ПользовательМДЛП.Выбран() = 0 Тогда
			СтрОшибка = "Не указан пользователь МДЛП";
			Возврат "";
		Иначе
			сзJSONЗапрос.Установить("user_id",ПользовательМДЛП.ИдентификаторПользователя);
		КонецЕсли;
	Иначе
		сзJSONЗапрос.Установить("user_id",ПользовательМДЛП.Сертификат.Отпечаток);
	КонецЕсли;
	сзJSONЗапрос.Установить("auth_type"    ,ТипАутентификации);
	сзОтвет = ВыполнитьЗапрос("POST",Url,сзJSONЗапрос,,,СтрОшибка);
	Если ПустоеЗначение(сзОтвет) = 1 Тогда
		Возврат "";
	КонецЕсли;
	Возврат сзОтвет.Получить("code");
	
КонецФункции // ПолучитьКодАутентификации()

Функция ВыполнитьЗапрос(ТипЗапроса="POST",Url,сзJSONЗапрос,КлючСессии="",сзЗаголовки="",СтрОшибка="")
	
	ЗапросJSON = ЗначениеВJSON(сзJSONЗапрос);
	//ЗапросJSON = глUTF8(ЗапросJSON);
	wHTTP.Open(ТипЗапроса,Url,1);
	wHTTP.SetRequestHeader ("Content-Type", "application/json;charset=UTF-8");
	Если ПустоеЗначение(КлючСессии) = 0 Тогда
		wHTTP.SetRequestHeader ("Authorization", "token "+КлючСессии);
	КонецЕсли;
	Если ПустоеЗначение(сзЗаголовки) = 0 Тогда
		СчЦикла = 0;
		Для СчЦикла = 1 По сзЗаголовки.РазмерСписка() Цикл
			ИмяЗаголовка = "";
			ЗначениеЗаголовка = сзЗаголовки.ПолучитьЗначение(СчЦикла,ИмяЗаголовка);
			Если (ПустоеЗначение(ИмяЗаголовка) = 0) И (ПустоеЗначение(ЗначениеЗаголовка) = 0) Тогда
				wHTTP.SetRequestHeader (ИмяЗаголовка, ЗначениеЗаголовка);
			КонецЕсли;
		КонецЦикла;
	КонецЕсли;
	
	Если флОтладка = 1 Тогда
		Если СтрДлина(ЗапросJSON) < 220 Тогда
			Сообщить("->"+ЗапросJSON);
		Иначе
			
			Для СчЦ = 0 По Цел(СтрДлина(ЗапросJSON)/220) Цикл
				Сообщить("->"+Сред(ЗапросJSON,СчЦ*220+1,220));
			КонецЦикла;
		КонецЕсли;
	КонецЕсли;
	
	wHTTP.Send(ЗапросJSON);
	RequestTimeout = 20;
	Рез = wHTTP.WaitForResponse(RequestTimeout);
	
	Если флОтладка = 1 Тогда
		Сообщить("Рез: "+Рез);
	КонецЕсли;
	
	Ответ = "";
	Если Рез = -1 Тогда
		Статус = wHTTP.status();
		СтатусТекст = wHTTP.statusText();
		Ответ = СокрЛП(wHTTP.ResponseText());
		Если флОтладка = 1 Тогда
			Сообщить("Статус: "+Статус);
			Сообщить("СтатусТекст: "+СтатусТекст);
			Если СтрДлина(Ответ) < 220 Тогда
				Сообщить("Ответ: "+Ответ);
			Иначе
				Для СчЦ = 0 По Цел(СтрДлина(Ответ)/220) Цикл
					Сообщить("Ответ: "+Сред(Ответ,СчЦ*220+1,220));
				КонецЦикла;
			КонецЕсли;
		КонецЕсли;
		Если Статус <> 200 Тогда
			//Ошибка
			Если ПустоеЗначение(Ответ) = 0 Тогда
				сзОтвет = глРазборJSON(Ответ);
				СтрОшибка = сзОтвет.Получить("error_description");
			КонецЕсли;
			Возврат "";
		КонецЕсли;
	КонецЕсли;
	Если ПустоеЗначение(Ответ) = 0 Тогда
		сзОтвет = глРазборJSON(Ответ);
	КонецЕсли;
	Возврат сзОтвет;
	
КонецФункции // ВыполнитьЗапрос()

wHttp=    wHTTP = СоздатьОбъект("WinHttp.WinHttpRequest.5.1");   
wHttp.Open("GET","https://api.sb.mdlp.crpt.ru/api/v1/rights/about",1);
wHttp.Option(2, "utf-8");
wHttp.setRequestHeader("Content-type", "application/json;charset=UTF-8");
wHttp.setRequestHeader("Accept-language","ru");
wHttp.setRequestHeader("Authorization","token "+Токен); 
wHttp.SetRequestHeader("Cache-Control", "no-cache");
wHttp.Send();