Версия для печати темы (https://pro1c.org.ua/index.php?s=eedb1d7c36c635f21e27fc1b78287ce6&showtopic=44830)

Автор: ValeryZ 22.03.18, 14:13

Приветствую
Нужна небольшая помощь, потому что мозги сломал уже. Либо я что-то не понимаю, либо упускаю, либо проблема столь проста, что гуру нигде в куроводствах про её решение не упоминают.

Преамбула:
Пишу небольшое приложение на управляемых, которое должно работать также и на андроидовых мобильниках.
Для публикации в сети приходится пользоваться IIS 7.5, установленном на Win 2008 R2

По всяким руководствам настроил веб-сервер, сделал публикацию базы. Взлетает и на тонких (через хттп) и в браузерах. Локалка/интернет - работает без разницы.
Нафеячил мобильное приложение. Оно на мобилу установилось, фунциклирует как надо, свою базу ведет, блымает и переливаецца.

Амбула, блин :
Не могу настроить обмен.
По всякому уже строил, сервак сносил/ставил раз пять (виртуальный). Но нифига. Одна и та же ошибка, что бы я на серваке не конфигурил. Точнее - две.
Если я в модуле общей команды Обмен пишу

Определения = Новый WSОпределения("http://ip-address.local/zak2/ws/ws1.1cws?wsdl", "username", "userpass");

Определения = Новый WSОпределения("http://ip-address.local/zak2/ws/ws1.1cws?wsdl");


&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)
    ОбработкаКомандыСервер();
КонецПроцедуры

&НаСервере
Процедура ОбработкаКомандыСервер()
    Адрес = "http://192.168.0.128/zak2/ws/ws1.1cws?wsdl";
    Определения = Новый WSОпределения(Адрес, "zvn", "4369040");
    УРИ = "http://localhost/ws1";
    Прокси = Новый WSПрокси(Определения, УРИ, "WebОбмен", "WebОбменSoap");
    
    СисИнфо = Новый СистемнаяИнформация;
    КодМобильногоКомпьютера = Строка(СисИнфо.ИдентификаторКлиента);
    
    // инитим
    
    Узел = ПланыОбмена.Мобильные.ЭтотУзел();
    Если НЕ ЗначениеЗаполнено(Узел.Код) 
        ИЛИ Узел.Код <> КодМобильногоКомпьютера Тогда
        ОбъектУзла = Узел.ПолучитьОбъект();
        ОбъектУзла.Код = КодМобильногоКомпьютера;
        ОбъектУзла.Наименование = КодМобильногоКомпьютера;
        ОбъектУзла.Записать();
    КонецЕсли; 
    
    ЦентральныйУзелОбмена = ПланыОбмена.Мобильные.НайтиПоКоду("001");
    Если ЦентральныйУзелОбмена.Пустая() Тогда
        НовыйУзел = ПланыОбмена.Мобильные.СоздатьУзел();
        НовыйУзел.Код = "001";
        НовыйУзел.Наименование = "Центральный";
        НовыйУзел.Записать();
        ЦентральныйУзелОбмена = НовыйУзел.Ссылка;
    КонецЕсли; 
    
    // обмен
    ДанныеОбмена = Прокси.ВыполнитьОбмен(КодМобильногоКомпьютера, СформироватьПакетОбмена(ЦентральныйУзелОбмена));
    
    //обработка
    ЧтениеХМЛ = Новый ЧтениеXML;
    ЧтениеХМЛ.УстановитьСтроку(ДанныеОбмена.Получить());
    ЧтениеСообщения = ПланыОбмена.СоздатьЧтениеСообщения();
    ЧтениеСообщения.НачатьЧтение(ЧтениеХМЛ);
    ПланыОбмена.УдалитьРегистрациюИзменений(ЧтениеСообщения.Отправитель, ЧтениеСообщения.НомерПринятого);
    НачатьТранзакцию();
    Пока ВозможностьЧтенияXML(ЧтениеХМЛ) Цикл
        Данные = ПрочитатьXML(ЧтениеХМЛ);
        Если НЕ Данные = Неопределено Тогда
            Данные.ОбменДанными.Отправитель = ЧтениеСообщения.Отправитель;
            Данные.ОбменДанными.Загрузка = Истина;
            Данные.Записать();
        КонецЕсли;
    КонецЦикла;
    ЗафиксироватьТранзакцию();
    ЧтениеСообщения.ЗакончитьЧтение();
    ЧтениеХМЛ.Закрыть();
    
    
