Из обычного приложения сделать ActiveEXE сервер

[jangle]

Не очень сведущ в этом тонком вопросе. Есть довольно сложное приложение управляемое через GUI интерфейс.
Нужно прикрутить возможность его автоматизации, чтобы из скриптов или например VBA юзать его функции, без отображения интерфейса на экране.
Можно ли реализовать это через ActiveX EXE ?

[Хакер]

Можно ли реализовать это через ActiveX EXE ?

Можно и через ActiveX EXE и через ActiveX DLL.

Давай-ка задавай более конкретные вопросы.

[Хакер]

Хотя вообще самый чистый путь: это вообще ничего не преобразовывая.

Пусть приложение остаётся Standard EXE. Оно должен запихать свой моникер в ROT.

А потом любой скрипт сможет GetObject-ом получить ссылку на любой объект из объектной модели внутри Standard EXE.

[jangle]

Пусть приложение остаётся Standard EXE. Оно должен запихать свой моникер в ROT.

А потом любой скрипт сможет GetObject-ом получить ссылку на любой объект из объектной модели внутри Standard EXE.

Что-то сложно для меня. Задача в общих чертах такая. Есть приложение которое собирает различные данные с устройств подключенных к компу и отображает их в своем GUI интерфейсе. Заказчик теперь хочет, чтобы эти данные попадали в его базу данных, 1С, или любые другие ERP приложения если ему это понадобится. Переносить весь проект в ActiveX DLL нет резона, потому как заказчик может ее потом юзать бесконтрольно там где пожелает.
Поэтому мне кажется, лучше чтобы проект был в виде EXE файла, тем более что к нему уже прикручена защита на USB-ключе.
При этом, пользователь должен видеть в своей среде разработки, например VBA, нормальную объектную модель программы.

[Хакер]

Что-то сложно для меня.

Издеваешься?

В простейшем случае даже не надо возиться с ROT.

Пусть refAppObject — переменная-ссыка на корневой объект объектной модели приложения.

Делаешь:

Код: Выделить всё

strMonikerName = GetObjRefMoniker(refAppObject).GetDisplayName()
строку пишешь в файл

Управляющая программа:

Код: Выделить всё

strMonikerName = ПрочитатьСтрокуИзФайла()
refRootObject = GetObject(strMonikerName)

refObject.DoSomeCoolWork()  ' При условии что такой метод есть

[ger_kar]

А что есть ROT? Я вообще нифига не понял, что это такое. Гугл по строке поиска ROT выдал кучу инфы совсем не в тему. Хотелось бы знать что это такое, хотя бы вкратце, или узнать как это называется без аббревиатуры, что-бы нормально отыскать искомое.

[Хакер]

А что есть ROT?

1. Читаем:
   http://www.google.kz/search?ie=UTF-8&hl ... ct%20table
2. Щупаем:
   

   

   rot_viewer.png (17.94 Кб) Просмотров: 2976

[Хакер]

Собственно, о трюке у доступом к внутренним объектам любого стороннего VB-процесса я писал ещё три года назад:
viewtopic.php?f=54&t=42646

[Qwertiy]

Собственно, о трюке у доступом к внутренним объектам любого стороннего VB-процесса я писал ещё три года назад:
viewtopic.php?f=54&t=42646

Как всегда, немного пообсуждали и тишина c тех пор
А как насчёт сделать?

[Хакер]

А как насчёт сделать?

Сделать нет вообще никакой проблемы. Более того, несколько тысяч строк кода написано в рамках работы над той задумкой.
Проблема в том, что я вынужден заниматься не тем, чем хочу (и чем другие от меня хотят), а тем, за что кто-то готов платить хорошие деньги.

Так что я занят заказами и свободного времени вообще нет.

Если бы донейт приносил хорошие деньги, то бы давно были готовы и эта утилита, и FNDLL (AMC-Tools) и кирпич, обеспечивающий многопоточность в VB. Но донейтов нет вообще. Поэтому когда ко мне приходит заказчик и предлагает хорошие деньги за написание экзотической штуки, я не могу сказать ему: «нет, знаешь, я пойду писать другие экзотические штуки, бесплатные и оупенспорсные».

[ger_kar]

Я кстати этот ROT Viewer раньше запускал в рамках знакомства со студией. Запустил, посмотрел... Подумалось - какая то фигня мутная мутная. Закрыл и до сего момента более эту фичу не запускал

[Kumpel]

...Можно ли реализовать это через ActiveX EXE ?

Делал я такое (любопытства ради) на РВ9. Могу поделиться.

[jangle]

Делал я такое (любопытства ради) на РВ9. Могу поделиться.

Ну если не жалко, поделись)

[Kumpel]

Ну если не жалко, поделись)

Поделяюсь:
Запускаем PbDispCalc.exe для саморегистрации в реестре, тушим его, потом открывает проект в папке "VB Test" и создаем, управляем и т. д.
Исходники прокомментировал, хотя там все и простенько.

[jangle]

Не компилируется, у меня PB10.03

[Kumpel]

Не компилируется, у меня PB10.03

Ну, это проблемы совместимости хидеров для разных версий, обработки строк и т. д.
Главное - принцип самого превращения, а код под PB10 можна подогнать...
Экзэшник у тебя есть и он работает, а пересобирал я его буквально минут 20 тому.
P.S.
Десятку купил недельки две назад, но пока не вникал.

[Kumpel]

Не компилируется, у меня PB10.03

А если повнимательней ?

Убери это:
#Compiler PBWin 9

[Kumpel]

Не компилируется, у меня PB10.03

Для десятки:

[Хакер]

jangle, тебя что, не удовлетворяет решение с вызовом одной функции? Зачем тебе PB?