Activex Form Lotesnotes7.0

Тема в разделе "Lotus - Программирование", создана пользователем cinet, 19 июн 2009.

  1. cinet

    cinet Гость

    Есть ActiveX библиотека, которую необходимо использовать в Лотус, есть работающий пример на Delphi, которым cтроятся набор панелей и элементов.

    Пример кода на Object Pascal

    [codebox]//создаем активную форму InfinityCCCoreObj
    Core:= TInfinityCCCoreObj.Create(Self);
    //вызывем метод авторизации
    Core.Logon;
    //создаем панель управления звонками с помощью метода Init,
    //передавая в качестве единственного аргумента ссылку на интерфейс InfinityCCCoreObj
    CallManagement:= TInfinityCCCallManagementObj.Create(Self);
    CallManagement.Parent:= Panel2;
    CallManagement.Align:= alClient;
    CallManagement.Show;
    CallManagement.Init(Core.ControlInterface);[/codebox]

    После выполнения этого кода в Panel2 появляется элемент управления звонками, с которым можно работать.

    Необходимо проделать тоже но в LotesNotes7.0
    Вот какой код у меня получился:
    [codebox]
    Sub Click(Source As Button)
    ‘создаем активную форму InfinityCCCoreObj
    Set oCCore = CreateObject("InfinityCCCore.InfinityCCCoreObj")
    oCCore.SetLogLevel(1)
    ‘вызывем метод авторизации. Появляется окошко авторизации, вводим логин пароль, авторизация проходит успешно.
    oCCore.Logon
    создаем панель управления звонками
    Set oCallManagement=CreateObject("InfinityCCCallManagement.InfinityCCCallManagementObj")[/codebox]

    с помощью метода Init,
    передавая в качестве единственного аргумента ссылку на интерфейс. SelfReference сделана самими разрабочиками ActiveX, вызвращает ссылку на себя. Является аналогом Core.ControlInterface из примера на делфи
    oCallManagement.Init(oCCore.SelfReference)

    Ошибок не возникает, код отрабатывает. После этого можно обращаться к объекту oCallManagement, читать/писать свойства, НО панель не появляется.

    Наверно все дело в том, что аналоги следующим строкам на делфи у меня найти не получилось.
    CallManagement.Parent:= Panel2; - в лотусе у объекта oCallManagement свойства Parent нет. Возникает ошибка Instance member PARENT does not exists
    CallManagement.Align:= alClient;
    CallManagement.Show; в лотусе у объекта oCallManagement метода Show нет. Возникает ошибка Instance member SHOW does not exists.

    Попытки добавить в код следующие строки ошибок не вызывают, но все-равно ничего не появляется:
    oCallManagement.Visible=True
    oCallManagement.AutoSize=True
     
  2. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.081
    Симпатии:
    300
Загрузка...
Похожие Темы - Activex Form Lotesnotes7
  1. roddm
    Ответов:
    21
    Просмотров:
    2.501
  2. brewer
    Ответов:
    1
    Просмотров:
    1.290
  3. Dumm
    Ответов:
    1
    Просмотров:
    1.440
  4. andrey24
    Ответов:
    0
    Просмотров:
    2.058
  5. Vadik(R)
    Ответов:
    7
    Просмотров:
    4.102

Поделиться этой страницей