Ответ на
пост №11
Thorvardr,спасибо, все работает
весь код, может кому пригодиться
ТекстЗапроса="";
Текст=СоздатьОбъект("Текст");
ФайлЗапроса=КаталогИБ()+"np.xml";
Текст.Открыть(ФайлЗапроса);
Для стр=1 по Текст.КоличествоСтрок() Цикл
ТекстЗапроса=ТекстЗапроса+Текст.ПолучитьСтроку(стр);
КонецЦикла;
Соединение = СоздатьОбъект("WinHttp.WinHttpRequest.5.1");
Соединение.Open("POST","http://api.novaposhta.ua/v2.0/xml/");
Соединение.Send(ТекстЗапроса);
Ответ = Соединение.ResponseText();
//UTF-8
УТФ = СоздатьОбъект("Adodb.Stream");
УТФ.Type=2;
УТФ.Mode=3;
УТФ.charset="utf-8";
УТФ.Open();
УТФ.WriteText(Ответ);
УТФ.SaveToFile(КаталогИБ()+"np1.xml",2);
УТФ.Close();