Что возвращает ObjPtr, (VarPtr, и т.д.) ?

Добрый день.
Не подскажет ли кто-нибудь:
Как получить то, что возвращает нам наша дорогая и недокументированная :

ObjPtr

Но только из WinAPI ???
(или ещё откуда) ?

0

Сообщение от Gazzi Вот "Ответ ф точку"

Тебе дали уже. Или тебе нужен не аналог?

Сообщение от Gazzi Я "с обратной стороны" (из своей DLL-ки) не могу вызвать какую-либо Мою_Фуню, накатанную в тексте "1С". Неужель не понятно.

Нет, не понятно. Представь себе, я только сейчас узнал что нужно из DLL вызывать. В грамотно заданном вопросе - половина решения проблемы. Резонный вопрос - при чем тут вообще ObjPtr?
Если хочешь вызывать из DLL функции хоста то тут нужен любой колбек механизм (события, реализация колбек интерфейса, вызов по указателю).

Сообщение от Gazzi CreateObject("Что_то.Что_то") По другому и низзя (чёртова эска). Позднее связывание.

При чем тут позднее связывание? CreateObject не имеет отношение к связыванию, эта функция просто создает объект, а какое связывание будет использовано определяется типом переменной.

Сообщение от Gazzi Ну пусть будет ActiveX (например). Хотя разницы - ну никаковеньнейшей !

Есть разница. С одной стороны ты вызываешь свои собственные экспортируемые функции (разрабатываешь интерфейс связи и т.п.), с другой ты создаешь объекты исключительно через механизмы COM с уже реализованным интерфейсом связи. Чуешь разницу?

Сообщение от Gazzi Вот это "Что-то" нам где взять в "отдельно взятой ситуации", а завтра мы может её в 2С-ку подгрузим, и она там должна будет наити себе "ЭТО" (те 4-ре байта волшебной информации) ???

"Что-то" в данном случае ссылка на объект. Как создать объект я скинул выше пример; также можно через CreateObject создать - разницы никакой.

0

Тебе дали уже. Или тебе нужен не аналог?

Что мне дали-то ?

Нет, не понятно.

Согласен с тобой, недообяснил (приносю извинения).

Резонный вопрос - при чем тут вообще ObjPtr?

При том, что "хочу" это число получить НЕ средствами VB, потому как нету в 1С такого оператора (или его тщательно
скрывают).

любой колбек механизм

А где этот любой колбек механизм "возьмёт" адресочек, по которому ему отдать управление в случае какого-либо
события ???

вызов по указателю

А я про что толкую ? Где нам взять этот чёртов указатель ?

Есть разница

Ну пусть будет "Есть разница", тогда из процедурной DLL-ки найди этот указатель.

"Что-то" в данном случае ссылка на объект.

Вот и где-же нам ёё взять-то ?

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

А теперь в этом примере создай в форме например:
Public Sub Moj_Funj ( )
И вызови её из DLL-ки, НЕ ПРИБЕГАЯ к "волшебным словам" ObjPtr, Form1 и иже с ними...

0

Сообщение от Gazzi Что мне дали-то ?

Аналог.

Сообщение от Gazzi При том, что "хочу" это число получить НЕ средствами VB, потому как нету в 1С такого оператора (или его тщательно скрывают).

Переформулирую: для чего тебе это число?

Сообщение от Gazzi А где этот любой колбек механизм "возьмёт" адресочек, по которому ему отдать управление в случае какого-либо события ???

Зависит от инструментария. На самом низком уровне ты его сам предоставляешь, на высоком инструмент.

Сообщение от Gazzi А я про что толкую ? Где нам взять этот чёртов указатель ?

Указатель на функцию в 1С? Спроси в 1С ветке.

Сообщение от Gazzi А я про что толкую ?

Ты толкуешь про указатель на объект (ObjPtr), при чем тут указатель на функцию?

Сообщение от Gazzi Ну пусть будет "Есть разница", тогда из процедурной DLL-ки найди этот указатель.

LoadLibrary/GetModuleHandle, GetProceAddress вернут адрес экспортируемой функции по имени.

Сообщение от Gazzi Вот и где-же нам ёё взять-то ?

