Как получить html из Webbrowser

[Teen4jump]

Как получить html из Webbrowser... Т.е. не так:
idhttp1.Get(Url) а именно из страницы в Webbrowser...
idhttp1.get(webbrowser1.locationurl ) тоже некатит...

[mihali4]

Было уже:

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
 var
   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   s := '';
   ss := TStringStream.Create(s);
   try
     sa := TStreamAdapter.Create(ss, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
     if Result then ACode.Add(ss.Datastring);
   finally
     ss.Free;
   end;
 end;

А если скачаете мой DFaq (см. в подписи) - там еще несколько способов...

[Alar]

WebBrowser.Document

http://programmersforum.ru/showthread.php?t=9313

[Teen4jump]

Спасибо большое...)