Есть такая вот проблема, стоит сейчас 2003 сервер, хочу перевести на современную ОС, конкретно на 2022 сервер.

Проблема заключается вот в чем. У нас есть dll с помощью которой идёт обращение к весам, с которых берется значение веса при выборе номенклатуры. Собственно на 2003 сервере все работает, на win 7 тоже работает. А вот на win 10 и server 2022 вес не берется с весов.

Dll регистрирую с помощью regasm, в win 7 спокойно зарегистрировал и сразу же весы поднялись. Помогите решить проблему с 2022 сервером. Куда смотреть, что ему может не хватать?

Вписал в обработку вот такой код

Процедура Сформировать()
    
    Сообщить ("Объект не создан");
    
    Весы = СоздатьОбъект("AddIn.TSModule");
    
    Сообщить ("Объект создан");
    
    Сообщить ("Состояние соединения " + Строка (Весы.IsConnected ()));
    
    Весы.IPAddres = "192.168.104.11";
    Весы.Port = 21;
    
    Весы.Connect ();
    
    Сообщить ("Состояние соединения " + Строка (Весы.IsConnected ()));  
    
    Весы.Send (Симв(0) + "q%" + РазделительСтрок);                      
    
    // Пауза
    Для Сч = 1 По 2000000 Цикл
    КонецЦикла;
    
    Сообщить ("Ответ " + Весы.Receive());
    
    Весы.Close ();
    
    Сообщить ("Состояние соединения после его закрытия " + Строка (Весы.IsConnected ()));
    
КонецПроцедуры


Выдало:


Объект не создан
Объект создан
Состояние соединения 0
Состояние соединения 1
Ответ 220 Microsoft FTP Service
500 'Q%': command not understood

Состояние соединения после его закрытия 0

Поменяйте на адрес/порт весов и посмотрите, что получится у вас. Можно попробовать на весы поставить ченть.

(132) Microsoft .NET Framework 4.5 стоит?

(135) Мы уже с ним проверяли соединение в (112)-(114). Работает либа.

значит, и фреймворка фурычит

Опа, прогресс:

Объект не создан
Объект создан
Состояние соединения 0
Состояние соединения 1
Ответ 08001,!   000,79kgL0010666076

Состояние соединения после его закрытия 0 (134)

Мало того, работает обработка и на родной dll...

(139) Значит таймер криво инициируется.

Тогда нужно поглядеть, какие там перепендосы с таймером и зачем он вообще нужен. Посмотрю немного позже.

(139) У тебя какое значение ИнтервалОбновления? Это в миллисекундах. Попробуй увеличить в 10 раз и запусти код из (134) без "Для Сч = 1 По 2000000 Цикл КонецЦикла;"

(142) в этом моем коде нет инициализации таймера, он там вообще не применялся. Скорее всего еще что-то нужно будет дописать.

(140) это про какой таймер? Не понял немного...

(144) там в компоненте есть таймер. Мы им пока не занимались.

(144) Вот так проверь
Весы = СоздатьОбъект("AddIn.TSModule");
Весы.IPAddres = "192.168.104.11";
Весы.Port = 21;
Весы.Connect();
Весы.CreateTimer();
Весы.StartTimer(2000);
Весы.Send (Симв(0) + "q%" + РазделительСтрок);
Сообщить ("Ответ " + Весы.Receive());
Весы.Close ();

+(146) Или еще вот так
Весы = СоздатьОбъект("AddIn.TSModule");
Весы.IPAddres = "192.168.104.11";
Весы.Port = 21;
Весы.Connect();
Весы.CreateTimer();
Весы.Send (Симв(0) + "q%" + РазделительСтрок);
Весы.StartTimer(2000);
Сообщить ("Ответ " + Весы.Receive());
Весы.Close ();
Смысла этого таймера я так и не понял.

(147) похоже на то что он не работает. Я попробовал зарядить 20000, а он проскакивает так же как 2.

на Win10

(148) Ну по коду он вообще бессмыслен. Так то нужна задержка между Send() и Receive(), судя по тому что после паузы Receive() нормально получает данные.

Похоже, что таймер просто вызывать обработку внешнего события должен. Ибо:
        private void OnTimedEvent(object sourse, ElapsedEventArgs e)
        {
            TSAddIn.ExtEvent.ExternalEvent("TSModule", "TSTimer", e.SignalTime.ToString());
        }

