问一个关于delphi的webbrowser的简单问题，比如我有一个webbrowser要求打开的网址不是我内置进去的

Question

问一个关于delphi的webbrowser的简单问题，比如我有一个webbrowser要求打开的网址不是我内置进去的 而是读取我放在一个网络上的特定的TXT中的网址，也就是我打开我的小浏览器 指定浏览器显示的网页，而这个浏览器打开的时候会读取一个特定的TXT中的地址来显示这个网址，比如我放在www.baidu.com/1.txt中的网址是www.hao123 。打开我浏览器的时候 浏览器自动读取www.baidu.com/1.txt中的网址www.hao123.com
如何实现，，大大来个代码

Answer 1

www.baidu.com/1.txt，这个由于不是.html文件，所以不能解析，你可以在打开webbrowser之前先下载1.txt文件，然后读取其内的网址，再进行下一步的工作。

你也可以将txt变成html，然后设置变量，再通过获取网页中变量的值来读取特定的网址。

例如：htm中<script> var currIDS=123</script>
程序中可以这样调用 id := Form1.WebBrowser1.OleObject.Document.script.currIDS
备注：变量可以是javascript定义的,也可以是vbscript定义的,如果Webbrowser1中找不到该变量,调用会触发一个异常事件,即变量currIDS不存在。

Answer 2

WebBrowser1.Silent :=True;

Answer 3

windblast说的比较全。WebBrowser1.Silent :=True;这个代码也必须用。呵呵。支持一下二位。

Answer 4

可以先使用idhttp.get下载列表文件
然后将列表文件存到TStringlist中
在Webbrowser读取的时候用循环打开每行的网址
for i:=0 to Tstringlist.count -1 do //这里的TStringList是你自己定义的变量
begin
webbrowser.navigate(TStringlist[i]); //变量索引的字符串
end;