Почитайте!

Нас читают

Статьи о программировании и не только

Mail.Ru

Rambler's Top100

Programming Blogs - BlogCatalog Blog Directory


Как получить код страницы из TWebBrowser?

Delphi FAQ >> Интернет

При помощи данной функции на языке программирования Delphi можно получить html-код страницы из компонента TWebBrowser.

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


Тем, кому надоело читать желтую прессу, будет интересно почитать новости про современную мобильную технику. Например, новости мобильных технологий - все о высокотехнологичных девайсах.