دریافت محتوای سورس WebBrowser

سلام
من صفحه رو توی WebBrowser لود میکنم به درستی حالا میخوام توی یک Memo سورس بدست اومده از صفحه که html باشه رو ذخیره کنه :)

ممنون میشم کمکی کنید
... من یک سورس کامل پیدا کردم ولی خوب راهنمای طولانیش انگلیسی بود و کد نویسیش هم زیاد بود سری ازش در نیاوردم :)

سلام

کد:

---

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;

---

کد:

---

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
 WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;

---

سلام
ممنون بابت کد
یه uses هم انگاری میباست اضافه میشد :

کد:

---

ActiveX

---