Сообщение от The trick Как создать объект я скинул выше пример; также можно через CreateObject создать - разницы никакой.

Сообщение от Gazzi А теперь в этом примере создай в форме например: Public Sub Moj_Funj ( ) И вызови её из DLL-ки, НЕ ПРИБЕГАЯ к "волшебным словам" ObjPtr, Form1 и иже с ними...

Создал, вызвал.

0

Што за аналог такой ?

для чего тебе это число?

Что бы вызвать Moj_Funj из DLL-ки.

Зависит от инструментария.

Вот такой "Больной" инструментарий.

LoadLibrary/GetModuleHandle, GetProceAddress

Они нам покажут, где в ехе-файле Moj_Funj находится? Тогда примерчик можно ?

Создал, вызвал.

А теперь закомпиляч это:

'Класс
Option Explicit
Public Sub Msg()
Form1.Moj_Funj
End Sub

Что получили ???

0

Сообщение от Gazzi Што за аналог такой ?

Полнофункциональный, т.е. делающий тоже самое что ObjPtr только на WinAPI.

Сообщение от Gazzi Что бы вызвать Moj_Funj из DLL-ки.

Интересно каким образом это число поможет вызвать функцию?

Сообщение от Gazzi Вот такой "Больной" инструментарий.

Не думаю, не знаю конечно как в 1С, но с большой вероятностью там можно обрабатывать события.

Сообщение от Gazzi Они нам покажут, где в ехе-файле Moj_Funj находится? Тогда примерчик можно ?

Если ты ее экспортируешь то да. Но в твоем случае даже не стоит туда суваться, т.к. у тебя даже элементарных знаний по работе с ActiveX нет, не говоря уже о тех подводных камнях которые возникнут при работе с Native Dll.

Сообщение от Gazzi А теперь закомпиляч это: 'Класс Option Explicit Public Sub Msg() Form1.Moj_Funj End Sub Что получили ???

Не понимаю тебя. Скомпилировать без формы?
В общем ты нормально вопрос задать не можешь, поэтому я не могу тебе помочь. Играть в экстрасенса - не имею желания. Как будет нормально сформулированный вопрос, тогда будет (возможно) нормальный ответ. В общем случае ответ на вопрос в заголовке топика был дан в 10 посте.

1

Полнофункциональный, т.е. делающий тоже самое что ObjPtr только на WinAPI.

Хде он "ДАЁТ" то что нам возвращает ObjPtr, только на АПИ, тыж сам вызываешь в 11-ой строчке:
Debug.Print ObjPtr(z)
Где нам получить это значение БЕЗ ObjPtr (ну нету в 1С такого понятия - ObjPtr)

Интересно каким образом это число поможет вызвать функцию?

По указателю, по указателю, какж ещё-то...

не знаю конечно как в 1С

Глупо там всё, глупо...

Если ты ее экспортируешь то да

Можно примерчик ???

Но в твоем случае даже не стоит туда суваться, т.к. у тебя даже элементарных знаний по работе с ActiveX нет

Ну если их у тебя в избытке, поделись...

Скомпилировать без формы?

Ясен пыс, форма у нас появиться потом, когда когда мы в Эске сделаем:
СоздатьОбъект("Что_то.Что_то");
из нашей DLL-ки.
И обзываться она будет далеко не "Form1" (хз как она там обзывается)...

Добавлено через 17 секунд

Полнофункциональный, т.е. делающий тоже самое что ObjPtr только на WinAPI.

Хде он "ДАЁТ" то что нам возвращает ObjPtr, только на АПИ, тыж сам вызываешь в 11-ой строчке:
Debug.Print ObjPtr(z)
Где нам получить это значение БЕЗ ObjPtr (ну нету в 1С такого понятия - ObjPtr)

Интересно каким образом это число поможет вызвать функцию?

По указателю, по указателю, какж ещё-то...

не знаю конечно как в 1С

Глупо там всё, глупо...

Если ты ее экспортируешь то да

Можно примерчик ???

Но в твоем случае даже не стоит туда суваться, т.к. у тебя даже элементарных знаний по работе с ActiveX нет

Ну если их у тебя в избытке, поделись...

Скомпилировать без формы?

