//读取网页脚本中的变 delphi 获得js 变量

http://bbs.csdn.net/topics/310263041

//读取网页脚本中的变量: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));  //99end;