[lexluther]

Всем привет,

Как можно из LISP создать КОМ объект и передать его методу BSTR строку?

Что то вроде CreateObject. Не обязательно BSTR любую лижбы ее можно было на С++ ATL COM принять.

Спасибо за помощь.

[ShaggyDoc]

Примерно так.

Есть COM-объект "ruAxSvr.WinMsg", у которого есть метод "Show" c аргументами "header" "text" "style". Типа обычного MessageBox. Чтоб его вызвать делаем:

Код:

[Выделить все]

(defun _ru-msg-srv ()
  (vlax-get-or-create-object "ruAxSvr.WinMsg")
)

(defun ru-msg-srv-show (header text style / srv result)
  (if (setq srv (_ru-msg-srv))
    (progn
      (setq result
             (vlax-invoke-method srv "Show" header text style)
      ) 
      (vlax-release-object srv)
      (setq srv nil)

    ) 
    (alert "Не удалось запустить ruAxSvr.WinMsg")
  ) 
  result
)

Эта функция не только покажет диалог с заданным заголовком и сообщением, но и вернет результат, зависящий от того, какой кнопкой закрыт диалог.

Только надо учитывать, что LISP работает с "объектами автоматизации", а не с любыми COM.

[Pastor]

Вдруг кому пригодится.

1. Хорошая книга по основам COM:
Эндрю Троелсен "Модель COM и применение ATL 3.0" (БХВ-Петербург).

2. Очень качественная по содержанию и переводу книга:
Кристофер Таваре и др. "ATL 8.0: Внутренняя структура и применение" (Издательский дом "Вильямс"). Правда, предполагает у читателя наличие серьезной подготовки по С++ и основам COM.