Delphi’de kullandığım işime yarayan bir kodu daha sizinle paylaşmak istedim.Bu Twebbrowser componentindeki (nesnesindeki) açık olan web sayfasının kaynak kodlarını almaya yarar.Aşağıdaki kodu herhangi bir nesnenin On.Click olayına yazabilirsiniz. Elbette Formda Tmemo ve TWebbrowser koymalısınız..Kodlara geçelim ;

ilk önce program başlancıgında bir değişken tanımlamamız gerek:
[cc lang = "delphi"] var
iall : IHTMLElement;
” ”
” ”

[/cc]Daha sonra Button1.On.Clik olayına;
[cc lang = "delphi"]if Assigned(WebBrowser1.Document) then //Eğer bir sayfa webbrowserde yüklenişse..
begin
iall := (WebBrowser1.Document AS IHTMLDocument2).body; while iall.parentElement <> nil do // ascii olarak kodu al..
begin
iall := iall.parentElement; // Memo1′in veri çekeceği değişken..
end;
Form3.memo1.Text := iall.outerHTML; // Değişkenin içeriğini Memo1′e aktar..
end;
[/cc]devamı var