Или замена COM на Linux
Выложил статью http://catalog.mista.ru/public/534901/
С выходом .Net Core CLR стало возможным использование классов .Net не только на Windows, но и других операционных системах.
Это особенно важно в разрезе импортозамещения. И главное - это аналог COM под Linux.
Сейчас под Linux для расширения возможностей 1С используются Web сервисы. Данная разработка позволит использовать не только сборки входящие в состав .Net Core, но и пользовательские портативные сборки.
Являясь автором v8: v8: Использование сборок .NET в 1С 7.x и 8.x и Создание внешних Компонент, я часто слышал в свой адрес, что это все туфта, ибо не кроссплатформенна.  Кроме того, под Windows полно готовых COM библиотек и несложно сделать свои COM библиотеки на разных языках. Для Linux ситуация сложнее. Там нет COM, а технология .Native API не слишком-то и дружелюбна.

Выводы о недостатках 1С реализации Технологии Внешних Компонент.

1. Абсолютно не нужны методы FindMethod, FindProp, IsPropReadable, IsPropWritable, GetNParams, HasRetVal, GetParamDefValue

Так как у методов

bool CallAsProc

bool CallAsFunc

bool SetPropVal и bool GetPropVal есть возвращаемое значение об успешном выполнении

Информация об ошибке возвращается через AddError.

Да и вызов по индексу это анахронизм от IDiapatch, где было описание диспинтерфейсов для увеличения скорости вызова.

2. При возвращении методами SetPropVal и GetPropVal исключение не вызывается

3. Зачем-то происходит установка свойств там, где в коде этого не требуется.

4. Вызывается метод как функция там, где метод вызывается как процедура.

5. Один из основных - это нельзя вернуть и передать экземпляр ВК из методов ВК.

Я лично не вижу никаких проблем. Определить значение для такого типа и установить ссылку в поле pInterfaceVal.

Подсчет ссылок происходит на стороне 1С. Передавать можно в том числе и объекты 1С только на время вызова метода.

В дальнейшем можно развить до использования событий объектов .Net в 1С по примеру Динамическая компиляция для использования .Net событий в 1С

Использовать асинхронные вызовы по примеру .Net в 1С. Парсинг сайтов, multipart/form-data, gzip итд

Вообще интеграция .Net есть в Microsoft Dynamics AX ClrObject.

Используя кроссплатформенный Core Clr, можно интегрировать в 1С. Особенно это актуально для Linux как импортозамещения.

Пока проверил, работает на Windows 7,10. Linux и IOS пока нет, но в скором проверю на виртуальной машине. .Net Core CLR можно скачать здесь

С чем я бы с удовольствием помог 1С. Есть огромный опыт использования классов .Net в 1С.

Ну вот и еще один непризнанный гений с манией величия. "Что я хотел бы посоветовать фирме 1С и пара слов об импортозамещении". Как насчет нескольких советов президенту? Или скажем напутствия для майков о правильном подходе к созданию ОС?

(2) На самом деле ВК неправильно работает. Её легко расширить как замену IDispatch. Это не касается к мании величия. Это предложение по улучшению функционирования ВК.
В этом заинтересованы и программисты 1С

(0) >С чем я бы с удовольствием помог 1С. Есть огромный опыт использования классов .Net в 1С.

Сейчас у 1С упор на java идет в новой "1С 9.0", не думаю что заинтересует их .Net

(3) Ну дык за бесплатно использовать кроссплатформенный .Net.
Там и всего то нужно установить в дистрибутив 65 мб библиотек .Net Core. Плюс довести до ума Native API.
Да и по аналогии с .Net можно и ЯВУ прикрутить. А если смотреть на запад, то многим знакомым с C# будет проще переходить на 1С

(0) хорош уже. не смешно уже нифига.

И разве в "1С 9.0" не будет COM? Одно другому не мешает.
И сомневаюсь, что ядро будет написано на Java. Скорее всего на всеми любимом С++
(5) Рад, что улучшаю тебе настроение.

(4) Про переход с C# на 1С это из разряда фантастики кажется.

Нет не спорю были попытки сделать фреймворки аля 1C тот же NSG FrameWork но загнулось оно.
Вот сделать стандартный (типовой) способ расширения 1С для использования внешнего кода это вполне гуд. Причем удобнее чем ВК и с кучей примеров/шаблонов и даже магазином/хранилищем.

(6) ты не улучшаешь мне настроение. ты меня пугаешь.

(2) А зачем ВК? Они в основном используются для работы с внешним оборудованием, для которого чаще всего нет и не предвидится драйверов под какие-либо ОС кроме Windows. К тому же кросс-платформенность используется примерно у 0% реальных заказчиков, если говорить о клиенте 1С, распространенность серверов под Linux наверное чуть выше. Зачем делать упор на кросс-платформенность и импортозамещение, если это пока никому не нужно и ограничивается лозунгами и декларациями о намерениях?

(7) Я про то, что 1С стремится на запад. А там люди уже привыкли к .Net и Jаva. Им проще использовать закомые компоненты.
(8) Так и чем же я такой страшный? Что тебя пугает? Скачай посмотри примеры. Или ты "Не читал, но осуждаю"

(9) человек прочитал 8 книг про .NET. Куда девать такую уйму знаний, если дальше 1с горизонтов он не видит?

(9) Не только. В основном для расширения возможностей 1С.
А вот мне постоянно на этом форуме делали упор на кроссплатформенность. Не хочешь кроссплатформенность используй более мощную Использование классов .Net в 1С для новичков

(10) напиши лучше убийцу 1С на .NET. это будет гораздо интереснее

(11) Я прочитал значительно больше. И не только по .Net.
А делал эту разработку для решения таких задач Практическое применение NET в 1С8 с помощью Serginio1

(13) Уже есть от Microsoft Dynamics AX

(15) да то фигня никому не нужная

У меня встала проблема со старыми разработками ВК - ни в какую не подключаются в новую 1С 8.3 тонкий клиент. Че то я весь мозг уже вынес. :-)

(17) На тонком не проверял. А чё отладчик говорит?
А у тебя COM или Native https://its.1c.ru/db/metod8dev#content:3221:hdoc

(17) почитай документацию 1с. мож там чо изменили.

Там для новых компонент должно возвращать
long BaseNetObjectToNative::GetInfo()
    {
        return 2000;
    }

(0) Ты уже резюме в 1С отправил, знаток политики фирмы ты наш? И что тебе оттуда ответили?

"Импортозамещение! 1С стремится на запад! В этом заинтересованы и программисты 1С! Абсолютно не нужны! Я лично не вижу никаких проблем!"

Помощник солнца, не иначе =)

(21) Спасибо!

(21) У тебя сервер на Linux?

(23) Windows. Есть дебиан, но только для оракла, никаких аппликейшн серверов там нет и не будет.
Запускать твои поделия не собираюсь.

(24) Да вобщем-то никто и не заставляет

(24) Мои поделия тебя никто не заставляет. Разговор о другом.
Например практически все программисты 1С используют ComОбъект.

По моей методе можно использовать
NetОбъект,NetТип
JavaОбъект,JavaТип

И эти объявления будут реально кроссплатформенны.
При это различия с ComОбъект минимальны. Имя класса равноценно комовскому ProgID. При этом нет ограничений на используемые типы.
Ты можешь написать свою библиотеку поместить в определенное место и использовать её вместо COM. Без регистрации итд. Расширять возможности 1С станет легче.

