//讀取網(wǎng)頁(yè)腳本中的變量:
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;假如網(wǎng)頁(yè)中有這樣的語(yǔ)句:
<script>
var
str = "Hello";
i = 99;
</script>
經(jīng)過(guò)測試 script塊 如果在<head></head>標記之間是可以的，否則無(wú)效
聯(lián)系客服