Ясен пыс, форма у нас появиться потом, когда когда мы в Эске сделаем:
СоздатьОбъект("Что_то.Что_то");
из нашей DLL-ки.
И обзываться она будет далеко не "Form1" (хз как она там обзывается)...

0

Сообщение от Gazzi Хде он "ДАЁТ" то что нам возвращает ObjPtr, только на АПИ, тыж сам вызываешь в 11-ой строчке: Debug.Print ObjPtr(z) Где нам получить это значение БЕЗ ObjPtr (ну нету в 1С такого понятия - ObjPtr)

Ты код запускал? Вот запусти и посмотри что там.

Сообщение от Gazzi По указателю, по указателю, какж ещё-то...

Ок, но мы возвращаемся опять тогда в начало бесконечного цикла:

Сообщение от The trick Резонный вопрос - при чем тут вообще ObjPtr?

Чтобы сделать break в этом бесконечном цикле твоей логики уточню: как указатель на объект поможет тебе вызвать функцию по указателю?

Сообщение от Gazzi Глупо там всё, глупо...

А ты точно уверен что там все глупо, потому что пока глупой выглядит только твоя попытка изъяснить свои мысли при формулировке вопроса.

Сообщение от Gazzi Можно примерчик ???

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

Сообщение от Gazzi Ну если их у тебя в избытке, поделись...

Ну так задай вопрос. С удовольствием поделюсь. Ответ на вопрос в шапке же дал.

Сообщение от Gazzi Ясен пыс, форма у нас появиться потом, когда когда мы в Эске сделаем: СоздатьОбъект("Что_то.Что_то"); из нашей DLL-ки. И обзываться она будет далеко не "Form1" (хз как она там обзывается)...

Блин, так ты мне сначала сказал:

А теперь в этом примере создай в форме например: Public Sub Moj_Funj ( ) И вызови её из DLL-ки, НЕ ПРИБЕГАЯ к "волшебным словам" ObjPtr, Form1 и иже с ними...

Я в своем примере создал форму и вызвал ее не по имени из DLL. Где не состыковка? Или тебе нужно событие? Или что? Если событие то также элементарно делается:

0

Ты код запускал?

И что дальше ?
Засунь этот код в эску - и он нифига там не сработает !!!

мы возвращаемся на круги своя

Ну так покажи мне тупому, как нам получить то, что возвращает ObjPtr.
Но не вызывая этот оператор (ObjPtr), забудь про него, пусть он у нас сегодня будет "запрещён к применению".
Выкинь его с головы, не существует его для нас (потому как нет его в "умной" 1С).

как указатель на объект поможет тебе вызвать функцию по указателю?

А как он нам помогает в нашем "любимом и неповторимом", наверное как-то так:
CallByName(Ёперная_Форма, "Moj_Funj", 1)

А ты точно уверен что там все глупо

Ну покажи мне "умно".

Тебе его уже дали

Что мне дали ???
Что примерчик сработает "в обратную сторону", он вызовет Мою_Фуню в Эске?

Я в своем примере создал форму и вызвал ее не по имени из DLL

'Класс
Option Explicit
Public Sub Msg()
Form1.Moj_Funj
End Sub
А по чём же ты её вызывал, по "кличке" штоль ?

Если событие то также элементарно делается:

Вот и покажи мне "элементарное" на позднем связывании...
(Нету в Умной Эске ранней связи,
Только через CreateObject).

0

Сообщение от Gazzi И что дальше ?

То что результат ObjPtr и CopyMemory один и тот же.

Сообщение от Gazzi Засунь этот код в эску - и он нифига там не сработает !!!

Причем тут эска? Ты разделом не ошибся? Тут вообще-то VB обсуждают, и код я тебе дал для VB.

Сообщение от Gazzi Ну так покажи мне тупому, как нам получить то, что возвращает ObjPtr. Но не вызывая этот оператор (ObjPtr), забудь про него, пусть он у нас сегодня будет "запрещён к применению". Выкинь его с головы, не существует его для нас (потому как нет его в "умной" 1С).

Показал уже.

Сообщение от Gazzi А как он нам помогает в нашем "любимом и неповторимом", наверное как-то так: CallByName(Ёперная_Форма, "Moj_Funj", 1)

