delphi 调用javascript
摘要:
function ExecScript(Code,Lang,Func:string):string;var script:OleVariant;begin try script:=CreateOleObject('ScriptControl'); script.Language:=Lang; script.AddCode(Code); Result:=script.Eval(Func); except end;end; 阅读全文
posted @ 2011-11-18 18:43 外星E号 阅读(141) 评论(0) 推荐(0) 编辑