13 мар. 2019 г.

Сократить ссылки через 1С

Что бы сократить ссылку через 1С используя сайт https://clck.ru/ пишем

Процедура КнопкаВыполнитьНажатие(Кнопка)
 Сообщить(СократитьСсылку("http://copyraite.blogspot.com"));    
КонецПроцедуры

Функция СократитьСсылку(Ссылка) Экспорт 
 Ссылка = КодироватьСтроку(Ссылка, СпособКодированияСтроки.КодировкаURL,); 
 Адрес = "https://clck.ru/--?url="+Ссылка;
 
 ХМЛХТТП = ПолучитьCOMОбъект("", "Microsoft.XMLHTTP");
 ХМЛХТТП.Open("GET", Адрес, Ложь);
 ХМЛХТТП.Send(Null);
 Возврат СокрЛП(ХМЛХТТП.ResponseText);
КонецФункции

для использования https://is.gd/ сервиса изменяем только адрес сервиса и описания параметров

Процедура КнопкаВыполнитьНажатие(Кнопка)
 Сообщить(СократитьСсылку("http://copyraite.blogspot.com")); 
КонецПроцедуры

Функция СократитьСсылку(Ссылка) Экспорт 
 Ссылка = КодироватьСтроку(Ссылка, СпособКодированияСтроки.КодировкаURL,); 
 Адрес = "https://is.gd/create.php?format=simple&url="+Ссылка;
 
 ХМЛХТТП = ПолучитьCOMОбъект("", "Microsoft.XMLHTTP");
 ХМЛХТТП.Open("GET", Адрес, Ложь);
 ХМЛХТТП.Send(Null);
 Возврат СокрЛП(ХМЛХТТП.ResponseText);
КонецФункции
 

CopyPaste Copyright © 2017 - |- Шаблон создан O Pregador - |- Отредактирован myr4ik07