Реализация DCOM сервера

[FaKk2]

Для начала попробую обьяснить проблему.
Мне нужно реализовать Idispatch:Invoke в программе. Т.е. сделать не клиента, а сервер, согласно следующей фразе:

To gain this control, you need to implement your host's IDispatch so it handles DISPID_AMBIENT_DLCONTROL. When the WebBrowser Control is instantiated, it will call your IDispatch::Invoke with this ID.

Пока, я еще в поисках ответа, и может здешние шаманы подскажут направление ?

[Sebas]

А в чём проблеиа?(интересно)

Я так понял, ты делаешь не на VB?

[FaKk2]

Таки на VB.
Проблема, что я понятия, пока, не имею как это сделать

[tyomitch]

FAKK2, всё очень просто.
У нужного метода нужного объекта в Tools -> Procedure Attributes выставь DispID, равный DISPID_AMBIENT_DLCONTROL.
Сам IDispatch тебе реализовывать совершенно незачем.

[GSerg]

Тёмыч, человеку нужно вот это вот.
Понятно, что метод надо определить у контейнера. Вопрос в том, каким образом, если контейнер у нас форма

Если просто написать

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

Public Function TellHim() As Variant
  TellHim = DLCTL_DLIMAGES Or DLCTL_VIDEOS Or DLCTL_NO_SCRIPTS
  MsgBox "!"
End Function

и присвоить этой функции нужный ID (-5512), то будет видно, что ни фига не вызывается.

[tyomitch]

Хост там - не контейнер (он же форма), а невидимый объект, создаваемый VB.
Нужно создавать свой хост, так же как в http://bbs.vbstreets.ru/viewtopic.php?t=9370

[GSerg]

Ну, собсно, эту мыслю я и хотел озвучить, но думал, мож ты знаешь чё другое

[FaKk2]

Хочу выразить благодарность, GSerg'у и tyomitch'у, Я на вас надеялся

А теперь по делу,
Как я понял, мне нужно создать некий виртуальный обьект, который будет являться хостом, к которому будет обращаться webBrowser.

Пример создания хоста, я беру с исходника предоставленного tyomitch'ем.

Подключаю одно к другому способом описанным выше.

Такие вопросы:
1. У меня броузеры динамически создаются в софте, значит мне надо будет подключение делать для каждого? Если да, то в какой момент? Сразу после Load webbrowser(i)?

2. Пример tyomitch'а не запускается. Ругается на

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


Implements IOleInPlaceFrame


Bad interface for Implements: Interface is derived from another pure interface with non-restricted methods

Комментс?

Все библы подключены успешно.

Еще раз, спасибо за помощь.

[tyomitch]

2. Пример tyomitch'а не запускается. Ругается на

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

Implements IOleInPlaceFrame


Bad interface for Implements: Interface is derived from another pure interface with non-restricted methods

Комментс?

Все библы подключены успешно.

1) olelib у тебя моя или родная от Edanmo? нужна моя.
2) VB6 или VB5? В VB5 чего-нибудь может и нехватать, я не проверял.

[FaKk2]

Заработало !

Сбила меня с толку то, что одна tlb была твоя, другая с WINDOWS\SYSTEM32. Вот вторую я и не заметил.
Щас буду разбираться.

[FaKk2]

Боюсь знаний не хватит.

Я купил по этому поводу книжку Дена Аппельмана "Developing Com/Activex Components With Visual Basic 6".
Кто нибудь её читал?

[tyomitch]

Я, я читал! Напечатал и читал!!

Только у меня про VB5. А что?

[FaKk2]

tyomitch
Ну раз читал, она тебе помогла?

[tyomitch]

Вообще? Да.
Применительно к сабжу - нет.

А книжку, конечно, прочитай, раз уже купил - интересная вещь.
Оттуда я узнал, например, ответ на вопрос из http://bbs.vbstreets.ru/viewtopic.php?t=10758 (который на форуме так и остался без ответа). Естественно, что никакой "перебор контролов на родителе" там не нужен.

[GSerg]

ответ на вопрос из http://bbs.vbstreets.ru/viewtopic.php?t=10758 (который на форуме так и остался без ответа). Естественно, что никакой "перебор контролов на родителе" там не нужен.

"Развивайте, развивайте свою мысль, Афанасий Тарасович..." (c)

[tyomitch]

OLE_OPTEXCLUSIVE
If you're developing a control with option-button functionality, use the OLE_OPTEXCLUSIVE data type for the Value property of your control. This will cause your control's Value property to behave like that of the intrinsic OptionButton control. That is, when instances of your control are grouped, and the user clicks an unselected control instance, the currently selected instance's Value is automatically set to 0 (thus unselecting the button), and the Value of the clicked instance is set to 1.

This behavior is handled by the container. The container checks the Value property for each control it contains, and groups those that are of type OLE_OPTEXCLUSIVE.

Note You must use the Procedure Attributes dialog box to make the Value property the default property, in order for the control host to enable the behavior described.

OLE_OPTEXCLUSIVE is handled as a Boolean type internally.

[GSerg]

Гы... Во как Прикольно!