使用chimera.JSON将JSON数组作为参数传递

我对使用Delphi XE2开发JSON、php和IOS还不熟悉

我想解析从php脚本中获得的JSON数组

当这个被打开时，我得到的数组是

 [{"cname":"MAAO"},{"cname":"MAIM"}]

我已经从安装了这个解析器 这里有一个代码示例

 procedure TForm1.Button3Click(Sender: TObject);
 var
  i : integer;
  obj : IJSONObject;
  begin
 obj := JSON('{"firstname":"leonard",'+
          ' "lastname":"nimoy",'+
          ' "email":['+
          '   "spock@enterprise.com",'+
          '   "lazydude@mars.com"]'+
          '}');
  Writeln(obj['firstname']);
  for i := 0 to obj.Arrays['email'].count-1 do
 begin
   Writeln(obj.Arrays['email'][i]);
  // StringGrid1.Cells[0,i]:=obj.Arrays['email'][i];
 end;

 obj['lastname'] := 'shatner';
 writeln(obj.AsJSON);
 ReadLn;
 end;

有谁能告诉我如何从

---

to

obj:IJSONObject？
您需要使用某种方式从Web服务器获取数据。我使用网络软件组件。我不使用XE2，因此不确定是否有本机组件来执行此操作

我用他们的webdata组件做了类似的事情。在表单上放置webdata组件，然后从示例中删除代码：-

with webdata1.Data.Add do
begin
  scanfirst := '<span id="yfs_l10';
  scanfrom := '">';
  scanto := '</';
  url := 'http://finance.yahoo.com/q?s='+quotes+'&d=v1';
end;
end;

  webdata1.Execute;


  for i := 1 to stringgrid1.RowCount - 1 do
  begin
     stringgrid1.Cells[2,i] := webdata1.Data.Items[i - 1].Data;
  end;

使用webdata1.Data.Add do
开始
scanfirst:=''；
scanto:=“为什么不使用该单元？DBX.JSON的性能非常差。奇美拉是为速度而写，填补了一些使用漏洞。