Да гет-то хорошо, я знаю. Но он не вытаскивает все элементы страницы. Я пытался через гет, но через него исх. код выглядил очень тонко. И вот нашёл вот такой код в инете:
Код:
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;
Да и вообще зря эта тема, извините что побеспокоил, просто этим способом не получится мне сделать программу, сейчас создам новую тему может подскажут.