如何用webbrowser控件获取html源文件

procedure TForm1.Button1Click(Sender: TObject); var ole_index, oleObj: OleVariant; i: integer; begin if WebBrowser1.Busy then Exit; //网页加载中，退出。 Memo1.Lines.Clear; //获取主框架网址及网页源码 Memo1.Lines.Add(WebBrowser1.OleObject.