|
//读取网页脚本中的变量:
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: Integer;
begin
s := WebBrowser1.OleObject.document.Script.str;
i
:= WebBrowser1.OleObject.document.Script.num;
ShowMessage(s); //Hello
ShowMessage(IntToStr(i)); //99
//也可以这样读:
s := WebBrowser1.OleObject.document.parentWindow.str;
i
:= WebBrowser1.OleObject.document.parentWindow.num;
ShowMessage(s);
//Hello
ShowMessage(IntToStr(i));
//99
end;假如网页中有这样的语句:
<script>
var
str = "Hello";
i =
99;
</script>
经过测试 script块
如果在<head></head>标记之间是可以的，否则无效
|