(146) (147)

Что в первом, что во втором случае получаю ответ - Ответ 08001+)   000,00kgL0010666076 . Нули это нормально, на весах ничего сейчас нет, я не на работе, удаленно смотрю. Вес будет где то после 18-19.

(152) Чему равен ИнтервалОбновления из (81)?
И нет ли где-нибудь в обработках процедуры ОбработкаВнешнегоСобытия (...) ?
Если есть, то что внутри процедуры?

только вот вызывать-то он должен, но чет не запускается процедура под Win10.

(153) Обработка есть, но она какая то древняя и ею никто не пользуется вообще. Ну и я не вижу что бы она где то вызывалась в глоб. модуле. В обработке интервал обновления = 1000 мс.

Тогда попробуйте в функции

Функция ПолучитьПоказанияВесов()  Экспорт
    Перем Ч,М,С, предст;                  
    Перем СписокПараметров;  
    Попытка
        Если Весы.IsConnected() = 0 Тогда
            Весы.Connect();
        КонецЕсли;
        Весы.Send(СтартСимвол + км_ПолучитьВесБезСтабилизации + РазделительСтрок);

после этой строки вписать строку

        Для Сч = 1 По 2000000 Цикл КонецЦикла;

и посмотрите, не появится ли вес с весов.

если появится, то значение 2000000 можно попробовать кратно уменьшать (в 2-10 раз за раз) до тех пор, пока вес не перестанет устойчиво получаться.

(157) Только паузу лучше так
    SystComm = СоздатьОбъект("AddIn.SystComm");
    SystComm.Ожидание(Сек*1000);

А то процессор зазря грузить

(158) главное чтобы станцевало. У меня нет уверенности что дело в задержке, хотя это очень-очень вероятно

и у него, скорее всего, нет этой компоненты, ее еще надо будет поставить

(156) Пока на весах веса нет, мы можем вывести ответ вниз 1с? Как при вашей обработке? Что б понимать идет или нет.

(161) да, конечно.

через Сообщить ()

(163) Я в плане, куда прописать правильнее будет?

Прописал вот так: https://prnt.sc/gDEsP3jQZt1i

Получаю: https://prnt.sc/dvLXLi104Wye

(165) ну, наверно, надо попросить кого-нть че-нть плюхнуть на весы, чтобы было понятно, есть данные или нет.

или как?

(166) Это само собой, жду как они там работу закончат и должны поставить на весы чет... Просто думал будет ответ, аля как выше было - "Ответ 08001+)   000,00kgL0010666076 "

Вообще у TcpClient есть свойство Available
https://docs.microsoft.com/ru-ru/dotnet/api/system.net.sockets.tcpclient.available?view=net-6.0
Значение свойства
Int32
Количество байтов данных, полученных из сети и доступных для чтения.
Во его и надо проверять в цикле с небольшими задержками

(168) а вот это я не знаю, потому как я всего кода функции ПолучитьПоказанияВесов () не видел. На предыдущей странице обрезана она.

(170)

Функция ПолучитьПоказанияВесов()  Экспорт
    Перем Ч,М,С, предст;                  
    Перем СписокПараметров;  
    Попытка
        Если Весы.IsConnected() = 0 Тогда
            Весы.Connect();
             //Сообщить (Весы.Connect());
        КонецЕсли;
        Весы.Send(СтартСимвол + км_ПолучитьВесБезСтабилизации + РазделительСтрок);
        Для Сч = 1 По 2000 Цикл КонецЦикла;
        Сообщить (Весы.Send());
        Ответ = Весы.Receive();
    
        Если Весы.IsConnected() = 1 Тогда
            Весы.Close();
        КонецЕсли;
        
    
        СписокПараметров = глРазложить(Ответ, Разделитель);  
    Исключение
        П = 0;
    КонецПопытки;
    
    ////++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    //    ТекущееВремя(Ч,М,С);                      //Код для отладки
    //    тв = Ч*100 + М + С / 100;                 //
    //    Возврат Число(тв);                        //                        
    ////++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
      
    Попытка
        П1 = СписокПараметров.ПолучитьЗначение(1,предст);
        П2 = СписокПараметров.ПолучитьЗначение(2,предст);
        П3 = СписокПараметров.ПолучитьЗначение(3,предст);
        П = Сред(П2,3);
        П = Лев(П, СтрДлина(П)-2);
        П = СтрЗаменить(П, " ", "");
        П = СтрЗаменить(П, ",", ".");
    Исключение
        П = 0;
    КонецПопытки;
    
    Возврат Формат(Число(П),"Ч12.7");
