Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Plugin под IE [Delphi, WinXP]


Demn ©   (2005-04-07 08:01:00) 

Прикол в следующем: прописываю интерфейс IObjectWithSite и два его метода.
Один из них выглядет так:

function TMyBrowserExt.SetSite(const pUnkSite: IUnknown): HResult;
var
 sp: IServiceProvider;
begin
 FWebBrowser := nil;
 FSite := pUnkSite;

 if FSite <> nil then
   try
     sp := pUnkSite as IServiceProvider;
     OleCheck(sp.QueryService(Class_TMyBrowserExt, IWebBrowser2,    FWebBrowser));
   except
     FWebBrowser := nil;
   end
   
 Result := S_OK;
end;

Суть: никак не могу понять, то ли не браузер не вызывает SetSite, либо я идиот. Потому как FWebBrowser всегда nil.


Demn   (2005-04-07 15:34:00) [1]

ВОПРОС СНИМАЕТСЯ!
Проблема решена.
Нужно заменить кривые руки на более прямые :))


Наверх

Титульная страница Поиск, карта сайта Написать письмо