Например сейчас в конфигураторе куча функций, которые есть в стандартных библиотеках. При этом функционал 1С функций сильно недотягивает до стандартных библиотек.
Учитывая кроссплатформенность можно использовать нетовские или явовские библиотеки везде где можно. Упрощая программирование.
А что касается работы с HTTP,SMPT, JSON то эти библиотеки были задолго до того как 1С их реализовывала, при этом с ошибками и функционалом сильно недотягивающих до .Net или Java.
Стоит ли тратить время на то, что можно взять из стандартных библиотек. А ведь можно легко расширить за сче своих сборок.

(26) А "DCOM" мона? В смысле когда 1С с Native ВК на одном компе, а NetОбъект/JavaОбъект на совсем другом чтобы.

Мона. По такому принципу TSocketConnection работал.
Параметры сериализуются, а можно использовать калбеки

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

Сейчас с linux машинки/сервера 1С с ТО иногда сложно работать, самому лисапеды писать нужно для реализации win-net-сервера ТО.

(29) >владельцы софт/дров к ТО эксклюзивного платного
> вот против возможно будут вплоть до запрета такой ВК.

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

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

(31) Какой красивый обмен причины и следствия. А ведь и правда альтернативщина один в один получается, по крайней мере по тезисам и приемам.

(32) Что скажешь по 26?

(29) Есть SignalR (WebSockets)

1C Messenger для отправки сообщений, файлов и обмена данными между пользователям есть пример вызова методов с клиента на клиента. Сервер это тоже клиент

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

(36) Вы неосознанно пользуетесь ровно теми же приёмами и методами, что и сторонники альтернативной науки - свидетелями инопланетян, мирового заговора и отсутствия американцев на луне. Читать вас - одно удовольствие, продолжайте, пожалуйста!

(37) Выдыхай, бобер, выдыхай!©

Проблема такая: я не знаю, как ТС пишет код, но то, что он пишет на русском, у меня не компилируются. Я в два-три прохода читаю, что он пишет, чую, что что-то полезное описано, но что конкретно — непонятно.

(39) Чапаев поступает в академию, и заваливает экзамены.
- На чем срезался-то, Василий Иванович?
- На математике.
- А что так?
- Да понимаешь, Петька, спрашивают меня: сколько будет 0.5 плюс 0.5, а я нутром чую, что литр, а математически выразить не могу!
©

(40) А про поиски кореня квадратного анекдот знаешь? Ну вон он, рядом с ником у него =)

На мисте, кстати, уже был такой упоротый дотнетчик. Тоже .NET к 1С прикручивал и даже за деньги пытался это продавать. Но он вроде повзрослел и успокоился. Не вникал конкретно чего он там программировал, но принцип тот же: заморочиться на какой нибудь ерунде и требовать от 1с чтобы она на ней тоже заморочилась.
v8: v8: Elisy .Net Bridge 4 для 1С:Предприятие 8.2 (платное ПО)

(41) (42) Что скажите по поводу (26)
(39) А что именно не компилируется. Я проверял на машинах где нет ни VS и на 8 ке.

(42) То есть для тебя ComОбъект это ерунда? Я просто предлагаю кроссплатформенную альтернативу.
  Я сделал все, что мог. Если никому не нужно, значит умою руки. Пока теплится надежда. И главное, что все это можно прикрутит по минимуму затрат. Практически все готово.

(43) А нечего им сказать. Они же как бараны за пастухом: когда 1С это реализует они с пеной у рта начнут доказывать, что без интеграции с явой и дотнетом нельзя, что это ретроградство. А своей головой подумать и выйти за рамки - этож надо голову иметь.

(43) Ты с 2011 года руки умываешь. И практически все готово. Как-то поднадоело уже, знаешь.

(45) Конкретно, что тебе не нравится в 26?

(44) Вот я от них никак не могу добиться по поводу 26

(43) До того, как ты сбрендил на дотнете, все у всех прекрасно работало и все проблемы решались. Ключевые проблемы твоим гениальным изобретением не решить, а всякую мелочь любой программист решит любым удобным ему способом. Твой способ, на мой взгляд, корявый и неудобный.

(48) То есть ты не используешь ComОбъект?

(49) когда надо использую

+(50) например, word. excel. openoffice

(50) Я всего навсего предлагаю кроссплатформенную альтернативу COM. При чем не только на .Net но и Java.
Их использование аналогично COM.

(51) ну вот и прекрасненько. А мы с помощью дотнет используем HTTP, сокеты, ComPort, а короче мне лень перечислять

(53) да ты всё перечислил :)
это всё мелочи и давно решено с помощью ВК. Не неинтересно.

(54) Кому мелочи, а кто об этом целые книжки пишет, а не могущие своим умом придумать взахлеб визжат от них. А ВК - ну да, это так 1Сненько.

(53) для вас главное "с помощью .NET", а для меня главное чтобы работало и не зависело от COM компонентов или версии .NET

(53) http://vott.ru/entry/153703
Лучше, чем Пелевин, и не охарактеризуешь, пожалуй.

(54) Кроссплатформенно?
(56) Еще раз я предлагаю кроссплатформенную замену COM.
То есть можно в типовых использовать эти библиотеки.
Еще раз, по моей методе можно сделать и замену на Java.
(57) Во во. Как же я могу вас осуждать.

(55) "Кому мелочи, а кто об этом целые книжки пишет"
каждый зарабатывает как может. можно и о канцелярской кнопке книгу написать.

(58) Это у тебя только предлог и повод.

(56) Но ВК то ты пишешь. Я предлагаю писать не ВК, а сборки с классами. Хоть на .Net, хоть на Java. Только их писать значительно проще чем на Native ВК. При этом уже есть куча готовых компонентов.
(60) Ты выскажись по существу. Я предлагаю реальный работающий продукт как кроссплатформенную замену COM на 1С.
А ты мне о каких то мухах.
Ты используешь COM?

(58) "Еще раз я предлагаю кроссплатформенную замену COM"
как то громко звучит. Микрософт в этот COM миллионы долларов ввалил, а ты раз и замену состряпал за две недели.

(32) Микрософт  делал универсальную. Я предлагаю упрощенный, но работающий вариант. Ты кстати не пробовал использовать примеры?

(61) "Я предлагаю писать не ВК, а сборки с классами."
"Только их писать значительно проще чем на Native ВК"
чего там сложного то? взял шаблон две минуты и готово.
Инфостарт завален этими ВК по самое небалуй.
Это на С# сложно На паскалях и С++ нормально.

(63) "Ты кстати не пробовал использовать примеры?"
да они такие уродливые, что даже копипастить неохота. я просто люблю когда коротко, понятно и красиво.

63+ Подсчет ссылок и разрушение объекта ведет 1С.
Интерфейс, аналогичный IDispatch 1C тоже предоставляет. Главное это работает.

(64) Угу с одним методом? Еще раз я начал писать использование классов .Net в 1С, когда нужен был доступ к Вэб сервису с кучей классов и методов. На ВК я бы до сих пор писал весь функционал. При этом без поддержки объектов.
Сразу видно, ты мало имел дела с ВК.
А так я потратил всего 2 минуты. Предлагаю тебе помочь человеку раз все так просто. Практическое применение NET в 1С8 с помощью Serginio1

(65) Так напиши свои. Суть не в примерах, а в компоненте.

(66) "На ВК я бы до сих пор писал весь функционал."
ну это у кого как. кто-то сразу делает, а кто-то не сразу.

