Hасколько проще была бы жизнь, если бы она была в исходниках.
В 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('test.htm'), True);
while HTMLDocument.readyState <> 'complete' do
Application.ProcessMessages;
...
end;
Обратите внимание: Вам понадобится импортировать библиотеку MSHTML и добавить
MSHTML_TLB как ActiveX, в секцию Uses.
Статья Как получить полный исходник HTML раздела Интернет и Сети Браузер может быть полезна для разработчиков на Delphi и FreePascal.
