Показать сообщение отдельно
  #13  
Старый 02.07.2011, 17:13
Мяфк Мяфк вне форума
Начинающий
 
Регистрация: 30.05.2010
Сообщения: 102
Репутация: 10
По умолчанию

Да гет-то хорошо, я знаю. Но он не вытаскивает все элементы страницы. Я пытался через гет, но через него исх. код выглядил очень тонко. И вот нашёл вот такой код в инете:

Код:
procedure TForm1.GetCode;
var
    iall : IHTMLElement;
begin
   if Assigned(WebBrowser1.Document) then
   begin
     iall := (WebBrowser1.Document AS IHTMLDocument2).body;

     while iall.parentElement <> nil do
     begin
       iall := iall.parentElement;
     end;
     memo1.Text := iall.outerHTML;
   end;
end;

Да и вообще зря эта тема, извините что побеспокоил, просто этим способом не получится мне сделать программу, сейчас создам новую тему может подскажут.
Ответить с цитированием