"Предлагаю тебе помочь человеку раз все так просто"
купить ему книжку про C# и вебсервисы?

(68) Написать ему ВК за 2 минуты. Я потратил ровно 2 минуты.

(67) "Так напиши свои. Суть не в примерах, а в компоненте."
да как то не хочется сначала писать всё на C#, потом отлаживать, а потом переделывать в 1С. Как то долго и глупо.

(69) Не написав ни строчки кода.

(70) То есть ВК в 1С не используешь? Я давно сразу пишу на 1С. Это ничем не отличается от использования ВК.

(69) "Я потратил ровно 2 минуты" ну и молодец. парень там уже неделю об стену головой.

Еще раз Это ничем не отличается от ComОбъект

(73) У него давно уже все работает.

(75) ну слава богу.

(73) Так напиши парню за 2 минуты. В 64 ты это утверждал. Ждем подтверждения.

(76) А бог, то тут каким боком?

(78) порадовался за чувака.

И еще раз задам вопрос. Если бы наравне с
ComОбъект
1с бы предоставила
NetОбъект,NetТип
JavaОбъект,JavaТип

То ты бы ими не пользовался, а писал свои ВК?

80 + В том числе с возможностью компиляции текстового кода

(77) "Так напиши парню за 2 минуты. В 64 ты это утверждал." Я не утверждал, что напишу за 2 минуты доступ к вебсервису про какие то молдавские фактуры, о которых я и слыхом не слыхивал.

Ну а создать пустую ВК с десятком методов можнет за пару минут любой презренный паскалист с помощью хотя бы вот этой фигни http://catalog.mista.ru/public/81644/

(80) если бы 1с сделала нормально, то пользовался бы.

(82) Ты не понял самого главного. Если мне нужно задействовать в 1С объект дотнет с десятком методов, то по твоему способу мне придется тупо в своей ВК продублировать все эти десятки методов. А используя как Сергей рефлексию мне ничего этого делать не надо. Я ни сточки не меняю в dll, практически все изменения на стороне 1С.

Честно говоря, я нипанимаю, ап чём ср@ч?
чувак дал возможность. использовать ее или нет - дело каждого.
Да, смешно, когда он толкает в каждую дырку свой .Нет, но это всяко лучше эфирокачков...

(84)  "тупо в своей ВК продублировать все эти десятки методов"
да не нужно это. обычно хватает пары методов типа. не обязательно в код 1с пихоть всё. достаточно сделать ВК с парой функций, а остальное варится в ВК. Я за такой метод.

(85) это ср@ч ради ср@ча

(87) тады ой.

(88) популяризируем решения микрософта. импортозамещение же.

(89) "попу ляризируете"? Это как? Это наказуемо, или похвально?

(90) решай сам

(86) Так сделай человеку. Ты уже больше 2 минут пишешь в этой ветке.
(83) То есть в итоге идея хорошая, но реализована не тем человеком. И этот человек отстой, ибо ...
(87) Меня конечно поражает, то что главное ср@ча, вместо продуктивной критики.

Еще раз про ВК. Я не писал ни одной строчки, а вот тебе придется определить классы, методы итд. И 10 строчками там не обойтись

(92) " Я не писал ни одной строчки" а кто тогда писал? тот чувак?

(93) API IE из 1с 7.7

(92)"Так сделай человеку. Ты уже больше 2 минут пишешь в этой ветке."
ну возьми сам и сделай. или покажи чего ты ему написал за 2 минуты. хотя ты не писал.

94+ добавить ссылку на службу. И классы генерятся автоматически в VS.

(96) а после того как классы сгенерятся ничего писать в 1С не нужно? оно сразу работает?

Кирпич ты меня удивляешь. Вроде же с .Net знаком и WCF клиентом тоже. Ты либо придуряешься либо ...

(98) я хочу увидеть что ты в 1с ниписал

(97) Ничего писать в ВК не надо. Писать в 1С придется не зависимо от того на чем написана компонента. На Com, ВК или чистом .Net.
Мы говорим о простоте написания ВК

Так посмотри Практическое применение NET в 1С8 с помощью Serginio1

(99) Ты с вэб сервисами не работал? То же самое

(102) ну покажи ваш код, который работает. чего ты стесняешься.

+(103) я хочу увидеть этого горбатого крокодила

