webbrowser

[Arsenx777]

Я делаю мини браузер, и хотел бы сделать так чтобы как и в остальных браузераз как mozilla firefox, opera, что бы можно просматривать исходный код страниц. Допустим у меня открыта веб страница мне надо по нажитию на бетто что бы в мемо был html код страницы.

Как можно это реализовать?

[kettanaito]

uses mshtml;
...
procedure TForm1.GetSource(WebBrowser:TWebBrowser; Memo:TMemo);
var
    iall : IHTMLElement;
begin
   if Assigned(WebBrowser.Document) then
   begin
     iall := (WebBrowser.Document AS IHTMLDocument2).body;

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

Использование:

procedure TForm1.Button2Click(Sender: TObject);
begin
GetSourceCode(WebBrowser1,Memo1);
end;

Что-то на подобии этого нужно?