Форум: "Потрепаться";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
ВнизДинамическое создание объекта 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 (2002-10-26 11:06) [7]Мля, нужно только загрузить страницу, без визуализации... для парсинга.
← →
Almaz (2002-10-28 01:39) [8]
> NetBreaker666 © (26.10.02 11:06)
> Мля, нужно только загрузить страницу, без визуализации...
> для парсинга.
Так загружай вручную, через сокеты или через TNMHTTP.
Удачи.
← →
int64 (2002-10-28 02:46) [9]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;
Вот так парсерим якоря.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.015 c