КонецПроцедуры

Функция СформироватьПакетОбмена(УзелОбмена) Экспорт
    ЗаписьXML = Новый ЗаписьXML;
    ЗаписьXML.УстановитьСтроку("UTF-8");
    ЗаписьXML.ЗаписатьОбъявлениеXML();
    ЗаписьСообщения = ПланыОбмена.СоздатьЗаписьСообщения();
    ЗаписьСообщения.НачатьЗапись(ЗаписьXML, УзелОбмена);                    
    ЗаписьXML.ЗаписатьСоответствиеПространстваИмен("xsi", "http://www.w3.org/2001/XMLSchema-instance");
    ЗаписьXML.ЗаписатьСоответствиеПространстваИмен("v8",  "http://v8.1c.ru/data");
    ВыборкаИзменений = ПланыОбмена.ВыбратьИзменения(УзелОбмена, ЗаписьСообщения.НомерСообщения);
    Пока ВыборкаИзменений.Следующий() Цикл
        Данные = ВыборкаИзменений.Получить();
        ЗаписатьXML(ЗаписьXML, Данные);// Записываем данные в сообщение
    КонецЦикла;
    ЗаписьСообщения.ЗакончитьЗапись();
    Возврат Новый ХранилищеЗначения(ЗаписьXML.Закрыть(), Новый СжатиеДанных(9));
КонецФункции

Автор: Bernet 22.03.18, 14:45

ValeryZ @ Сегодня, 14:13 ,
Собственно Вам текст ошибки говорит что не так - не выполнена аутентификация, т.е. неправильно ввели логин и пароль...
Вы когда через браузер пытаетесь в опубликованную базу зайти, у вас же логин и пароль от базы спрашивает - вот под ними и нужно подключаться.
WSОпределение вроде как правильно оформили - у меня аналогичный код в моем приложении норм работает, смотрите в сторону очепяток, языка и т.д.)

Автор: ValeryZ 22.03.18, 15:13

Bernet @ Сегодня, 14:45 ,
Да суть в том, что я уже и в 1С прописал юзера с максимальными правами, и на серваке точно такого же админа создал... но ошибка первого типа все едино выходит.

Может в мобильном платформе трабл?
Основную конфу пишу на 8.3.10.2252
Мобильная 8.3.10.51

Автор: Bernet 22.03.18, 15:24

Если в браузере ввести строку

Автор: ValeryZ 22.03.18, 15:49

Bernet @ Сегодня, 15:24 ,
Схема открывается. Приложение (1cema.xml) из соответствующего каталога тоже.
Юзер - латиницей
Пароль - цифирью.

Я мисту и инфостарт перелопатил ужо капец как. В основном народ заканчивает настройки иис на публикации веб приложения. А потом бодро друг у дружки копипастит статьи.
"мы уже здесь месяц отдыхаем" ©

Уроки Кухара глядел. Уроки от 1С - перечитал/просмотрел. И теперь не пойму, то ли тупой, то ли карму полировать надо.

UPD.
Грешил на проброс апачевским прокси (с адреса 192.168.0.8, где у меня линуховый интернет-сервер, перекидаю на 192.168.0.128, где 1С обосновалась на винде с веб-серваком), но попытал счастья без пробросов, на голых айпишниках - та же петрушка.

Автор: logist 22.03.18, 16:14

Добавьте:

Прокси = Новый WSПрокси(Определения, УРИ, "WebОбмен", "WebОбменSoap");
//+++
Прокси.Пользователь = "zvn";
Прокси.Пароль = "4369040";

Автор: uanr81 22.03.18, 20:21

logist @ Сегодня, 16:14 ,
Я не понял через что вы обмен выполняете, вот код через веб-сервис DataTransfer, операция Registration, на сервере пользователь Fedorov, без пароля (тоже переименовал на латиницу ), и по моему вы не правильно понимаете назначение объекта WSПрокси, в коде ниже переменной Ответ приходит возврат операции веб-сервиса на сервере

Функция ПодключениеКВебСервису(ПараметрДляОтправкиНаСервер) Экспорт   //Сервер авторизации
    ВСОпределение = Новый WSОпределения("http://192.168.1.2/DemoUT10/ws/DataTransfer.1cws?wsdl","Fedorov");
    ВСервис       = ВСОпределение.Сервисы.Получить("DataTransfer","DataTransfer");
    ВТочкаВхода   = ВСервис.ТочкиПодключения.Получить("DataTransferSoap");
    ВОперация     = ВТочкаВхода.Интерфейс.Операции.Получить("Registration");    
    
    ВСПрокси = Новый WSПрокси(ВСОпределение, "DataTransfer","DataTransfer","DataTransferSoap"); 
    ВСПрокси.Пользователь = "Fedorov";
    Тест = Новый Структура;
    Тест.Вставить("Стр","Строка");
    Ответ = ВСПрокси.Registration(СериализаторXDTO.ЗаписатьXDTO(ПараметрДляОтправкиНаСервер));
    Возврат СериализаторXDTO.ПрочитатьXDTO(Ответ); 
КонецФункции

Автор: ValeryZ 22.03.18, 23:07

logist @ Сегодня, 16:14 ,
Тоже не взлетело

uanr81 @ Сегодня, 20:21 ,
Спасибо за подсказку, попробую покопаться/поанализировать.

По результатам отпишусь.

Автор: logist 22.03.18, 23:29

Цитата(uanr81 @ 22.03.18, 20:21)

Цитата(uanr81 @ 22.03.18, 20:21)

Функция ПолучитьОтветСервера(АдресСервера, ИдентификаторУстройства, ИмяОперации, ИмяФункции, Данные = Неопределено) Экспорт
    
    WSОпределениe    = Новый WSОпределения(АдресСервера + "/ws/MobileWS.1cws?wsdl", "mobile", "mobile");
    WSСервис        = WSОпределениe.Сервисы.Получить("MobileWS", "MobileWS");
    WSТочкаВхода    = WSСервис.ТочкиПодключения.Получить("MobileWSSoap");
    WSОперация        = WSТочкаВхода.Интерфейс.Операции.Получить(ИмяФункции);    
    
    Прокси = Новый WSПрокси(WSОпределениe, "MobileWS", "MobileWS", "MobileWSSoap"); 
    Прокси.Пользователь    = "mobile";
    Прокси.Пароль        = "mobile";
    
    Если ИмяОперации = "get" Тогда
        ОтветСервера = Вычислить("Прокси."+ИмяОперации+"(ИдентификаторУстройства,ИмяФункции)");
    Иначе // ИмяОперации = "post"
        ОбъектXDTO            = СериализаторXDTO.ЗаписатьXDTO(Данные);
        ТекстXML            = Новый ЗаписьXML;
        ТекстXML.УстановитьСтроку();
        ФабрикаXDTO.ЗаписатьXML(ТекстXML, ОбъектXDTO);
        СериализированныеДанные = ТекстXML.Закрыть();
        ОтветСервера = Вычислить("Прокси."+ИмяОперации+"(ИдентификаторУстройства,ИмяФункции,Новый ХранилищеЗначения(СериализированныеДанные,Новый СжатиеДанных(9)))");
    КонецЕсли;
    
    ОтветЗначение = ОтветСервера.Получить();
    
    ЧтениеXML = Новый ЧтениеXML;
    ЧтениеXML.УстановитьСтроку(ОтветЗначение);
    ОбъектXDTO = СериализаторXDTO.ПрочитатьXML(ЧтениеXML);
    ЧтениеXML.Закрыть();
    
    Возврат ОбъектXDTO;
        