КонецФункции

(169) у железок еще есть такая особенность - их собственная асинхронность от вас и собственные тормоза. Эти весы совершенно необязательно сразу же отправят данные после того как им отправили запрос. И может получиться так, что в буфере пока еще и нет ничего к тому моменту, как вы спросите, сколько осталось.

(171) ну. Ответ-то разбирается через глРазложить, то есть он не подается на выход функции в неизменном виде.

Чтобы получить строку в неизменном виде, вам нужно Сообщить(Ответ) вставлять в этой функции после Ответ = Весы.Receive();, а не так, как в (165).

(173) Понял, ладно, подожду пока появится вес. Там уже будем смотреть.

Т.е я так понимаю, что проблема сейчас состоит в том, что вес не передается при вызове нужной мне функции?

Раз обработка NorthWind работает и успешно получает ответ от весов, значит в этом все в порядке.

(175) я предполагаю, проблема в том, что на свежих виндах к моменту, когда вы запрашиваете ответ, его еще нет в буфере приема, а в старых есть. В моей обработке присутствует пауза между запросом и получением ответа, а у вас нет.

это как вариант

(160) Это стандартно в винде есть, не нужно отдельно устанавливать

(178) > Это стандартно в винде есть
Не трынди, не вырастешь.
Для AddIn.SystComm нужна компонента DialMail

(173) Ну вот кстати ничего не сообщает, куда бы я не ставил Сообщить.

Вот в этом коде:

Функция ПолучитьПоказанияВесов()  Экспорт
    Перем Ч,М,С, предст;                  
    Перем СписокПараметров;  
    Попытка
        Если Весы.IsConnected() = 0 Тогда
            Весы.Connect();
             //Сообщить (Весы.Connect());

        КонецЕсли;
        Весы.Send(СтартСимвол + км_ПолучитьВесБезСтабилизации + РазделительСтрок);
        Для Сч = 1 По 2000 Цикл КонецЦикла;
        Сообщить (Весы.Send());
        Ответ = Весы.Receive();
    
        Если Весы.IsConnected() = 1 Тогда
            Весы.Close();
        КонецЕсли;
        
    
        СписокПараметров = глРазложить(Ответ, Разделитель);  
    Исключение
        П = 0;
    КонецПопытки;


Если смотреть отладчиком, то доходит до строки - Сообщить (Весы.Send()); и потом сразу прыгает на строку  П = 0;

(177) Так, вес мне поставили. В общем тема с паузой не канает, мало того, почему ту забивается коннект на весы. Даже когда я закрываю выбор номенклатуры, пока 1с не перезагружу, даже вашей обработкой вес получить не могу. Сейчас попробую через отладчик еще раз глянуть, на каком месте начинается затык.

(177) https://prnt.sc/XjcK9HXO7FSn

Вот я делю точку остановки и дальше сразу прыгает вниз...

(181) после сенда цикл, а не перед! Задержка нужна, чтобы ответ успел прийти.

Так блин, я не знаю что я сделал, но вес я получил. Начал удалять в коде лишнее и ...

И ресив не надо вызывать дважды. Второй раз там нечего читать, все уже считано.

Сейчас код выглядит так:

Функция ПолучитьПоказанияВесов()  Экспорт
    Перем Ч,М,С, предст;                  
    Перем СписокПараметров;  
    Попытка
        Если Весы.IsConnected() = 0 Тогда
            Весы.Connect();
         КонецЕсли;
        Весы.Send(СтартСимвол + км_ПолучитьВесБезСтабилизации + РазделительСтрок);
        Ответ = Весы.Receive();
        Если Весы.IsConnected() = 1 Тогда
            Весы.Close();
        КонецЕсли;
И собственно:

https://prnt.sc/YTgXX6ZPTEOY

