چگونه ViewSource یک WebBrowser را ببینم

[Mah6447]

چگونه می توان ViewSource یک WebBrowser را در یک ممو نمایش دهیم

[vcldeveloper]

Memo1.Lines.Text := Variant(WebBrowser1.Document).body.innerHTML;

[szabeh]

با تشکر از آقاي کشاورز
در تکميل فرمايش شما

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Memo1.Lines.Text := Variant(WebBrowser1.Document).body.innerHTML;
end;