Как открыть ссылку в новом окне броузера ?

← →
Zhker (2003-07-20 03:45) [0]

Господа хорошие, подскажите, плз, как сотворить сабж ?

← →
Ihor Osov'yak (2003-07-20 08:52) [1]

iElem:IHtmlElement; - то, на что нужно кликнуть..

iref:IHTMLAnchorElement; - это будет нужно..

...

iElem.QueryInterface(IHTMLAnchorElement,iref); if not assigned(iref) then exit; iRef.Set_target("_blank"); iElem.Click;

Само собой, что контролируем OnNewWindow2, создаем там новый веббровзер (или ищем уже существующий), и устанавливаем ppDisp, равным IWebBrowser2 к соотв. вебброузеру..

зы. Если некоторые из вышеназванных идентификаторов и типов показались незнакомими, то вам поначалу сюда - http://delphi.vitpc.com/mastering/tweb.htm

← →
Zhker (2003-07-20 23:13) [2]

Всё понятно, но я ен собираюсь ставить TWebBrowser в свою программу. Мне нужно бе этого компонента отркыть ссылку в новом окне - как мне сделать это без использования компонента TWebBrowser

← →
Palladin (2003-07-21 00:42) [3]

а твоя программа работает в старом окне броузера?
почему вопросы криво задаем?

ShellExecute(0,nil," http://delphimaster.net/view/6-1058683824/",nil,nil,SW_MAXIMIZE)

← →
Ihor Osov'yak (2003-07-21 00:43) [4]

> отркыть ссылку в новом окне

Что это в вашем понимании? Что такое "новое окно"?

Ps, случаем
ShellExecute(0, nil,
( " http://www.microsoft.com") > отркыть ссылку в новом окне

Что это в вашем понимании? Что такое "новое окно"?

Ps, случаем
ShellExecute(0, nil,
PChar(" http://www.microsoft.com"), nil, nil, SW_SHOWNORMAL)

не подойдет?

← →
Zhker (2003-07-21 02:33) [5]

ShellExecute(0, nil,
( " http://www.microsoft.com") ShellExecute(0, nil,
PChar(" http://www.microsoft.com"), nil, nil, SW_SHOWNORMAL)
- это откроет ссылку в текущем окне Ie. А мне нужно чтобы открылся новый Ie и пошел по ссылке

← →
Ihor Osov'yak (2003-07-21 09:14) [6]

Попытай счастья так:

uses ... SHDocVw, .. iDisp: IDispatch; iWB: IWebBrowser2; ov: OleVariant; .. iDisp := CreateOleObject("InternetExplorer.Application.1"); if not assigned(iDisp) then begin ( IWebBrowser2,iWB) Попытай счастья так: uses ... SHDocVw, .. iDisp: IDispatch; iWB: IWebBrowser2; ov: OleVariant; .. iDisp := CreateOleObject("InternetExplorer.Application.1"); if not assigned(iDisp) then begin Exit; end; iDisp.QueryInterface(IWebBrowser2,iWB); iWB.Set_Visible(TRUE); ov := "www.google.com"; iWB.Navigate2(ov,emptyparam,emptyparam,emptyparam,emptyparam);

← →
Вова55555 (2003-07-21 23:18) [7]

Когда мне надо было сделать это я запускал в командной строке
"IEXPLORE.EXE" с параметрами, их немного , но всё-же поробуй так:

"IEXPLORE.EXE" -new http://rostprim.narod.ru/test.txt

так-же я навешивал сюда невидимость...
-channelband - Internet Explorer будет запущен в качестве специальной панели каналов на Рабочем столе текущего пользователя. Данная опция работает только при выключенном активном Рабочем столе (Active Desktop);
-e - Internet Explorer будет запущен в двухпанельном режиме Проводника (дерево папок слева, содержание справа);
-new - новое окно программы Internet Explorer будет запущено как отдельный процесс;
-nohome - при запуске Internet Explorer не будет открывать никаких веб-страниц;
-k - запуск браузера в полноэкранном режиме (Kiosk mode);
-slf - при запуске открывается домашняя страница пользователя;
-embedding - отключение отображения графического интерфейса (Web browser control).
Можно в командной строке указать и URL-адрес страницы, которую требуется открыть: iexplore -k upgrade.computery.ru.

Как открыть ссылку в новом окне броузера ? Найти похожие ветки