VPF::Обработка COM события - Форум программистов

GraySE

Дата 21.7.2008, 15:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 18.7.2008

Репутация: нет
Всего: нет

Привет!

Есть обработка событий COM объекта - WebBrowser.
Подключён к DWebBrowserEvents2. Вот описание интерфейса.

Код


DWebBrowserEvents2 = dispinterface
  ...
  procedure BeforeNavigate2(const pDisp: IDispatch; var URL: OleVariant; var Flags: OleVariant; 
                              var TargetFrameName: OleVariant; var PostData: OleVariant; 
                              var Headers: OleVariant; var Cancel: WordBool); dispid 250;
  ...
end;

Делаю обработку этого метода:

Код


function TWebBrowserEvents.Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
  Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult;
var
   P: TDispParams absolute Params; // Это, как я понял параметры метода BeforeNaviagte2
begin
  case DispID of
    250: // BeforeNavigate2
    begin
      // Вывод заголовков
    end;
  end;
end;

Насколько я понял, параметр Params - содержит массив параметров метода BeforeNavigate2 интерфейса DWebBrowserEvents2. Как мне получить к ним доступ?
Конкретно - мне нужен доступ к заголовкам (параметр Headers). Мне нужно вывести все заголовки, полчаемые от интерфейса.
Как это сделать? Есть можно - с примером.

Спасибо.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »