在网页中有JAVA语句:
var bb=['sss',25,'mu',163,69,944,214,'1:1','z14.gif','g14.gif','s14.gif',36133,'944','348','17625','81343']; 在delphi中如何得到bb变量的值?谢谢
var bb=['sss',25,'mu',163,69,944,214,'1:1','z14.gif','g14.gif','s14.gif',36133,'944','348','17625','81343']; 在delphi中如何得到bb变量的值?谢谢
解决方案 »
- 请问{$IF DEBUG}{$ELSE}{$IFEND}是什么意思?
- 如何获得图片(JPG文件)的真实尺寸?
- 跪求 发送EMAIL 的原码或例子,谢谢!!!
- 难呀,我都几天睡不好了,救救我
- 年底救人,界面问题。。。。
- 请教有关把MonthCalendar中的日期通过选择自动同步到EDIT.TEXT或者COMBOBOX中
- 简单问题:怎样让窗口右上角的关闭按钮失去作用
- 如何制作安装程序?
- 请教一个有关DBGridEh 中的sortmarker问题
- 鄙人不才,请问如果实现这样的功能。100分等待供奉。
- 调用Dll函数问题
- count:=ExtractStrings(['|'],[],pansichar(ReceivedString),strs);问题
<script language="javascript">
var bb="test"
</script> procedure TForm1.Button1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
Obj:IHTMLScriptElement;
i:Integer;
begin
WebBrowser1.Navigate('http://127.0.0.1/test.htm');
while WebBrowser1.ReadyState<>4 do
Application.ProcessMessages;
//
Doc:=WebBrowser1.Document as IHTMLDocument2;
for i:=0 to Doc.scripts.length-1 do
begin
Obj:=Doc.scripts.item(i,varEmpty) as IHTMLScriptElement;
ShowMessage(Obj.text);//至此已经取出一段Script直接的代码,根据bb=这个标记去截取了
end;
end;
如
var BB='11';
BB=BB+'22';我要在delphi中得到BB的值是‘1122’,能做到吗?
const
MyScriptStr='function test(){'+#10#13+'var BB=''11'';'+#10#13+'BB=BB+''22'';return BB}'+#10#13;
var
Script:OleVariant;
SA:PSafeArray;
begin
Script:=CreateOleObject('ScriptControl');
Script.Language:='JavaScript';
Script.AddCode(MyScriptStr);
ShowMessage(Script.Run('test'));
end;还有,你给的分太少,如果上面的你不满意,我也暂时想不到好的方法,能者来之
分确实不是问题,反正也不花我的钱,但动不动就提分太少,让我的确感觉不太舒服。
当然,还是要再次感谢hidelhpi的无私帮助。
对不住你的地方,表示歉意,我只是说了我想说的话。