Программирование на Delphi и не только Как получить код страницы из TWebBrowser? | Программирование на Delphi и не только

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;

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