memo1.lines.add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);得到網頁中所有文字
Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);得到網頁的原代碼
如網頁中的內容是
<html>
<head></head><body>
HI,你好！
</body></html>
如果你想得到“你好”兩個字符，簡單的爛方法
var
id,str:string;
begin
str:='';
str:=IHtmlDocument2(WebBrowser1.Document).Body.OuterText;
id:=pos('HI,',str);
edit1.text:=copy(str,id+3,4);
end;
