请教用WebBrower,如果只知道变量名字，如何取得网页script变量

Question

我知道形如a:= wb.OleObject.Document.Script._elm等方法可以取得_elm值。但这样不是很灵活
不过如果写在函数里应该怎么转换一下呢？比如procedure ViewVar(AVarName: string);
begin
  a:= wb.OleObject.Document.Script.'AVarName'   //!!!!!这里应该怎么转换成可以识别的状态呢？
end;我试着把string 转化成 OleVariant，但也是不行
多谢了

Answer 1

script中的变量也可以遍历？请问应该怎么写？

Answer 2

//读取网页脚本中的变量:
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));  
  //也可以这样读:
  s := WebBrowser1.OleObject.document.parentWindow.str;
  i := WebBrowser1.OleObject.document.parentWindow.num;
  ShowMessage(s);  //Hello
  ShowMessage(IntToStr(i));  
end;

Answer 3

不会用webbrower这个控件··留名后学