Delphi System.Json 常用基础操作

最新推荐文章于 2025-04-03 19:15:00 发布

【重楼】

最新推荐文章于 2025-04-03 19:15:00 发布

阅读量317

点赞数

分类专栏： Delphi

本文链接：https://blog.youkuaiyun.com/u011706768/article/details/119731581

版权

JSON Delphi 编程数据处理网络通信

关键词由优快云通过智能技术生成

Delphi 专栏收录该内容

22 篇文章

订阅专栏

该篇博客主要展示了如何在Delphi中创建和解析JSON对象。通过实例代码，演示了如何组装JSON字符串，包括添加各种类型的键值对，并发送数据。此外，还展示了读取JSON值的过程，从中提取特定字段信息并进行存储。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//组装Json串发送

var
  JSONObject, JSONObject1: TJSONObject; // JSON类
  jsonArray: TJSONArray; // JSON数组变量
  strJson: string;
  i: Integer;
begin
    try
        JSONObject := TJSONObject.Create;
        JSONObject.AddPair('type', TJSONNumber.Create(1));
        JSONObject.AddPair('sKey', TJSONString.Create(config.关键词));
        JSONObject.AddPair('sContains', TJSONString.Create(config.包含));
        JSONObject.AddPair('price_L', TJSONNumber.Create(config.价格_低));
        JSONObject.AddPair('price_H', TJSONNumber.Create(config.价格_高));
        JSONObject.AddPair('sExclude', TJSONString.Create(config.排除));
        jsonArray := TJSONArray.Create;
        JSONObject.AddPair('sContainslst', jsonArray);
        for i := 0 to Length(config.筛选) - 1 do
        begin
          JSONObject1 := TJSONObject.Create;
          JSONObject1.AddPair(config.筛选[i].key, TJSONString.Create(config.筛选[i].value));
          jsonArray.Add(JSONObject1);
        end;


        //发送扫货配置
        strJson := JSONObject.ToJSON;
        sgcWebSocketServer1.WriteData(Guid, strJson);
    except
    end;
end;



//读取Json值

var
  tmpJsonObject: TJSONObject;
  tmpJsonArr: TJSONArray;
  i: Integer;
  tmpShopInfo: TShopInfo;
begin
  try
    Result := False;
    tmpJsonObject := TJSONObject.ParseJSONValue(sJson) as TJSONObject;
    if tmpJsonObject <> nil then
    begin
      tmpJsonArr := tmpJsonObject.GetValue<TJsonArray>('items');
      if tmpJsonArr <> nil then
      begin
        for i := 0 to tmpJsonArr.Size - 1 do
        begin
          tmpShopInfo.mall_ID := (tmpJsonArr.Get(i) as TJSONObject).GetValue<string>('item_data.goods_model.mall_id');   
          tmpShopInfo.saleCount := (tmpJsonArr.Get(i) as TJSONObject).GetValue<string>('item_data.goods_model.sales_tip');
          g_ShopInfoList.Add(tmpShopInfo);
        end;
      end;
    end;

  except
    on e: Exception do
    begin
      Log(e.Message);
    end;
  end;
end;