Страничка загружена в компонент TWebBrower методом WerBrowser.Navigate('URL').
Требуется получить её содержимое ввиде HTML-кода.
Как это лучше сделать?

Спасибо!

Упс
Извините, не там тему создал.

Deface, перенеси, пожалуйста, эту тему в форум Delphi: Общие вопросы

Я попробовал, у меня есть подозрение, что ты можешь получить только содержимое какого-то конкретного элемента.

Например, так:

Код

var   B : IHTMLBodyElement;   T, OLDT : IHTMLTxtRange;   El : IHTMLElement;   xxx : IHTMLElementCollection;   O : OLEVariant; procedure TBandForm.Button1Click(Sender: TObject); type   TMy = array [0..$7FFFFFFE] of Char;   PMy = ^TMy; var   M : PMy;   F : File;   S : String; begin   xxx := (IE.Document as IHTMLDocument3).getElementsByTagName ('html');   O := 0;   El := xxx.item (O, O) as IHTMLElement;   S := El.innerHTML;   ShowMessage (S); end;

А вот исходник страницы... Это совсем другое дело, ведь html ты можешь изменять. Вставлять новые объекты, редактировать html-код существующих... Вот это идолжно по логике храниться в памяти. А исходник, скаченный с сайта - зачем он? Вот ещё одно подтверждение моим словам. Обращал внимание, что при созранении веб-страницы IE лезет в интернет? Зачем ему это делать, если всё есть в памяти?

Если очень нужен исходник, смотри, откуда он скачен (IE.Document as IHTMLDocument2).URL; и качай его самостоятельно.

Но я могу быть не прав.

Добавлено @ 14:50
Не в общие вопросы, а в Delphi: ActiveX/СОМ/CORBA

Это сообщение отредактировал(а) dm9 - 2.1.2005, 14:51

Че-то я немного забылся )
У меня TWebBrowser проассоциировался с IWebBrower2 )
Но в твоём случае мой предыдущий ответ всё равно имеет силу.
С тем дополнением, что
IE := WebBrowser1.DefaultInterface;

А также uses MSHTML;

dm9, Огромное спасибо! Это то, что нужно!

Пожалуйста
Ещё маленькое дополнение.
if xxx.length = 0
then ShowMessage ('запрошенного тэга нету')

Для тэга html это число, наверное, всегда будет равняться единице, а если ты запросишь
xxx := (IE.Document as IHTMLDocument3).getElementsByTagName ('тэг не html');
то может вернуться и ноль, и больше единицы элементов...
А вообще, читай MSDN (если интересно )
IWebBrowser2
IHTMLDocument, IHTMLDocument2, IHTMLDocument3, IHTMLDocument4, IHTMLDocument5

Это сообщение отредактировал(а) dm9 - 2.1.2005, 17:23