▲

Извлечь HTML Код

Шрифт: Абв Абв Абв

admin 25 Декабря 2007 в 21:32:36


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;