Где здесь передается число? Покажи мне пример CallByName(...ObjPtr(obj)....).

Сообщение от Gazzi Ну покажи мне "умно".

Что умно? Умно обрабатывать события в 1С? Ну так возьми любой мануал по 1С и посмотри, или задай на соответствующем форуме вопрос про обработку событий в ActiveX DLL в 1С. При чем тут VB?

Сообщение от Gazzi Что мне дали ??? Что примерчик сработает "в обратную сторону", он вызовет Мою_Фуню в Эске?

Что ты и просил:

Сообщение от Gazzi Можно примерчик ???

Сообщение от Gazzi 'Класс Option Explicit Public Sub Msg() Form1.Moj_Funj End Sub А по чём же ты её вызывал, по "кличке" штоль ?

Так я ее вызвал внутри DLL, снаружи DLL (из exe) этот метод вызвался без Form1. Не доходит?

Сообщение от Gazzi Вот и покажи мне "элементарное" на позднем связывании...

28 пост, Карл! Так тебе нужно события при позднем связывании обработать? Где хотя бы намек на это в теме? Тебе не кажется странным что в теме про аналог ObjPtr мы пришли к обработке событий на позднем связывании?

Сообщение от Gazzi (Нету в Умной Эске ранней связи, Только через CreateObject).

Повторю:

Сообщение от The trick При чем тут позднее связывание? CreateObject не имеет отношение к связыванию, эта функция просто создает объект, а какое связывание будет использовано определяется типом переменной.

Также повторю какое отношение обработка событий в 1С имеет к разделу по VB?
Обработка событий от COM объекта основывается на интерфейсах IConnectionPointContainer и IConnectionPoint (точка соединения). Если интерфейс событий известен, то просто вызывается IConnectionPointContainer::FindConnectio nPoint с нужным IID, у полученного IConnectionPoint вызывается метод Advise в который передается ссылка не реализованный интерфейс событий.
Если интерфейс заранее неизвестен то перечисляется список всех точек соединения через IEnumConnectionPoints и через IConnectionPoint::GetConnectionInterface каждой точки определяется IID интерфейса. Далее динамически имплементируется интерфейс который передается в Advise.

0

То что результат ObjPtr и CopyMemory один и тот же.

А то что мы засунули в CopyMemory, мы где это взяли ???

CopyMemory(Куда_Пихать, Откуда_Пихать, 4)

Откуда_Пихать, нам где это число взять (низзя Ptr-ом, и Form1 пользоваться сегодня).

Причем тут эска? Ты разделом не ошибся?

Ну так вызови на своём VB из ActiveX-DLL-ки Мою_Фуню в ехе-файле, да ещё в форме, которая "хз как обзывается".

Где здесь передается число?

CallByName(Form1, "Moj_Funj", 1)
Form1 - Это что такое ?
Теперь откомпилируй, видишь - шиш на рыло, а когда ты эту ДЛЛ-ку подпихнёшь другой проге (не на 1С, а на твоём
любимом VB), то там форма может обзываться Form2, а может и "хз как обзываться".

Вот сделай такую ДЛЛ-ку, чтоб она к любому ехе прилипала (с помощью CreateObject), и могла вызвать Moj_Funj на
форме, которая "хз как обзывается", конечно предварительно сообщи этой ДЛЛ-ке, как будет называться форма,
на которой будет сидеть Moj_Funj.

Или создай событие, которе будет вызываться в этой форме (можно и через всякие IConnectionPoint::GetConnectionInterface ), и покажи мне такой приёмчик.

Не забывай, ТОЛЬКО CreateObject, и никак более.

Плиз ...

Добавлено через 10 минут
Да можешь ещё проще поступить:
Сделай просто DLL-ку, которая вызовет "Moj_Funj" на форме под именем (пущай пока Form1 обзывается).

0

Сообщение от Gazzi А то что мы засунули в CopyMemory, мы где это взяли ???

Ну посмотри код, ты не видишь?

Сообщение от Gazzi Откуда_Пихать, нам где это число взять

Где там число?

Сообщение от Gazzi Ну так вызови на своём VB из ActiveX-DLL-ки Мою_Фуню в ехе-файле, да ещё в форме, которая "хз как обзывается".