блин. глянул. у нас всего два зрителя. чего я так разоряюсь тут :(

(105) А если бы 1С интегрировала, то этим бы пользовалась куча 1С ников. Только и всего.

(106) да не будет там кучи одинесников. у среднестатистического одинесника раз в год может появится какая нибудь задача типа молдавских фактур и он её решит любым способом, который ему доступен.
Кстати, а 1с умеет генерить код для вебсервисов как VS? Может забабахаешь такую генерилку?

(107) Та WsСсылка это оно и есть.
Там решать сложно. Там верификация подписи итд.
А решение через .Net 2 минуты без единого строчки кода. А на 1С количество кода даже будет меньше, чем при использовании родных WSОпределение, прокси итд

Кстати по новой методе стало возможным работать  с динамическими классами, через https://github.com/ekonbenefits/dynamitey/wiki/UsageReallyLateBinding#introduction

Например с популярной библиотекой Newtonsoft.Json
http://www.newtonsoft.com/json/help/html/QueryJsonDynamic.htm

В том числе с DynamicObject и ExpandoObject.
Можно использовать методы расширения, Generic методы, где типы определяются по параметрам.
Можно задавать русские имена для методов определенных типов.

Добавил поддержку объектов с поддержкой IDynamicMetaObjectProvider

Для теста создад ExpandoObject

  public object ПолучитьExpandoObject()
        {

            dynamic res = new ExpandoObject();
            res.Имя = "Тест ExpandoObject";
            res.Число = 456;
            res.ВСтроку = (Func<string>)(() => res.Имя);
            res.Сумма = (Func<int, int, int>)((x, y) => x + y);

            return res;
        }




И наследника DynamicObject

class TestDynamicObject : DynamicObject
    {

        public override bool TrySetMember(SetMemberBinder binder, object value)
        {

            return true;
        }
        // получение свойства
        public override bool TryGetMember(GetMemberBinder binder, out object result)
        {
            result = binder.Name;
            return true;
        }
        // вызов метода
        public override bool TryInvokeMember(InvokeMemberBinder binder, object[] args, out object result)
        {
            var res = new StringBuilder("{0}(");
            var param = new object[args.Length + 1];
            param[0] = binder.Name;
            if (args.Length > 0)
            {
                Array.Copy(args, 0, param, 1, args.Length);
                for (int i = 0; i < args.Length; i++)
                {
                    res.AppendFormat("{{{0}}},", i + 1);

                }

                res.Remove(res.Length - 1, 1);

            }
            res.Append(")");

            result = String.Format(res.ToString(), param);
            return true;


        }
    }




Теперь можно вызвать на 1С

Тестовый=ъТип("TestDllForCoreClr.Тестовый, TestDllForCoreClr, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null");
    Тест=ъ(Врап.Новый(Тестовый.ПолучитьСсылку()," Свойство из Конструктора"));
    
    // Это аналог структуры, но с поддержкой методов
    РасширяемыйОбъект=ъ(Тест.ПолучитьExpandoObject());
    
    Сообщить("ВСтроку="+РасширяемыйОбъект.ВСтроку());
    Сообщить("Сумма=" + РасширяемыйОбъект.Сумма(1, 2));
    
    Сообщить(РасширяемыйОбъект.Имя);
    Сообщить(РасширяемыйОбъект.Число);
    
    РасширяемыйОбъект.Имя="Новое Имя";
    РасширяемыйОбъект.Число=768;
    // Добавим новое свойство
    РасширяемыйОбъект.НовоеСвойство="Новое Свойство";
    
    Сообщить(РасширяемыйОбъект.Имя);
    Сообщить(РасширяемыйОбъект.Число);
    Сообщить(РасширяемыйОбъект.НовоеСвойство);
    
    НовыйРеквизит=ъ(Врап.Новый("System.Dynamic.ExpandoObject, System.Dynamic.Runtime, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"));
    
    НовыйРеквизит.Имя="Новый Реквизит";
    НовыйРеквизит.Значение=123;
    
    
    РасширяемыйОбъект.НовыйРквизит=НовыйРеквизит.ПолучитьСсылку();
    Сообщить(ъ(РасширяемыйОбъект.НовыйРквизит).Имя);
    
    
    TestDynamicObject=ъТип("TestDllForCoreClr.TestDynamicObject, TestDllForCoreClr, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null");
    
    ДинамикОбъект=ъНовый(TestDynamicObject.ПолучитьСсылку());
    ДинамикОбъект.УстановимЛюбоеСвойство="Чего то там";
    Сообщить( ДинамикОбъект.ПолучитТоЧтоПередали);
    Сообщить(ДинамикОбъект.ПолучитТоЧтоПередалиСПараметрами(1,3.45,ТекущаяДата()));





Это удобно при работе с различными парсерами

Добави вывод типов для дженерик методов
Теперь можно не выводить отдельно метод


// public T ДженерикМетод<V, T>(V param1, T param2, V param3)
Сообщить(Тест.ДженерикМетод(1,"Привет",3));
//

//public V ДженерикМетод2<K, V>(Dictionary<K, V> param1, K param2, V param3)
Словарь= ъНовый("System.Collections.Generic.Dictionary`2[System.Int32,System.String]");
Сообщить(Тест.ДженерикМетод2(Словарь.ПолучитьСсылку(),3,"Привет2"));

// public K ДженерикМетод3<K>(IList<K> param1, int param2, K param3)
List=ъНовый("System.Collections.Generic.List`1[System.String]");
Сообщить(Тест.ДженерикМетод3(List.ПолучитьСсылку(),3,"Привет3"));

Сделал поддержку внешнего события
В классе создадим пле типа Action<string, string, string>

public class Тестовый
    {
      public Action<string, string, string>

ВнешнееСобытие1С;

// И сделаем эмуляцию события.

public async void TestВнешнегоСобытия()
        {

            for(int i=0;i<100; i++)
            {
                var значение = i.ToString();
                Task.Run(async() =>
                {
                   await Task.Delay(1000).ConfigureAwait(false);
                   this?.ВнешнееСобытие1С("Тестовый", "ТестовоеСообщение", значение);
                });

                await Task.Delay(50).ConfigureAwait(false);
            }

        }

В 1С.

Процедура ВнешнееСобытие(Источник, Событие, Данные)
    // Вставить содержимое обработчика.
    
    Сообщить("Источник="+Источник);
    Сообщить("Событие="+Событие);
    Сообщить("Данные="+Данные);
КонецПроцедуры

Процедура ТестВнешнегоСобытияНажатие(Элемент)
    // Вставить содержимое обработчика.
    Тестовый=ъТип("TestDllForCoreClr.Тестовый, TestDllForCoreClr, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null");
Тест=ъ(Врап.Новый(Тестовый.ПолучитьСсылку()," Свойство из Конструктора"));

Делегат=Ъ(Врап.ПолучитьДелегатВнешнегоСобытия1C());
Тест.ВнешнееСобытие1С=Делегат.ПолучитьСсылку();
Тест.TestВнешнегоСобытия();
КонецПроцедуры

И не забыть в Переменных модуля установить
Перем   Тест;

Интересное заключается в том, что например если установить
static IMemoryManager *Current_IMemoryManager = nullptr;

Из одного объекта
Current_IMemoryManager = self->m_iMemory;

А вызывать из другого, то попадаем на ошибку памяти.
Поэтому

Приходится устанавливать текущий объект
void BaseNetObjectToNative::SetMemoryManager()
    {
        // Установим в статическое поле текущий объект для вызова
        // GetMem и AddError
        pCurrentObject=this;
    }


и вызов

void * LoaderCLR::GetMem(long ByteCount)
    {
        byte* res = 0;
            

        auto rez= BaseNetObjectToNative::pCurrentObject->m_iMemory->AllocMemory((void**)&res, ByteCount);
    //    auto rez = Current_IMemoryManager->AllocMemory((void**)&res, ByteCount);
            if (rez) memset(res,0, ByteCount);

        return (void*)res;
    }

И соответственно при вызове внешнего события используется менеджер памяти последнего объекта у которого был вызван метод.

В VS 2015 апдейт 3 появилась возможность создавать библиотеки и приложения под .Net Core
Вкладка
Шаблоны->Windows->.Net Core

Такой проект отличается от портативного.
В тестах добавил пример создания JObject и сериализации его в Json

Про установку SDK и прочее можно посмотреть здесь
http://metanit.com/sharp/aspnet5/1.2.php

Понял почему свойства присваиваются

Например
Функция Ъ(знач Ссылка)
    
    // Создаем объект по ссылке полученной из методов .Net классов
    //Физически это строка ёЁ<Ьъ>№_%)Э?&2 содержащее 12 символов для отделения их от других строк
    //и индекс в спике исполуемых объектов на стороне .Net

    рез = Новый("AddIn.NetObjectToNative.NetObjectToNative");
    // И установим ссылку
    рез.УстановитьСсылку(Ссылка);    
    возврат  рез
КонецФункции // СоздатьОбъектПоСсылке()


И если вызвать без Знач
Зазача=ъ(Список.Current);

То 1С предполагает, что Список.Current может измениться внутри метода и присваивает значение, так как по ссылке не может передать.

Или же делать так, если методы изменить нельзя

Стр=Список.Current;
Зазача=ъ(Стр);

Добавил поддержку параметров по умолчанию

// Тест вызова метода с параметрами по умолчанию
    
    //public static int OptionalParam(int x, int y, int z = 5, int s = 4,string str="Привет")
    //       {
    //           return x + y + z + s;
    //       }
    

    //public static int OptionalParam(int x, int y, int z = 5, int s = 4,string str="Привет")
    Сообщить("OptionalParam(int x, int y)="+Тестовый.OptionalParam(1,2));
    Сообщить("OptionalParam(int x, int y, int z = 5)="+Тестовый.OptionalParam(1,2,3));
    Сообщить("OptionalParam(int x, int y, int z = 5, int s,string str)="+Тестовый.OptionalParam(1,2,3,4,"ХаХа"));

(118) А можно пример кода по подключению к другой базе и выполнения прямого запроса?

(119) Уточни какой базе и каким образом подключения если другая база без сервера и ни одной копии предприятия другой базы не запущено?

(120) База клиент-серверная, вертится на PostgreSQL на линухе. Один её экземпляр запущен всегда(робот обмена).

(121) Либо можно сразу прямой запрос к SQL. Так вытаскиваем данные из СБИСа и Аксапты

(122) ты изобрел 1С++ и прямые запросы для 77

(123) Неа))

