怎样运行JS，获取返回的结果？(100分)

下面是一段JS，怎样在 delphi 中运行并获取返回值？

----------------------------
<script type="text/javascript"><!--
google_ad_client = "pub-6960109784473484";
google_ad_width = 728;
google_ad_height = 90;
google_ad_format = "728x90_as";
google_ad_channel ="";
google_page_url = document.location;
google_color_border = "FFFFFF";
google_color_bg = "FFFFFF";
google_color_link = "0000FF";
google_color_url = "008000";
google_color_text = "000000";
//--></script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>

---------------------------------------------------

不知道
帮顶

delphi不能获取js函数的返回值
主要是考虑到js的函数可以返回一个js的对象 这种情况delphi无法处理
你可以考虑将结果输出到文件中然后delphi去读取这个文件的内容

to:ball_cao

具体应该怎样实现？

你不是吧 这些网上搜一下一大把的代码还问么？
下面代码引自http://topic.csdn.net/t/20021202/21/1224712.html
function WriteDemo()
{
var fso, f, r
var ForReading = 1, ForWriting = 2;
fso = new ActiveXObject("Scripting.FileSystemObject")
f = fspenTextFile("c://testfile.txt", ForWriting, true)
f.Write("Hello world!");
f.Close();
f = fspenTextFile("c://testfile.txt", ForReading);
r = f.ReadLine();
return(r);
}