Delphi调用JavaScript解析JSON

本文整理自网络，侵删。

 
Delphi调用JavaScript解析JSON

1.首先加入ComObj单元
2.加入函数
functin RunJs(const JsCode,JsVar:string):string;
var
 script:OleVariant;
begin
 try
  Script :=CreateOleObject('ScriptControl');
  Script.Language :='JavaScript';
  Script.ExecuteStatement(JsCode);
  Result :=Script.Eval(JsVar);
 except
   result :='';
 end;
end; 

在Button1的OnClick事件中写入
S :=RunJs(Memo1.Text,'str');
Showmessage(S);

在Memo1中写入str=1+2，弹出3
如果写入以下JSON解析函数，则弹出解析后的结果
function ShowJson() {
 var UserList=[
  {"UserID":11,"Name":{"FirstName":"Trudy","LastName":"L1"},
  {"UserID":11,"Name":{"FirstName":"F1","LastName":"L2"}}
 ];
 return UserList[0].Name.FirstName;
}
str=ShowJson();

则弹出Trudy

或者用FastScript也可以解析，功能更强，可参考网站http://www.fast-report.com/pbc_download/files/fs_en.pdf
 

相关阅读 >>

Delphi 中打开浏览器跳转网址链接网页的几种方法

Delphi ttabcontrol控件使用

Delphi 调用ie隐藏的命令

Delphi 搜索指定目录下的文件

Delphi stringgrid 实例2：1、获取 stringgrid 的行数、列数; 2、给单元赋值

Delphi 获得memo、richedit的光标位置

Delphi 2010/xe下隐藏程序在系统任务栏的图标

Delphi 隐藏进程代码

Delphi 下载并显示网上的图片

Delphi 取得开机时间 开机时间总长度（可精确到秒，分钟等）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi调用JavaScript解析JSON