TWebBrowser

[DeDoK]

Здраствуйте форумчане. Вот есть вопрос:
Как получить исходный код страницы используя TWebBrowser?

[Stilet]

Читаем Delphi World:
В IE5, можно получить исходник используя свойство outerHTML тэгов HTML. В IE4 или IE3, Вам понадобится записать документ в файл, а затем загрузить файл в TMemo, TStrings, и т.д.


var
HTMLDocument: IHTMLDocument2;
PersistFile: IPersistFile;
begin
...
HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
PersistFile := HTMLDocument as IPersistFile;
PersistFile.Save(StringToOleStr('te st.htm'), True);

while HTMLDocument.readyState <> 'complete' do
Application.ProcessMessages;
...
end;


Обратите внимание: Вам понадобится импортировать библиотеку MSHTML и добавить MSHTML_TLB как ActiveX, в секцию Uses.

[DeDoK]

а если IE7? все тоже самое?

[Hottabych]

Можно через idHTTP

[Stilet]

а если IE7? все тоже самое?

А попробовать?

[DeDoK]

Сообщение от Hottabych

Можно через idHTTP

а где этот компонент взять?

[Квэнди]

на вкладке IndyClients

[DeDoK]

а код можно глянуть? или то уже самому?

[Dux]

Пример здесь:
http://www.delphicode.ru/internet/download_html.htm

[DeDoK]

спс большое