КонецФункции

Автор: Vofka 23.03.18, 9:50

ValeryZ, в панели управления IIS в корневом узле и в узле конкретного сайта (вашей публикации) есть пункт меню Проверка подлинности. Если клацнуть туда, там должна открыться табличка, в которой должна быть строка Анонимная проверка подлинности. В ней состояние Включено? Если нет, включите и в корне и в публикации.

Автор: uanr81 23.03.18, 11:02

logist @ Вчера, 23:29 ,
Это я не вам, а автору темы. Просто многие слову прокси в этом контексте придают не то значение

Автор: uanr81 23.03.18, 12:42

ValeryZ @ Вчера, 14:13 ,
На мобильном сделть форму вставить в неё код

&НаКлиенте
Процедура ПроверитьСервис(Команда)
    мояСтрока = "КлиентСтрока";// То что отправляем на сервис
    сообщить(мояСтрока);
    сообщить(ПростоеПодключениеКВебСервису(мояСтрока));//Так как операция веб-сервиса возвращает строку
КонецПроцедуры
&НаСервере
функция ПростоеПодключениеКВебСервису(данные) Экспорт
    ВСОпределение = Новый WSОпределения("http://192.168.1.2/DemoUT10/ws/newService.1cws?wsdl","Fedorov"); //Должен быть пользователь Fedorov в базе на сервере
                                        //"ваша строка подключения публикации сервиса на сервере", "пользователь, если есть и пароль если есть"
    ВСПрокси = Новый WSПрокси(ВСОпределение, "newService","newService","newServiceSoap"); 
    ВСПрокси.Пользователь = "Fedorov";
    ответСервиса = ВСПрокси.MyOperation(данные);
    возврат ответСервиса;
КонецФункции

Функция MyOperation(strokaKlient)
    возврат "" + strokaKlient + "Отвечаю что я с сервера прилетела";
КонецФункции

Автор: ValeryZ 23.03.18, 16:43

uanr81 @ Сегодня, 12:42 ,
Спасибо. Испытаю вечером. Немножко был в командировке, поэтому не имел возможности опробовать.

Автор: ValeryZ 23.03.18, 20:55

uanr81 @ Вчера, 20:21 ,
Вот такой подход дал результат:

Цитата(uanr81 @ 22.03.18, 20:21)

Функция ПодключениеКВебСервису(ПараметрДляОтправкиНаСервер) Экспорт   //Сервер авторизации
    ВСОпределение = Новый WSОпределения("http://192.168.1.2/DemoUT10/ws/DataTransfer.1cws?wsdl","Fedorov");
    ВСервис       = ВСОпределение.Сервисы.Получить("DataTransfer","DataTransfer");
    ВТочкаВхода   = ВСервис.ТочкиПодключения.Получить("DataTransferSoap");
    ВОперация     = ВТочкаВхода.Интерфейс.Операции.Получить("Registration");    
    
    ВСПрокси = Новый WSПрокси(ВСОпределение, "DataTransfer","DataTransfer","DataTransferSoap"); 
    ВСПрокси.Пользователь = "Fedorov";
    Тест = Новый Структура;
    Тест.Вставить("Стр","Строка");
    Ответ = ВСПрокси.Registration(СериализаторXDTO.ЗаписатьXDTO(ПараметрДляОтправкиНаСервер));
    Возврат СериализаторXDTO.ПрочитатьXDTO(Ответ); 
КонецФункции