TWebBrowser i przyjaciele

Czarna strona WebBrowsera - OleObject i te sprawy.
Przedstawię wam najpotrzebniejsze funkcje WebBrowser-a. Oto one:

Aby pobrać kod HTML wystarczy jedna linika kodu:

function GetHtml(WebBrowser : TWebBrowser) : String;
begin
Result:=WebBrowser.OleObject.Document.documentElement.innerHTML;
end;

Możemy również pobrać sam tekst, bez znaczników HTML:

function GetText(WebBrowser : TWebBrowser) : String;
begin
Result:=WebBrowser.OleObject.Document.documentElement.innerText;
end;

Pobranie wszystkich adresów obrazków ze strony:

function  GetImages(WebBrowser : TWebBrowser) : String;
var  a : Integer;
       s : String;
begin
for a := 0 to WebBrowser.OleObject.Document.Images.Length-1 do
s:=s+(WebBrowser.OleObject.Document.Images.Item(a).Src)+#13;
Result:=s;
end;

Aby pobrać wielkość strony w bajtach:

function  GetSize(WebBrowser : TWebBrowser) : Integer;
begin
Result:=StrToInt((WebBrowser.Document as IHTMLDocument2).FileSize);
end;

Aby pobrać wszystkie linki ze strony:

function  GetLinks(WebBrowser : TWebBrowser) : String;
var s : String;
     a : Integer;
begin
for a := 0 to WebBrowser.OleObject.Document.Links.Length-1 do
s:=s+(WebBrowser.OleObject.Document.Links.Item(a).href)+#13;
Result:=s;
end;

Funkcja do pobrania protokołu:

function GetProtocol(WebBrowser : TWebBrowser) : String;
begin
result:=WebBrowser.OleObject.Document.Location.Protocol;
end;

Funkcja do pobierania jakie cookies wysyła nam strona:

function GetCookies(WebBrowser : TWebBrowser) : String;
var
  documentt: IHTMLDocument2;
  cookies: String;
begin
 documentt := WebBrowser.Document as IHTMLDocument2;
  if Assigned(documentt) then
    cookies := documentt.cookie;
    Result:=cookies;
end;

Funkcja do pobierania adresów wszystkich ramek:

function  GetFrames(WebBrowser : TWebBrowser) : String;
var s : String;
    a : Integer;
begin
for a := 0 to WebBrowser.OleObject.Document.Frames.Length-1 do
s:=s+(WebBrowser.OleObject.Document.Frames.Item(a).Document.URL)+#13;
Result:=s;
end;

Funkcja, która zwraca nam adres aktualnej strony:

Edit1.Text:= WebBrowser1.LocationURL;

Aby powyższe funkcje działały strona musi być całkowicie załadowana !!(OnDocumentComplete)
Do działania niektórych funkcji wymagany jest moduł MSHTML!!

Życzę miłej i bezproblemowej współpracy z WebBrowser-em ;)