Как пропарсить страницу из TWebBrowser ?

[bakanaev]

Как пропарсить страницу которая загрузилась в TWebBrowser?
Побывал так

pos('Искомое слово',WebBrowser1.Document);

Но Delphi ругается.
Как вариант записать исходный код в переменную и потом пропарсить ее, но я не знаю как правильно это сделать. Пробовал так

v:=WebBrowser1;

Ответ

[DCC Error] Unit1.pas(41): E2010 Incompatible types: 'string' and 'TWebBrowser'

и так

v:=WebBrowser1.Document;

Ответ

[DCC Error] Unit1.pas(41): E2010 Incompatible types: 'string' and 'IDispatch'

Прошу совета у Вас. Заранее спасибо!!!

[Пепел Феникса]

как сохранить код в строку массу раз было.

[bakanaev]

Подскажи пожалуйста, я не смог найти если четно

[Small_Byte]

пользуйся "индюшкой", компонент IdHTTP
s:=IdHTTP1.Get('site.ru');
memo1.Lines.Add(s);

[bakanaev]

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

пользуйся "индюшкой", компонент IdHTTP
s:=IdHTTP1.Get('site.ru');
memo1.Lines.Add(s);

Не катит))
Вопрос решен, http://programmersforum.ru/showthread.php?t=5259

[Usov]

Более простой вариант:

s := WebBrowser1.OleObject.Document.Body.innerHTML;