Просто реально интересно возможно ли с помощью данной разработке выполнить аналогичный код:
СтрокаПодключения =
"Provider=SQLOLEDB.1;
|User ID=com1c;
|Pwd=********;
|Data Source=Имя_сервера_SQL;
|Initial Catalog= testDB";//наша database

Connection  = Новый COMОбъект("ADODB.Connection");
Command  = Новый COMОбъект("ADODB.Command");
RecordSet  = Новый COMОбъект("ADODB.RecordSet");

Попытка
  Connection.Open(СокрЛП(СтрокаПодключения));
  Command.ActiveConnection   = Connection;
  //Проверка на наличие нашей database
  Command.CommandText = "select * from database'";
  RecordSet = Command.Execute();
  
  Если RecordSet.EOF() Тогда
   //наш обработчик;
  
  КонецЕсли;

(124) Легко

(125) Можете привести конкретный пример 1С-ного кода?

(126) http://www.mono-project.com/docs/database-access/providers/sqlclient/

(127)+ штука ТС из (0) позволяет переписать код на 1С с ВК

(128) Спасибо за на водку:)

(124) Сейчас в другой ветке спрашивали. Можно

Вот SQL запрос к MS SQL




    СборкаSqlClient=ъ(Врап.Сборка("System.Data.SqlClient.dll"));
    SqlConnection=ъ(СборкаSqlClient.GetType("System.Data.SqlClient.SqlConnection"));
    SqlCommand=ъ(СборкаSqlClient.GetType("System.Data.SqlClient.SqlCommand"));
    
    connection =ъ(Врап.Новый(SqlConnection.ПолучитьСсылку(),ConnectionString));
    connection.Open();
    
    ТекстЗапроса = "Select Номенклатура.DESCR Наименование  From sc84 Номенклатура where DESCR Like '%'+@Строка+'%'
    |order by Номенклатура.DESCR";
    
    
    command = ъ(Врап.Новый(SqlCommand.ПолучитьСсылку(),ТекстЗапроса,connection.ПолучитьСсылку()));
    
    Parameters=ъ(command.Parameters);
    Parameters.AddWithValue("@Строка", "ДСП");
    dr = ъ(command.ExecuteReader());
    
    Пока dr.Read() Цикл
        Сообщить(dr.get_Item("Наименование"));
    КонецЦикла;

Кроме того есть EF и отдельные пакеты например
https://github.com/SapientGuardian/mysql-connector-net-netstandard

http://www.npgsql.org/doc/coreclr.html

(130) а нельзя сраз0у возвращить из нет, результат функции Ъ

Я в шапке и в первом сообщении описал почему
1С Linux. Что не хватает по сравнению с Windows?

Так как в Native API нельзя возвращать и передавать объекты то приходится передавать и возвращать строку. А оборачивать объект через функцию ъ (аналог $ в JQuery) и передавать строку используя метод ПолучитьСтроку().

(130) Прошу прощения за блондинистость. Только начал изучать эту тему и вашу разработку. Если я всё правильно понял, мне нужно скачать .NetCore, Ваши файлы с яндекс диска и сделать обработку с представленным Вами кодом?

(134) В файлах есть и .Net Core он в папке bin

Пути учитывают местоположение отчетов и относительно него передают нужные пути при создании ВК

Процедура ПриОткрытии()
    
    // Установим отчет рядом с  AddInNetObjectToNative.dll
    // NetObjectToNative.dll
    // и библиотеками  Microsoft.NETCore.App\1.0.0\    
    // Так как нужны 32 разрядные так как клиент 1С 32 разрядный
    // Скачать можно здесь https://github.com/dotnet/cli
    // На сервере можно использовать 64 разрядную Core Clr
    
    Файл=Новый Файл(ЭтотОбъект.ИспользуемоеИмяФайла);  
    КаталогОтчета=Файл.Путь;    
    
    ИмяФайла=КаталогОтчета+"\AddInNetObjectToNative.dll";
    
    ПодключитьВнешнююКомпоненту(ИмяФайла, "NetObjectToNative",ТипВнешнейКомпоненты.Native);
    Врап = Новый("AddIn.NetObjectToNative.LoaderCLR");
    CoreClrDir=КаталогОтчета+"\bin\";
    ДиректорияNetObjectToNative=КаталогОтчета;
    
    СсылкаНаДомен=Врап.СоздатьОбертку(CoreClrDir,ДиректорияNetObjectToNative,"");
    Врап.ЗагрузитьDLL(ИмяФайла);
    
    
КонецПроцедуры

(136) Спасибо Вам большое за пояснения! Пойду разбираться :)

(136) Вопрос наверное к ув. Serginio1, хочу все-таки доразобраться со своими ВК, а то я забросил свою тему и так ее и не добил...
Хочу найти образец внешней компоненты с событиями для управляемых форм 8.3

Вы лучше скажите - в типах внешних компонент есть такое определение:
enum AddInComponentType
{
    eAddInCom = 1,
    eAddInNative,
    eAddInJava,
    eAddInvalid = -1
};
Что предполагает, что внешние компоненты могут быть написаны на Java - это как - только мечта или есть какие-то сподвижки ?

(139) Native API только натив. Но можно сделать порт, аналогичный COM. То есть доступ к статическим методам.

Просто, в описании Native API и структуры VARIANT есть заготовка под интерфейс - есть подозрение, что можно попробовать передать объект.

(141) Пробовал. Плохой тип переменной.

Даже Двоичные данные ты можешь вернуть, а вот передать в параметрах - нет

Читал, что на java можно запилить ком объект. http://www.rgagnon.com/javadetails/java-0045.html
На как по мне профита от ком объекта мало учитывая заморочки с регистрацией. Если бы была возможность писать native vk

(144) COM-объект никак не соотносится с 1С.
Готовый объект мы также можем дёргать из 1С, но передать ему объекты 1С невозможно.

Кстати, написано, что события на сервере не поддерживаются - а тогда зачем вообще внешняя компонента нужна ?

(145) В COM объект мы можем передавать любые объекты 1С.
http://catalog.mista.ru/public/466196/
внизу заполнение ТаблицыЗначений в объектн на C#.

http://catalog.mista.ru/public/457898/
ВК мы можем передать ссылку на модуль и вызвать его методы

(143) Обещают исправить.
Изменения в технологии внешних компонент NativeAPI
https://wonderland.v8.1c.ru/blog/rasshirenie-funktsionalnosti-raboty-s-dvoichnymi-dannymi/

(148) Спасибо. Самое смешное, что все это можно делать через .Net через COM. Для кроссплатформенного нужно сделать возможность передачу в параметрах ВК и возврат ВК. И все необходимые вещи уже там есть.
Мне очень жаль мою разработку. Это мой ребенок. Очень не хочется, что бы он умирал.

(149) Пока есть те, кто хотят уйти на линух целиком и полностью - будет жить:)

(150) Так и это все есть
1С, Linux, Excel, Word, OpenXML,ADO и Net Core
https://habrahabr.ru/post/308216/

Просто для того, что бы избавиться от ъ нужно немного модифицировать Native API

(136) Снова вопрос к Вам или "Возвращение блондинки":)

