Показать сообщение отдельно
Старый 21.08.2009, 17:23   #8  
.Quattro. is offline
.Quattro.
Участник
Лучший по профессии 2009
 
194 / 22 (1) +++
Регистрация: 22.05.2006
Код:
IE: Automation 'Microsoft Internet Controls'.InternetExplorer	
MSHTML: Automation 'Microsoft HTML Object Library'.HTMLDocument	
HTMLBody: Automation 'Microsoft HTML Object Library'.HTMLBody	
---------------------
CREATE(IE, TRUE);
IE.Navigate('www.ya.ru');
WHILE IE.ReadyState<4 DO
   SLEEP(10);

MSHTML := IE.Document;
HTMLBody := MSHTML.body;
MESSAGE(HTMLBody.innerText);
IE.Quit;
CLEAR(MSHTML);
CLEAR(IE);