VPF::Вызвать "Свойства обозревателя"

RinOSpro

Дата 6.1.2007, 21:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Хочу вызвать "Свойства обозревателя" ни как не получается хотя уже реализовал печать, сохранение странички, и т.д.

RinOSpro

Дата 8.1.2007, 23:11 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вызвать "Свойства обозревателя", в компоненте WebBrowser

_hunter

Дата 9.1.2007, 13:23 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

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

ты не в тот раздел запостил...

--------------------

Tempora mutantur, et nos mutamur in illis...

RinOSpro

Дата 9.1.2007, 17:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

_hunter, в тот тот по сетям именно по компаненту TWebBrowser.

December

Дата 9.1.2007, 20:50 (ссылка)

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

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

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

RinOSpro, TWebBrowser - это ActiveX компонент.

Код


var
 CmdTarget:IOleCommandTarget;
 vaIn, vaOut:OleVariant;
 PtrGUID: PGUID;
begin
New(PtrGUID);
PtrGUID^:=CGID_WebBrowser;
if WebBrowser1.Document<>nil then
  begin
  WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
  if CmdTarget<>nil then
    try
    CmdTarget.Exec(PtrGUID,3,0,vaIn,vaOut);
    finally
    CmdTarget._Release;
    end;//if, finally
  end;//if
Dispose(PtrGUID);

--------------------

Для друзей с винграда - скидки на разработку сайтов

RinOSpro

Дата 12.1.2007, 22:46 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

В начале вообще код не работал подключил в uses activex заработало кроме одного
но Delphi не знает что такое CGID_WebBrowser может что еще подключить?

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