Почитал статьи, поизучал обработки(скачал ваш архив с ЯД), попробовал  написать свою обработку на УФ, на "базе одной из Ваших, которая бы подрубалась к SQL напрямую и выполняла запрос. Строку подключения и запрос взял из аналогичной виндовой обработки, работоспособность запроса и строки подключения 100%(самописный робот обмена вертится 24/7). Тестирую на чистой клиент-серверной базе(на сервере на базе WinSrv 2012 R2, MS SQL 2012 R2 под админом по РДП). Полный код обработки:




Перем   Врап,СсылкаНаДомен,ИмяСборкиAngleSharp;
Перем String,ExpandoObject,Environment;
Перем Cell,SharedString;
Перем ШаблонКолонки,ШаблонСтроки;
Перем NewLine,Таб;

&НаСервере
Процедура прочитатьSQLНаСервере()
СборкаSqlClient=ъ(Врап.Сборка("System.Data.SqlClient.dll"));
SqlConnection=ъ(СборкаSqlClient.GetType("System.Data.SqlClient.SqlConnection"));
SqlCommand=ъ(СборкаSqlClient.GetType("System.Data.SqlClient.SqlCommand"));
ConnectionString = "DRIVER={SQL Server};SERVER=server2k,1521;DATABASE=axapta;UID=sa;PWD=sa";
connection =ъ(Врап.Новый(SqlConnection.ПолучитьСсылку(),ConnectionString));
connection.Open();
    
ТекстЗапроса = "select b.invoiceid, b.documentdate, b.invoiceamount, b.invoiceaccount, r.rcontractnumber, b.dimension4_ as status, c.salespoolid as poolid, ed.dimension4 as serialstatus, (case when e.inventcompanyid <> b.dataareaid then 1 else 0 end) as commission,
|t.itemid, t.fullname, d.inventserialid, f.FacturedQty_RU as qty,
|case when f.FacturedQty_RU <> 0 then (f.lineamount+f.lineamounttax)/f.FacturedQty_RU else 0 end as price,
|sp.PurchasingPriceTax as PurchasingPrice,'' as DirectDeliveryName,
|f.lineamount, g.taxitemgroup, f.lineamounttax, d.inventgtdid_ru, v.name as gtdcounrty, g.inventrefid, h.INN_RU as INN, h.INN_Main
|, 0 as transtype, case when f.lineamount < 0 then 0 else 1 end as statusissue, case when f.lineamount < 0 then 1 else 0 end as statusreceipt
|,t.vital, t.qtyaccounting, t.stronggroup, h.accountnum, 0 as vend, h.phone, h.address, f.dimension, f.dimension2_, f.dimension3_, f.dimension4_, f.dimension5_, f.dimension6_, f.dimension7_, i.haggle as  haggle
|,k.externalnumber as externalnum, k.externaldate, h.KPP_RU as KPP
|,case when f.lineamount < 0 then g.inventrefid else NULL end as refinvoiceid
|,case when f.lineamount < 0 then (select top 1 documentdate from custinvoicejour where dataareaid IN ('тк') and invoiceid = g.inventrefid) else null end as refinvoicedate,
|case when h.AdditionCompany = 'FMS' then 'FMS' else case when h.AdditionCompany = 'CTR' then 'CTR' else case when h.AdditionCompany = 'YUG' then 'YUG' else '' end end end as OrgUTII,
|h.AdditionCompanyDate as DateAddOrgUTII,
|case when (c.purchorderformnum<>'' and c.purchorderformnum is not null) and (c.customerref<>'' and c.customerref is not null) then '1' else '0' end as DirectDelivery,
|sp.taxitemgroup as Purchasing_taxitemgroup, rcta.startdate as StartDateUGII, vei.DeliveryDate as DirectDeliveryDate,
|vcase when f.FacturedQty_RU > 0 then isnull((select max(ct.additioncompany) from CustClaimDrugstore ccd, custtable ct where ccd.DrugstoreSrc<>'' and ccd.DrugstoreSrc = ct.accountnum and ccd.SalesIdRef = c.salesid and ccd.dataareaid = 'тк' and ct.dataareaid = 'zgc'),0) else
|isnull((select max(ct.additioncompany) from CustClaimDrugstore ccd, custtable ct where ccd.DrugstoreDst<>'' and ccd.DrugstoreDst = ct.accountnum and ccd.ReturnIdRef = c.salesid and ccd.dataareaid = 'тк' and ct.dataareaid = 'zgc'),0) end as OrgUTIIDst
|from custinvoicejour b
|left join externalnumline j    on j.invoiceid = b.invoiceid and j.dataareaid = 'zgc'
|left join externalnumjournal k on k.dataareaid = 'zgc' and k.dataarea IN ('тк') and k.recid = j.refrecid
|join custinvoicetrans f on f.salesid = b.salesid and f.invoiceid = b.invoiceid and f.invoicedate = b.invoicedate and f.numbersequencegroup = b.numbersequencegroup and f.dataareaid IN ('тк')
|join salesline g on g.inventtransid = f.inventtransid and g.dataareaid IN ('тк')
|join inventtable t on t.itemid = f.itemid and t.dataareaid = 'zgc'
|join salestable c on c.salesid = f.salesid and c.dataareaid IN ('тк')
|join salespool i on c.salespoolid = i.salespoolid and i.dataareaid = 'zgc'
|join custtable h on h.accountnum = c.custaccount and h.dataareaid = 'zgc'
|join inventdim d on d.inventdimid = f.inventdimid and d.dataareaid = 'zgc'
|join inventserial e on e.inventserialid = d.inventserialid and e.dataareaid = 'zgc'
|left join inventserialdetail ed on ed.inventserialid = e.inventserialid and ed.dataareaid = 'zgc'
|left join rcontracttable r on r.rcontractpartnertype = 0 and r.rcontractcode = c.rcontractcode and r.rcontractaccount = c.rcontractaccount and r.rcontractpartnercode = c.custaccount and r.dataareaid IN ('тк')
|left join country v on v.countryid = t.producercountry and v.dataareaid = 'zgc'
|left join salespricing sp on e.inventserialid = sp.inventserialid and sp.dataareaid = 'тк'
|left join rcontracttableadd rcta on rcta.vendaccount = sp.vendaccount and rcta.custaccount = b.invoiceaccount and rcta.dataareaid = 'тк'
|left join VendElectronicInvoice vei on vei.num = c.PurchOrderFormNum and vei.inn_ru = c.CustomerRef and year(vei.DeliveryDate)=year(c.DeliveryDate) and vei.dataareaid = 'тк'
|where b.dataareaid IN ('тк')
|and (t.itemtype = 0 or t.itemtype = 1) and b.documentdate = '2016-06-21' and b.dimension4_ = '1' and exists (select 'x' from returnactiondefaults m where m.returnactionid = g.returnactionid and m.module = 2 and m.dataareaid = b.dataareaid and m.export1c = 1)
|and (i.export1ctrade = 1)
|
|union all
|
|select b.invoiceid, b.documentdate, b.invoiceamount, b.invoiceaccount, r.rcontractnumber,b.dimension4_ as status, c.purchpoolid, ed.dimension4 as serialstatus, (case when e.inventcompanyid <> b.dataareaid then 1 else 0 end) as commission,
|t.itemid, t.fullname, d.inventserialid, f.FacturedQty_RU as qty,
|case when f.FacturedQty_RU <> 0 then (f.lineamount+f.lineamounttax)/f.FacturedQty_RU else 0 end as price,          
|sp.PurchasingPriceTax as PurchasingPrice, case when vei.DeliveryName != '' then vei.DeliveryName else b.deliveryName end as DirectDeliveryName,
|f.lineamount, g.taxitemgroup, f.lineamounttax, d.inventgtdid_ru, v.name as gtdcounrty, g.inventrefid, h.INN_RU as INN,  ''  as INN_Main
|, 3 as transtype, case when f.lineamount < 0 then 1 else 0 end as statusissue, case when f.lineamount < 0 then 0 else 1 end as statusreceipt
|,t.vital, t.qtyaccounting, t.stronggroup, h.accountnum, 1 as vend, h.phone, h.address, f.dimension, f.dimension2_, f.dimension3_, f.dimension4_, f.dimension5_, f.dimension6_, f.dimension7_, 0 as haggle, '' as externalnum, '' as externaldate , h.KPP_RU as KPP
|,case when f.lineamount < 0 then g.inventrefid else NULL end as refinvoice
|,case when f.lineamount < 0 then (select top 1 documentdate from vendinvoicejour where dataareaid IN ('тк') and invoiceid = g.inventrefid) else null end as refinvoicedate,
|case when ct.AdditionCompany = 'FMS' then 'FMS' else case when ct.AdditionCompany = 'CTR' then 'CTR' else case when ct.AdditionCompany = 'YUG' then 'YUG' else '' end end end as OrgUTII,
|ct.AdditionCompanyDate as DateAddOrgUTII,          
|case when (((vei.inn_ru <>'' and vei.inn_ru is not null) and (ct.accountnum <>'' and ct.accountnum is not null)) or (c.PurchPoolId = 'Immediate')) then '1' else '0' end as DirectDelivery,
|'' as Purchasing_taxitemgroup, rcta.startdate as StartDateUGII, vei.DeliveryDate as DirectDeliveryDate,'' as OrgUTIIDst
|from vendinvoicejour b
|join vendinvoicetrans f on f.purchid = b.purchid and f.invoiceid = b.invoiceid and f.invoicedate = b.invoicedate and f.numbersequencegroup = b.numbersequencegroup and f.internalinvoiceid = b.internalinvoiceid and f.dataareaid IN ('тк')
|join purchline g on g.inventtransid = f.inventtransid and g.dataareaid IN ('тк')
|join inventtable t on t.itemid = f.itemid and t.dataareaid = 'zgc'
|join purchtable c on c.purchid = f.purchid and c.dataareaid IN ('тк')
|join purchpool i on c.purchpoolid = i.purchpoolid and i.dataareaid = 'zgc'
|join vendtable h on h.accountnum = c.orderaccount and h.dataareaid = 'zgc'
|join inventdim d on d.inventdimid = f.inventdimid and d.dataareaid = 'zgc'
|join inventserial e on e.inventserialid = d.inventserialid and e.dataareaid = 'zgc'
|left join inventserialdetail ed on ed.inventserialid = e.inventserialid and ed.dataareaid = 'zgc'
|left join rcontracttable r on r.rcontractpartnertype = 0 and r.rcontractcode = c.rcontractcode and r.rcontractaccount = c.rcontractaccount and r.rcontractpartnercode = c.orderaccount and r.dataareaid IN ('тк')
|left join country v on v.countryid = t.producercountry and v.dataareaid = 'zgc'
|left join salespricing sp on e.inventserialid = sp.inventserialid and sp.dataareaid = 'тк'
|left join VendElectronicInvoice vei on vei.num = b.INVOICEID and vei.inn_ru = h.inn_ru and vei.deliverydate = b.documentdate  and vei.dataareaid = 'тк'
|left join custtable ct on ((vei.deliveryname != '' and vei.deliveryname = ct.accountnum) or (b.deliveryname != '' and b.deliveryname = ct.accountnum))  and ct.additioncompany in ('FMS','CTR','YUG') and ct.dataareaid = 'zgc'
|  left join rcontracttableadd rcta on ((vei.orderaccount != '' and rcta.vendaccount = vei.orderaccount and rcta.custaccount = vei.deliveryname) or (h.accountnum != '' and rcta.vendaccount = h.accountnum and rcta.custaccount = b.deliveryname)) and rcta.dataareaid = 'тк'
|where b.dataareaid IN ('тк')
|and (t.itemtype = 0 or t.itemtype = 1) and b.documentdate = '2016-06-21' and b.dimension4_ = '1' and exists (select 'x' from returnactiondefaults m where m.returnactionid = g.returnactionid and m.module = 1 and m.dataareaid = b.dataareaid and m.export1c = 1)
|and (i.export1ctrade = 1)
|order by 4";
    
    command = ъ(Врап.Новый(SqlCommand.ПолучитьСсылку(),ТекстЗапроса,connection.ПолучитьСсылку()));
    
    //Parameters=ъ(command.Parameters);
    //Parameters.AddWithValue("@Строка", "ДСП");
    dr = ъ(command.ExecuteReader());
    
    Пока dr.Read() Цикл
        Сообщить(dr.get_Item("Наименование"));
    КонецЦикла;
КонецПроцедуры

&НаКлиенте
Процедура прочитатьSQL(Команда)
    прочитатьSQLНаСервере();
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ПриОткрытииНаСервере();
КонецПроцедуры

&НаСервере
Процедура ПриОткрытииНаСервере()
    // Вставить содержимое обработчика.    
    ИмяФайла="D:TestVK\AddInNetObjectToNative.dll";
    
    ПодключитьВнешнююКомпоненту(ИмяФайла, "NetObjectToNative",ТипВнешнейКомпоненты.Native);
    Врап = Новый("AddIn.NetObjectToNative.LoaderCLR");
    CoreClrDir="D:TestVK\bin\";
    ДиректорияNetObjectToNative="D:TestVK";
    
    
    ДиректорияNetObjectToNative="D:TestVK\NetObjectToNative\src\NetObjectToNative\bin\Debug\netstandard1.6\";
    
    СсылкаНаДомен=Врап.СоздатьОбертку(CoreClrDir,ДиректорияNetObjectToNative,"");
    Врап.ЗагрузитьDLL(ИмяФайла);
    
    String=ъТип("System.String");
    ExpandoObject=ъТип("System.Dynamic.ExpandoObject, System.Dynamic.Runtime, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a");
    Environment=ъТип("System.Environment");
    NewLine=Environment.NewLine;
    Таб=Символы.Таб;
КонецПроцедуры

&НаСервере
Функция Ъ(знач Ссылка)
    
    Если не ЗначениеЗаполнено(Ссылка) Тогда
        Сообщить("Пустое значение")
        
        
    КонецЕсли;
    рез = Новый("AddIn.NetObjectToNative.NetObjectToNative");
    рез.УстановитьСсылку(Ссылка);    
    возврат  рез
КонецФункции // СоздатьОбъектПоСсылке()

&НаСервере
Функция ъНовый(знач стр)
    возврат ъ(Врап.Новый(стр));
КонецФункции

&НаСервере
Функция ъТип(знач стр,ИмяФайла="",ГлобальнаяСборка=ложь)
    //возврат ъ(Врап.ПолучитьТип(стр));
    возврат ъ(Врап.Тип(стр,ИмяФайла,ГлобальнаяСборка));
КонецФункции

&НаСервере
Функция ОписаниеСтроки()
    КвалификаторыСтроки = Новый КвалификаторыСтроки(0, ДопустимаяДлина.Переменная);
    возврат Новый ОписаниеТипов("Строка",,КвалификаторыСтроки);
КонецФункции