Вызвал, только не функцию, а MsgBox. Выше пример с событием.

Сообщение от Gazzi Form1 - Это что такое ?

Это число?

Сообщение от Gazzi Теперь откомпилируй, видишь - шиш на рыло

Может быть ты и видишь что-то подобное, я нет.

Сообщение от Gazzi , а когда ты эту ДЛЛ-ку подпихнёшь другой проге (не на 1С, а на твоём любимом VB), то там форма может обзываться Form2, а может и "хз как обзываться".

При чем dll? Ты делаешь dll с CallByName? В моем примере вообще не было CallByName.

Сообщение от Gazzi Вот сделай такую ДЛЛ-ку, чтоб она к любому ехе прилипала (с помощью CreateObject), и могла вызвать Moj_Funj на форме, которая "хз как обзывается", конечно предварительно сообщи этой ДЛЛ-ке, как будет называться форма, на которой будет сидеть Moj_Funj.

Читаем дальше:

Сообщение от Gazzi Или создай событие, которе будет вызываться в этой форме (можно и через всякие IConnectionPoint::GetConnectionInterface ), и покажи мне такой приёмчик.

Так сделал же выше.

Сообщение от Gazzi Не забывай, ТОЛЬКО CreateObject, и никак более

Какая разница?

0

Сообщение от Gazzi Form1 - Это что такое ?

CallByName обращение к объекту, это может быть не только форма, но и класс, контрол и тп

0

The trick.
Сделай пожалуйста так:
Есть форма, она обзывается Form1.
На ней сидит фуня:

Public Sub Moj_Funj ( )
MsgBox("Ку-Ку")
End Sub

Сделай пожалуйста DLL-ку (и обязятельно её откомпилируй - отдельно):

Private Sub Class_Initialize ( )
???.Moj_Funj 'Не знаю что ты сюда впишешь
End Sub

И выложи её, а я посмотрю

Добавлено через 10 минут
fever brain
А как бы нам из АПИ получить бы это значение ?

0

Сообщение от Gazzi The trick. Сделай пожалуйста так: Есть форма, она обзывается Form1. На ней сидит фуня: Public Sub Moj_Funj ( ) MsgBox("Ку-Ку") End Sub Сделай пожалуйста DLL-ку (и обязятельно её откомпилируй): Private Sub Class_Initialize ( ) ???.Moj_Funj 'Не знаю что ты чюда впишешь End Sub И выложи её, а я посмотрю

Обязательно должна вызываться именно Moj_Funj? Или можно вызвать произвольную в той же форме? А из нее ты можешь вызвать Moj_Funj. Второй момент допускается ли использование подготовки для вызова? Т.е. могу ли я сначала после CreateObject инициализировать какие-либо данные класса? Типа Class.Prop = 123?

0

Да можешь как хочешь поступить (не критично).
Можно и "подготовку" сделать.

0

Gazzi, если я все же правильно наконец то понял, то тебе надо из твоей самописной DLL, которая подключена к 1C, вызвать некую процедуру, которая написана на встроенном бейсике 1С ?
Т.е. если перевести в плоскость нашего форума VBA, это если бы я подключил к Excel по средством VBA некую DLL, и из этой DLL пытался бы вызвать функцию, написанную в этом же скрипте VBA? Т.е попытаться из скомпилированной библиотеки вызвать интерпритируемую функцию. Так или нет?

0

3 разных метода.

Вложения

callback.zip (39.1 Кб, 7 просмотров)

0

тебе надо из твоей самописной DLL, которая подключена к 1C, вызвать некую процедуру, которая написана на встроенном бейсике 1С ?

Именно так.

Excel по средством VBA

Вот тут я немножко "притормаживаю", потому как не очень пользовал эксель с ВБА.

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

Что понимать под интерпретируемой функцией ? К моменту подключения моей ДЛЛ прога уже будет в ехе-формате.
В том числе и 1С-ка.

Добавлено через 8 минут
Не могу открыть callback.rar.
Это я торможу или как ...
Первое ваше послание открылось на ура (vbdll которая называлась).

0

перезалил

0

Тогда идите в 1C раздел форума и узнавайте как получить указатель на 1C функцию.

0