скорее всего, вы где-то создали задержку, благодаря которой данные оказались в буфере и их удалось прочитать. Я бы рекомендовал поместить задержку вот здесь
  Весы.Send(СтартСимвол + км_ПолучитьВесБезСтабилизации + РазделительСтрок);
  // здесь задержка 20-50 мс
  Ответ = Весы.Receive();

Вот только я теперь не могу понять, что я изменил, что оно заработало.

возможно, ничего, просто винда стала работать чуть медленнее

спустя некоторое время этот эффект может уйти и опять вес перестанет приходить

(191) Сейчас скопирую нулевую базу, проверю на ней. Вы все же думаете что в задержке дело?

я бы советовал использовать какую-нибудь не нагружающую процессор задержку между строками как написано в (188). Можно такую, которую рекомендует (158).

думаю, достаточно будет 20 миллисекунд. Максимум 50.

(194) Просто я ж как раз задержку вашу убрал, которая Для Сч = 1 По 2000000 Цикл КонецЦикла;

Самое фиговое во всем этом, что вот заработало, а теперь понять из за чего не работало, хрен поймешь.

(195) вы ее, во-первых, не совсем туда поставили. Нужно было МЕЖДУ отправкой запроса и получением ответа. Во-вторых, это пробная конструкция и цифру надо было, скорее всего, уменьшать. В-третьих, пустой цикл - это плохой метод организации задержки, годится только для экспериментов. В продуктив надо делать что-то типа (158).

и в-четвертых, вот тут у вас был косяк:
Ответ = Весы.Receive();
Сообщить (Весы.Receive()); // нельзя! Надо было: Сообщить (Ответ);

(197) Ну сейчас проверю, а то на виртуалку копирую + пока сортировка поменяется. Хочу ради интереса просто проверить. Чудес ведь не бывает =)

(178) Хмм...
SystComm = СоздатьОбъект("AddIn.SystComm");
{D:\TSMODULE.ERT(10)}: Неудачная попытка создания объекта (AddIn.SystComm)

Че я делаю не так?

(196) Ну собственно как я и думал, в нулевой базе банан а не вес. Сейчас буду сравнивать код...

(199) + это внешняя компонента DialMail.dll

(172) Ну вот как раз перед Read нужно дождаться когда Available  не равно 0. И уже в цикле смотреть Available   и следить за таймаутом

https://prnt.sc/YKRWrmPO5Lnl

Почему подсвечивает как разный код? Одинаково ж все...

(203) Есть у штатного сравнения такие "глюки" + опять же пробелы какие "левые" или "tab"-ы

Короче я не знаю ребят. Взял сейчас родную базу. И так и сяк проверял. В конечном счете когда изменил айпишник и порт на статику, а не константу, то вес сразу начал поступать.

НО. На той базе которую мы мучаем уже третий день, я это сделал почти в самом начале и тогда ничего не помогло. Да и сейчас когда я удалял из кода лишнее, я в блоке где айпишник и порт ничего не трогал. Как оно могло само заработать то? =_=

Сейчас попробую еще на другой системе.

https://drive.google.com/file/d/1WhI7zKPPwKbFsel14YWIey76o26yQwKw/view?usp=sharing
здесь я добавил задержку в 30 мс в метод Receive. То есть в коде 1С ничего делать не надо. Попробуйте.

(207) Так в том то и дело, что не в задержке проблема. Я сейчас взял новую базу, поменял ip и порт с констант на железную статику, и вес сразу начал идти...

(208) Заверните в СокрЛП () адрес, который вы берете из константы.

(209) Не совсем понял, что сделать надо.

(210) Там где у вас

Весы = СоздатьОбъект("AddIn.TSModule");
Весы.IPAddres= Адрес;
Весы.Port    = Порт;

сделайте

Весы.IPAddres= СокрЛП(Адрес);

порт, я надеюсь, константа целая, а не строковая

(211) Ну в константах просто вот так вот прописано - https://prnt.sc/jZUSE_FKTNlH

Так то что выше стереть и прописать СокрЛП? А порт как?

(155) ОбработкаВнешнегоСобытия() - это не обработка, а предопределенная процедура, ты в коде можешь вообще нигде не найти вызова ее, т.к. она срабатыввает "сама", когда извне откуда-то приходит внешнее событие (жмак сканером присылает даннеы итд). ОбработкаВнешнегоСобытия() может быть в локальном модуле любой формы (какого-нибудь документа, справочника, итд), а м.б. в глобальном модуле - это процедура срабатывает если в форме нет локальной процедуры