Компонента подключается, код отрабатывает, но на строке

СсылкаНаДомен=Врап.СоздатьОбертку(CoreClrDir,ДиректорияNetObjectToNative,"")

Получаею ошибку "Прекращена работа программы 1cv8c.exe", и, соответственно, програмуля закрывается.

Как бороться?

Для начала
1. Разархивируй каталог
2. Из этой директории запусти отчет. Там в отчете уже пути настроены.

3. Для запуска System.Data.SqlClient.dll нужны еще
3 библиотеки.

Разбирись с пунктами 1,2. Если все выйдет выложу библиотеки для работы с System.Data.SqlClient

На сервере данная сборка работать не будет. Она скомпилирована под 32 разрядную. Нужно давать ссылку на 64 разрядную CoreClr.

(154)
1. Было сделано;
2. Было сделано.

При запуске отчета TestVK на Win7 x64 так же валится на том же месте. Пути я сделал свои сам по аналогии, дабы адаптировать под УФ. Попробую в обед на win7 x32 ещё днём.

3. Для запуска System.Data.SqlClient.dll нужны еще 3 библиотеки. Можете выложить их вместе с x64 CoreCLR?

Пока тестим на винде, если всё получится - вечером даю команду админам предоставить мне комп с линухом, и будем тестить уже в полном объеме на кроссплатформенность.

(155) Скажите, а просто прийти и взять вам не дают? Надо подчеркивать тонкость отдачи вами команды предоставить?

(156) Админы злые. К ним только по заявкам, подписанным и утвержденным руководителем IT-службы.

"Надо подчеркивать тонкость отдачи вами команды предоставить?"
Вы это к чему?

(155) Я то скомпилировать могу. А вот проверить то нет. У меня только локальные 8 ки.

Просто там смещения в структуре _tVariant могут быть другие. Нужно тестировать, а у меня не на чем.

Сделай пустую базу на простых формах и посмотри пойдет или нет. Я проверял у себя на 10 и 7 ке вроде шло. Но у меня и VS стоит или 10 ка

Я скомпилирую сначала exe шник посмотрю. И сообщу когда сделаю

Если установить 64 разрядную .Net Core то она лежит здесь
c:\Program Files\dotnet\shared\Microsoft.NETCore.App\1.0.0\

Скачать дистрибутивы можно здесь
https://www.microsoft.com/net/core#windows
или здесь
https://github.com/dotnet/cli

(159) окай. Спасибо вам большое ещё раз.
Если всё у нас получится с Линухом - готов сделать пожертвование в фонд развития проекта

(161) Большое спасибо за поддержку. Сейчас 64 разрядном exe шнике попробовал. Все работает.

Чуть позже скомпилирую ВК под 64 разрядную.

Кстати
long GetClassObject(const wchar_t* wsName, IComponentBase** pInterface)

long to 32 разрядный. При компиляции дает предупреждение.

Хотя для этого существует INT_PTR

(164)
Для чего тут INT_PTR?

(165) Спасибо. Просто

long GetClassObject(const WCHAR_T * clsName, IComponentBase** pIntf)

Параметры:
•<clsName> Тип: const WCHAR_T *. Имя создаваемого объекта.
•< pIntf > Тип: IComponentBase**. Указатель на переменную, в которую нужно записать адрес вновь созданного объекта.

Возвращаемое значение:

•long – не нулевое значение сигнализирует о успешном создании объекта

Просто в шаблонах пишут

return (long)*pInterface;

Сделали бы просто bool

Сейчас у себя подправлю

Попробую на 8.3.9 64 разрядном клиенте

Так и не смог запустить на Win7 Professional x64 демо-пример из вашего архива. Как доходит до "СоздатьОбертку" - сразу валится. Visual Studio установлен, все фреймворки дотнет имеются. Винда с последними обновлениями. Что ей ещё нужно...

Добрый день.

Подскажите, правильно ли я понимаю что если я внимательно прочитаю Ваши статьи то смогу связав 1С 7.7/8.3 и http://www.fluorinefx.com/ подключаться к web-сервисам по протоколу amf3 ?

Натолкните на кратчайший путь. Заранее благодарен.

И меня. Не хочет запускаться демо-пример ни на одной винде. Какие компоненты должны быть обазательно установлены?

(169) Да раз .Net есть
(168) Сейчас проверю на других компах.
Скачай отсюда https://yadi.sk/d/FBHUVl22suNwH
С++ приложение. Оно делает тоже самое только напрямую

Скомпилировал под 64 разрядное. Если запускать из экзешника
То все нормально. Но если из 64 разрядной 1С 8.3.9


Выдает ошибку
Необработанное исключение по адресу 0x00007FFD76FB8528 (ucrtbase.dll) в 1cv8.exe: Недопустимый параметр был передан функции, для которой недопустимые параметры вызывают неустранимую ошибку.

Вот экспортируемуе методы

typedef bool(STDMETHODCALLTYPE *ManagedCallAsFunc)(const __int32, const wchar_t*, tVariant* pvarRetValue, tVariant* paParams, const __int32  lSizeArray);
    typedef int(STDMETHODCALLTYPE *ManagedGetNParams)(const __int32, const wchar_t*);
    typedef bool(STDMETHODCALLTYPE *ManagedGetPropVal)(const __int32, const wchar_t*, tVariant*);
    typedef bool(STDMETHODCALLTYPE *ManagedSetPropVal)(const __int32, const wchar_t*, tVariant*);
    typedef void(STDMETHODCALLTYPE *ManagedSetDelegate)(void*(*) (long), void(*) (const wchar_t*), void(*) (wchar_t*, wchar_t*,wchar_t*));
    typedef void(STDMETHODCALLTYPE *ManagedDeleteObject)(const __int32);
    typedef void(STDMETHODCALLTYPE *ManagedSetPath)(const wchar_t*);
    typedef int(STDMETHODCALLTYPE *Managedtest)();

(172) Да мне бы хоть под 32-х разрядным клиентом заработало(((
И прямой запрос выполнился(((

Serginio1, а откуда еще можно скачать NetObjectToIDispatch.zip кроме инфостарта ?

(174) http://files.rsdn.org/19608/%d0%a4%d0%b0%d0%b9%d0%bb%d1%8bNetObjectToIDispatch.zip

Спасибо

(173) Можешь скинуть свою обработку?
Сейчас посмотрю, что с УФ на клиенте.

(176) Подправил ссылочки. Здесь еще ссылки
http://ru.stackoverflow.com/questions/527763/%d0%9a%d0%b0%d0%ba-%d0%b2%d1%8b%d0%b7%d0%b2%d0%b0%d1%82%d1%8c-%d0%bc%d0%b5%d1%82%d0%be%d0%b4-%d0%b8%d0%b7-c-%d0%b2-1%d0%a1/527802#527802

(177) Скиньте, если Вас не затруднит.

(179) После обеда.

По поводу ucrtbase.dll то MS провела рефакторинг в VC++ 2015

https://msdn.microsoft.com/ru-ru/library/bb531344.aspx

Кстати, google mail Очень не понравился файл из (171). Упорно не давал его отправить по почте.

Да это проблема Гугла. Там Exe шник

Выложил https://yadi.sk/d/jRSHEA19svgrn
Там внутри TestVKУФ.epf тест подключения к БД.
Подправь строку подключения и запрос. У меня работает.
Добавил обработку исключений и вывод ошибки при подключении.

Указать путь к DLL