技术标签: jsonobject Delphi
--不多说,直接上代码
procedure TFrmMain.Brand;
var
JSONObject, jsonparam: TJSONObject; // JSON类
jsonArray: TJSONArray; // JSON数组变量
i: Integer;
Flag_Do: Boolean;
jsonToSend: TStringStream;
jsonStr, RjsonStr: string;
RJSONObject, Rjsondata, RjsonlistObjItem: TJSONObject; // JSON类
RJsonArray: TJSONArray; // JSON数组变量
InfoCount: Integer;
TMPStr, TMPItemValue: string;
SbrandId: Double;
SbrandCode, SchineseName, SenglishName, SlogoUrl, Sintroduction: string;
InfoCode, InfoMsg: string;
begin
Flag_Do := True;
URL := 'http://devhhplus.oudianyun.com:2035/open-api/product-web/brand/getBrand.do';
try
while Flag_Do do
begin
JSONObject := TJSONObject.Create;
jsonparam := TJSONObject.Create;
jsonArray := TJSONArray.Create;
with DmMain.ADOQuery1 do
begin
Close;
Parameters.Clear;
SQL.Clear;
//SQL.Add('{call pkg_SynZhongTai.sp_GetBrand(?)}');
SQL.Add('{call pkg_SynZhongTai.sp_GetBrand}');
Open;
if RecordCount = 0 then
begin
Flag_Do := False;
Break;
end;
First;
while not Eof do
begin
jsonArray.Add(FieldByName('BrandID').AsString);
JSONObject.AddPair('brandId', jsonArray);
JSONObject.AddPair('brandName', FieldByName('BrandName').AsString);
Next;
end;
end;
jsonparam.AddPair('app_id', app_id);
jsonparam.AddPair('v', '1.0');
jsonparam.AddPair('jsonData', JSONObject);
jsonparam.AddPair('sign', getSign(jsonparam));
jsonStr := getFormData(jsonparam);
RjsonStr := SendPost(URL, jsonStr);
RJSONObject := TJSONObject.ParseJSONValue(RjsonStr) as TJSONObject;
Rjsondata := TJSONObject.ParseJSONValue(Trim(RJSONObject.GetValue('data').ToString)) as TJSONObject;
InfoCount := StrToInt(Rjsondata.GetValue('total').ToString);
InfoCode := RJSONObject.GetValue('code').ToString;
RJSONObject.TryGetValue('msg', InfoMsg);
RJsonArray := TJSONArray(Rjsondata.GetValue('listObj'));
for i := 0 to RJsonArray.Size - 1 do
begin
RjsonlistObjItem := TJSONObject.ParseJSONValue(RJsonArray.items[i].ToString) as TJSONObject;
// Memo2.Lines.Add('brandId:' + RjsonlistObjItem.GetValue('brandId').ToString);
if RjsonlistObjItem.TryGetValue('brandId', TMPItemValue) then
SbrandId := StrToFloat(TMPItemValue);
if RjsonlistObjItem.TryGetValue('brandCode', TMPItemValue) then
SbrandCode := TMPItemValue;
if RjsonlistObjItem.TryGetValue('chineseName', TMPItemValue) then
SchineseName := TMPItemValue;
if RjsonlistObjItem.TryGetValue('englishName', TMPItemValue) then
SenglishName := TMPItemValue;
if RjsonlistObjItem.TryGetValue('logoUrl', TMPItemValue) then
SlogoUrl := TMPItemValue;
if RjsonlistObjItem.TryGetValue('introduction', TMPItemValue) then
Sintroduction := TMPItemValue;
with DmMain.ADOStoredProc1 do
begin
Close;
Parameters.Clear;
ProcedureName := 'pkg_SynZhongTai.sp_SynZTBrandWeb';
Parameters.CreateParameter('vbrandidweb', ftFloat, pdInput, 100, SbrandId);
Parameters.CreateParameter('vbrandCode', ftString, pdInput, 100, SbrandCode);
Parameters.CreateParameter('vchineseName', ftString, pdInput, 100, SchineseName);
Parameters.CreateParameter('venglishName', ftString, pdInput, 100, SenglishName);
Parameters.CreateParameter('vlogoUrl', ftString, pdInput, 100, SlogoUrl);
Parameters.CreateParameter('vintroduction', ftString, pdInput, 100, Sintroduction);
ExecProc;
end;
end;
LogWrite('code:' + InfoCode + '。msg:' + InfoMsg);
JSONObject := nil;
jsonparam := nil;
jsonArray := nil;
RJSONObject := nil;
Rjsondata := nil;
RjsonlistObjItem := nil;
RJsonArray := nil;
end;
finally
end;
end;
function TFrmMain.SendPost(AURL, AjsonStr: string): string;
var
jsonToSend: TStringStream;
TMPResult: string;
begin
try
try
// 以列表的方式提交参数
IdHTTP.HandleRedirects := True; // 允许头转向
IdHTTP.ReadTimeout := 5000; // 请求超时设置
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded'; //'application/json'; // 设置内容类型为json
Memo1.Clear;
Memo1.Text := AjsonStr;
jsonToSend := TStringStream.Create(AjsonStr, TEncoding.UTF8);
jsonToSend.Position := 0; // 将流位置置为0
// IdHttp.Post(Url,jsonToSend,ResponseStream);
TMPResult := IdHTTP.Post(AURL, jsonToSend);
except
on e: Exception do
begin
ShowMessage(e.Message);
end;
end;
finally
LogWrite(TMPResult);
Result := TMPResult;
end;
end;
function getSign(params: TJSONObject): string;
var
arrString, arrString1: array of string;
len, i: Integer;
s1: TStringList;
TMPStr, TMPValue, TMP1, TMPMD5: string;
md5: THashMD5;
begin
params.RemovePair('sign');
len := params.Count;
SetLength(arrString, len);
SetLength(arrString1, len);
for i := 0 to len - 1 do
begin
// arrString[i] := params.Get(i).ToString;
//arrString[i] := params.Pairs[i].JsonString.ToString;
arrString[i] := StringReplace(params.Pairs[i].JsonString.ToString, '"', '', [rfReplaceAll]);
//ShowMessage(arrString[i]);
end;
// ItemArry:= params.GetValue('jsonData') as TJSONArray;
s1 := TStringList.Create;
for i := 0 to length(arrString) - 1 do
begin
s1.Add(arrString[i]);
end;
s1.Sort;
for i := 0 to s1.Count - 1 do
begin
arrString1[i] := s1.Strings[i];
end;
TMPStr := TMPStr + app_secret;
for i := 0 to len - 1 do
begin
// TMPValue := params.GetValue(arrString1[i]).ToString;
// ShowMessage(arrString1[i]);
// ShowMessage(StringReplace(arrString1[i], '"', '''', [rfReplaceAll]));
TMP1 := StringReplace(arrString1[i], '"', '', [rfReplaceAll]);
// ShowMessage(TMP1);
// ShowMessage(params.ToString);
// ShowMessage(params.Values['jsonData'].ToString);
TMPValue := params.Values[TMP1].ToString;
if arrString1[i] <> 'jsonData' then
begin
TMPValue := StringReplace(TMPValue, '"', '', [rfReplaceAll]);
end;
if TMPValue <> '' then
begin
TMPStr := TMPStr + arrString1[i] + TMPValue;
end;
end;
TMPStr := TMPStr + app_secret;
//Application.MessageBox(PChar(TMPStr), '加密前', mrOk);
TMPMD5 := UpperCase(md5.GetHashString(TMPStr));
Result := TMPMD5;
end;
function getFormData(params: TJSONObject): string;
var
arrString, arrString1: array of string;
// ItemArry:TJSONArray;
len, i: Integer;
s1: TStringList;
TMPStr, TMPValue, formData, TMP1: string;
md5: THashMD5;
begin
len := params.Count;
SetLength(arrString, len);
SetLength(arrString1, len);
for i := 0 to len - 1 do
begin
// arrString[i] := params.Get(i).ToString;
//arrString[i] := params.Pairs[i].JsonString.ToString;
arrString[i] := StringReplace(params.Pairs[i].JsonString.ToString, '"', '', [rfReplaceAll]);
end;
// ItemArry:= params.GetValue('jsonData') as TJSONArray;
s1 := TStringList.Create;
for i := 0 to length(arrString) - 1 do
begin
s1.Add(arrString[i]);
end;
s1.Sort;
for i := 0 to s1.Count - 1 do
begin
arrString1[i] := s1.Strings[i];
end;
TMPStr := '';
for i := 0 to len - 1 do
begin
// TMPValue := params.GetValue(arrString1[i]).ToString;
TMP1 := StringReplace(arrString1[i], '"', '', [rfReplaceAll]);
if arrString1[i] <> 'jsonData' then
begin
TMPValue := StringReplace(params.Values[TMP1].ToString, '"', '', [rfReplaceAll]);//params.Values[TMP1].ToString;
end
else
begin
TMPValue := params.Values[TMP1].ToString;
end;
if TMPValue <> '' then
begin
if TMPStr <> '' then
TMPStr := TMPStr + '&';
TMPStr := TMPStr + arrString1[i] + '=' + TMPValue;
end;
end;
Result := TMPStr;
end;
---------------------------------------------------------------------------------------------------------------
对于数值类型就需要使用TJSONNumber了,TJSONNumber支持Double、Integer、Int64等。使用方法如下
uses Data.DBXJSON;
var
JSON: TJSONObject;
begin
JSON := TJSONObject.Create;
JSON.AddPair('Double', TJSONNumber.Create(123.456));
JSON.AddPair('Integer', TJSONNumber.Create(6789));
JSON.AddPair('string', TJSONNumber.Create('1000'));
Memo1.Lines.Text := JSON.ToString; //=> {"Double":123.456,"Integer":6789,"string":1000}
JSON.Free;
Boolean类型的值需要用到TJSONTrue和TJSONFalse。
uses System.JSON;
var
JSON: TJSONObject;
begin
JSON := TJSONObject.Create;
JSON.AddPair('真', TJSONTrue.Create);
JSON.AddPair('假', TJSONFalse.Create);
Memo1.Lines.Text := JSON.ToString; //=> {"真":true,"假":false}
JSON.Free;
---------------------
作者:苍穹帝
来源:CSDN
原文:https://blog.csdn.net/gjtao1130/article/details/78043988
版权声明:本文为博主原创文章,转载请附上博文链接!
文章浏览阅读1.3k次,点赞40次,收藏19次。虽然你不能直接计算每个房间的人数,但通过马尔科夫链的蒙特卡洛方法,你可以从任意状态(房间)开始采样,并最终收敛到目标分布(人数分布)。然后,根据一个规则(假设转移概率是基于房间的人数,人数较多的房间具有较高的转移概率),你随机选择一个相邻的房间作为下一个状态。比如在巨大城堡,里面有很多房间,找到每个房间里的人数分布情况(每个房间被访问的次数),但是你不能一次进入所有的房间并计数。但是,当你重复这个过程很多次时,你会发现你更有可能停留在人数更多的房间,而在人数较少的房间停留的次数较少。_马尔科夫链期望怎么求
文章浏览阅读3.9k次。一、su命令su命令用于切换当前用户身份到其他用户身份,变更时须输入所要变更的用户帐号与密码。命令su的格式为:su [-] username1、后面可以跟 ‘-‘ 也可以不跟,普通用户su不加username时就是切换到root用户,当然root用户同样可以su到普通用户。 ‘-‘ 这个字符的作用是,加上后会初始化当前用户的各种环境变量。下面看下加‘-’和不加‘-’的区别:root用户切换到普通..._限制su root登陆
文章浏览阅读1.2k次。精通VC与Matlab联合编程(六)作者:邓科下载源代码浅析VC与MATLAB联合编程浅析VC与MATLAB联合编程浅析VC与MATLAB联合编程浅析VC与MATLAB联合编程浅析VC与MATLAB联合编程 Matlab C/C++函数库是Matlab扩展功能重要的组成部分,包含了大量的用C/C++语言重新编写的Matlab函数,主要包括初等数学函数、线形代数函数、矩阵操作函数、数值计算函数_精通vc和matlab联合编程 六
文章浏览阅读128次。在MVC2中默认并没有实现DescriptionAttribute(虽然可以找到这个属性,通过阅读MVC源码,发现并没有实现方法),这很不方便,特别是我们使用EditorForModel的时候,我们需要对字段进行简要的介绍,下面来扩展这个属性。新建类 DescriptionMetadataProvider然后重写DataAnnotationsModelMetadataPro..._asp.net mvc 模型description
文章浏览阅读1.3k次。一.概述 本篇继续探讨web应用架构,讲基于DDD风格下最初的领域模型架构,不同于DDD风格下CQRS架构,二者架构主要区别是领域层的变化。 架构的演变是从领域模型到C..._eshoponweb
文章浏览阅读2.6w次,点赞23次,收藏85次。首先说明,本人之前没用过zookeeper、kafka等,尚硅谷十几个小时的教程实在没有耐心看,现在我也不知道分区、副本之类的概念。用kafka只是听说他比RabbitMQ快,我也是昨天晚上刚使用,下文中若有讲错的地方或者我的理解与它的本质有偏差的地方请包涵。此文背景的环境是windows,linux流程也差不多。 官网下载kafka,选择Binary downloads Apache Kafka 解压在D盘下或者什么地方,注意不要放在桌面等绝对路径太长的地方 打开conf_springboot kafka
文章浏览阅读1k次。编好水晶报表代码,用的是ActiveX模式,在本机运行,第一次运行提示安装ActiveX控件,安装后,一切正常,能正常打印,但发布到网站那边运行,可能是一闪而过,连提示安装ActiveX控件也没有,甚至相关的功能图标都不能正常显示,再点"打印图标"也是没反应解决方法是: 1.先下载"PrintControl.cab" http://support.businessobjects.c_水晶报表 不能打印
文章浏览阅读1.3k次。绝大部分UC/OS-II的源码是用移植性很强的ANSI C写的。也就是说某产品可以只使用很少几个UC/OS-II调用,而另一个产品则使用了几乎所有UC/OS-II的功能,这样可以减少产品中的UC/OS-II所需的存储器空间(RAM和ROM)。UC/OS-II是为嵌入式应用而设计的,这就意味着,只要用户有固化手段(C编译、连接、下载和固化), UC/OS-II可以嵌入到用户的产品中成为产品的一部分。1998年uC/OS-II,目前的版本uC/OS -II V2.61,2.72。1.UC/OS-Ⅱ简介。_ucos
文章浏览阅读614次,点赞22次,收藏11次。大家好,本文将围绕python自动化运维需要掌握的技能展开说明,python自动化运维从入门到精通是一个很多人都想弄明白的事情,想搞清楚python自动化运维快速入门 pdf需要先了解以下几个事情。这篇文章主要介绍了一个有趣的事情,具有一定借鉴价值,需要的朋友可以参考下。希望大家阅读完这篇文章后大有收获,下面让小编带着大家一起了解一下。_运维学python该学些什么
文章浏览阅读524次。2019独角兽企业重金招聘Python工程师标准>>> ..._hotfix for msxml 4.0 service pack 2 - kb832414
文章浏览阅读546次。python和易语言的脚本哪门更实用?_易语言还是python适合辅助
文章浏览阅读134次。详解redis中的锁以及使用场景,指令,事务,分布式,命令,时间详解redis中的锁以及使用场景易采站长站,站长之家为您整理了详解redis中的锁以及使用场景的相关内容。分布式锁什么是分布式锁?分布式锁是控制分布式系统之间同步访问共享资源的一种方式。为什么要使用分布式锁? 为了保证共享资源的数据一致性。什么场景下使用分布式锁? 数据重要且要保证一致性如何实现分布式锁?主要介绍使用redis来实..._redis setnx watch