(211) Сделал так, вес берет.

https://prnt.sc/wG3N7p5ojTRS

(212) дело в том, что строковые константы обычно идут фиксированного размера, а у 7.7 в таких случаях строки добиваются пробелами до указанной фиксированной длины. Т.е. на вход компоненты у вас адрес приходит с хвостом из пробелов. Возможно, сокет плохо реагирует на такую хрень. С портом проще, он даже если задан строкой, то преобразуется в целое число и там пробелы по-любому отбрасываются.

неаккуратно написан код просто. Грамотный спец когда пишет - он старается сразу все предусмотреть и неоднозначности убрать, в частности, понавставлять эти СокрЛП в достаточном количестве там, где они нужны.

(213) этот кусок в компоненте все равно почему-то не заработал. Не вызывается обработка. Почему - я пока не понял, да похоже, теперь уже и не надо.

(158) формексом можно, вероятность наличия формекса поболее ;-0
Для объекта "Сервис"
Пауза(<?>)
Синтаксис:
Пауза(<Задержка>)
Назначение:
Метод для приостановки выполнения кода на заданное количество миллисекунд. Применяется, например, при ожидании внешнего события, чтобы не наргужать систему пустым циклом.
Параметры:
<Задержка> - размер паузы в миллисекундах.

(215) Огромное вам спасибо за помощь. Как я вас могу отблагодарить? Вы очень помогли, разобраться.

(219) а что я тебе говорил? - ходи на мисту!

(218) чтобы не долбаться с задержками, придумали такое событие, как ПоступлениеДанных, в разных компонентах и средах называется по-разному, но смысл один. Настраиваются условия "сработки" этого события количеством байт в буфере например. Для tcp client через EvenHandler должно работать.

(220) да красавцы, двое суток бились, победили все таки)

(222) самое обидно, что проблема как всегда была прямо перед носом...

(223) в итоге что было-то? я по диагонали следил.

(223) если я правильно понял - из за статики?

По поводу адреса - насколько я помню,пробелы в конце dns умеет отрезать.
Вот только если у вас ip-адрес записан,то все зависит от библиотеки winsock.

На низком уровне,там вызов GetHostByName,который возвращает ошибку,если не сиог получить адрес,и вот если бы эта ошибка хоть как-то показывалась - вопросов бы не было.

Пробелы в конце имени (адреса) той стороны.

Когда вы пишете программу и прячете коды ошибок от тех,кто ей будет пользоваться,вы ставите мину замедленного действия - сколько времени ушло на копание ?
И сколько бы ушло,если бы сразу был ответ,cannot resolve hostname?

(224) строка с ip-адресом весов, добттая пробелами до длины без СокрЛП() передавалась на вход винсокета. Старые винды это жрали и открывали соединение. Новые нет.

(218) Ради паузы тянуть целый формекс?
Вот пример ненагружающей процессор паузы без всяких компонент:

Процедура ЗадержкаВыполнения(ВремяОжидания); // в секундах
    Если ВремяОжидания > 0 Тогда
        Попытка
            WshShell = СоздатьОбъект("WScript.Shell");
            xPing = "ping -n 1 -w "+СокрЛП(1000*ВремяОжидания)+" 127.255.255.255";
            WshShell.Run(xPing, 0, -1);
        Исключение
            сообщить("Ошибка при выполнении задержки: "+ОписаниеОшибки(),"!!");
        КонецПопытки;
    КонецЕсли;
КонецПроцедуры

Извиняюсь, был сильно занят и не мог участвовать в разборе полетов.
Я согласен, ошибку надо было в компоненте выкидывать в какое-то описание ошибки, но этого там нет.
Но... если работает - не трожь (первое правило сисажмина/программиста).
Рад что вычислили причину!

З.Ы. Нормальные исходники были сделаланы не дотпиком (много непонятного при сборке), а телериком (с первого раза собралось).

(229) Оказалось это еще не все. Либо я уже переработался. Я это все делал из под учетки админа, но если я пытаюсь получить вес из под любой другой учетной записи, то банан. Права как на базу так и на 1с всем дал. Чего ему еще может не хватать?

Все сам дурак, забыл что тестировал настройки фаервола и залочил все порты. Извиняюсь.