Динамическое создание объекта TWebBrowser

← →
NetBreaker666 © (2002-10-19 02:55) [0]

При создании TWebBrowser"а динамически, без задания parent-window не вызывается event - onDocumentComplete, а если делать Navigate2(URL,Flags), где Flags=navOpenInNewWindow происходит исключение: "Не произведен вызов CoInitialize()" хотя я его вызывал...
Вообще как работать с динамически созданным Браузером без собственного окна ???

← →
Rouse_ © (2002-10-19 03:08) [1]

Как это без собственного окна, а на чем он лежать будет?

Желаю успехов

← →
NetBreaker666 © (2002-10-19 03:11) [2]

> Как это без собственного окна, а на чем он лежать будет?
>
> Желаю успехов

А зачем ? Это что, обязательно ?

← →
Rouse_ © (2002-10-19 03:16) [3]

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

Желаю успехоы

← →
NetBreaker666 © (2002-10-19 03:20) [4]

Да я вообще компонент делаю для анализа HTML-кода с использованием парсера IE. Код высылать не буду, типа очень много, вот кусок:
Browsers[t]:=TWebBrowser.Create(self); Browsers[t].OnDocumentComplete:=DocLD; ,,,, s:=Walker.GetTUrl; Walker.Browsers[t].Navigate2(s);

← →
Rouse_ © (2002-10-19 03:36) [5]

> TWebBrowser.Create(self);
Этого не хватит
Parent нужно обязательно указать иначе никак

Желаю успехов

← →
Song © (2002-10-19 11:25) [6]

2Rouse_ © (19.10.02 03:36)
Может ему не нужно визуальное отображение компонента?

Мля, нужно только загрузить страницу, без визуализации... для парсинга.

> NetBreaker666 © (26.10.02 11:06)
> Мля, нужно только загрузить страницу, без визуализации...
> для парсинга.

Так загружай вручную, через сокеты или через TNMHTTP.

Удачи.

procedure TForm1.Button1Click(Sender: TObject);
var
Coll: IHtmlElementCollection;
V: OleVariant;
i: Integer;
IE: IWebBrowser2;
begin
IE := CreateOleObject("InternetExplorer.Application") as IWebBrowser2;
With IE do
begin
Navigate("c:\temp\index.html",v,v,v,v);
while Busy do sleep(0);
Coll:= (document as IhtmlDocument2).all.tags("a")
as IHtmlElementCollection;
end;
for i:=0 to Coll.length-1 do
with (Coll.item(i,v) as IHTMLAnchorElement) do
if (href <> "") then
begin
Memo1.Lines.add("href: "+href);
Memo1.Lines.add("host: "+host);
Memo1.Lines.add("hostname: "+hostname);
Memo1.Lines.add("port: "+port);
Memo1.Lines.add("protocol: "+protocol);
Memo1.Lines.add("nameProp: "+nameProp);
Memo1.Lines.add("pathname: "+pathname);
Memo1.Lines.add("");
end;
IE.Quit;
end;

Вот так парсерим якоря.

Динамическое создание объекта TWebBrowser Найти похожие ветки