Как программно "нажать" кнопку

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Ильдус
Сообщения: 2
Зарегистрирован: 16 апр 2008, 10:31
Откуда: Набережные Челны
Контактная информация:

Как программно "нажать" кнопку

Сообщение Ильдус »

Добрый день.
Вопрос вот в чем: В модуле Обмен бизнес-документами в меню XML/ Экспорт данных в XML-файл открывается интерфейс настройки, где есть кнопка "Экспорт". Как вызвать нажатие этой кнопки из внешнего преложения?! (Версия Галактики 8.10, СУБД может быть разной)
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

1. Есть AqA скрипт, который можно стартануть при запуске галки.
2. есть клавиатурные повторители
3. можно послать событие приложению. Что-то баловалься я с этим - хотел програмно галку закрыть.
4. Можно в конце концов через апи попробовать вызвать фейс галки и выполнять в нем событие для этой кнопки - вроде тоже было такое возможно.
Ильдус
Сообщения: 2
Зарегистрирован: 16 апр 2008, 10:31
Откуда: Набережные Челны
Контактная информация:

Сообщение Ильдус »

а где можно по подробнее узнать про пункты 3 и 4 ?!
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Сообщение edward_K »

по 4 нашел вот такой пример
(VBA)

Dim GalApp As Variant, Iface As Variant
Set GalApp = CreateObject("GalNet.App")
IFace = GalApp.LoadVip("API_Functions", "Prepare", "export", "export.dbf")
if (IFace Is Nothing) then
MsgBox "Функции API не реализованы"
Exit Sub
end if
//вызов функций
IFace.Prepare
IFace.OpenFile "export.dbf", 1000
Set IFace = Nothing

наскока помню galnet.cfg должен лежать в exe в этом случае.
а 3 сложно :).
!Igor
Сообщения: 2
Зарегистрирован: 15 июл 2008, 12:49

Сообщение !Igor »

Пробывал выполнить скрипт, но выдается ошибка:невозможно создание компонента или контейнера ActiveX.Каким образом устанавливается GalNet.App?
Ответить