技术标签: 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
版权声明:本文为博主原创文章,转载请附上博文链接!
文章浏览阅读1w次,点赞2次,收藏27次。来源:机器人小妹 很多时候企业拥有重复,乏味且困难的工作流程,这些流程往往会减慢生产速度并增加运营成本。为了降低生产成本,企业别无选择,只能自动化某些功能以降低生产成本。 通过数字化..._人工智能平台
文章浏览阅读2.2k次。热加载能够在每次保存修改的代码后自动刷新 electron 应用界面,而不必每次去手动操作重新运行,这极大的提升了开发效率。安装 electron 热加载插件热加载虽然很方便,但是不是每个 electron 项目必须的,所以想要舒服的开发 electron 就只能给 electron 项目单独的安装热加载插件[electron-reloader]:// 在项目的根目录下安装 electron-reloader,国内建议使用 cnpm 代替 npmnpm install electron-relo._electron-reloader
文章浏览阅读942次。在11.0 进行定制化开发,会根据需要去掉recovery模式的一些选项 就是在device.cpp去掉一些选项就可以了。_android recovery 删除 部分菜单
文章浏览阅读3.7k次。https://www.yuque.com/mnn/cn/cvrt_linux_mac基础依赖这些依赖是无关编译选项的基础编译依赖• cmake(3.10 以上)• protobuf (3.0 以上)• 指protobuf库以及protobuf编译器。版本号使用 protoc --version 打印出来。• 在某些Linux发行版上这两个包是分开发布的,需要手动安装• Ubuntu需要分别安装 libprotobuf-dev 以及 protobuf-compiler 两个包•..._mnn 编译linux
文章浏览阅读1.8k次。CSS3新增动画属性“@-webkit-keyframes”,从字面就可以看出其含义——关键帧,这与Flash中的含义一致。利用CSS3制作动画效果其原理与Flash一样,我们需要定义关键帧处的状态效果,由CSS3来驱动产生动画效果。下面讲解一下如何利用CSS3制作淡入淡出的动画效果。具体实例可参考刚进入本站时的淡入效果。1. 定义动画,名称为fadeIn@-webkit-keyf_css3入场效果淡入淡出
文章浏览阅读2.8k次。计算机系统应包括硬件和软件两个子系统,硬件和软件又必须依次分别包括中央处理器和系统软件。按人的要求接收和存储信息,自动进行数据处理和计算,并输出结果信息的机器系统。计算机是脑力的延伸和扩充,是近代科学的重大成就之一。计算机系统由硬件(子)系统和软件(子)系统组成。前者是借助电、磁、光、机械等原理构成的各种物理部件的有机组合,是系统赖以工作的实体。后者是各种程序和文件,用于指挥全系统按指定的要求进行..._计算机系统包括硬件系统和软件系统 软件又必须包括
文章浏览阅读7.9k次,点赞3次,收藏22次。一 定义这是最早出现的置换算法。该算法总是淘汰最先进入内存的页面,即选择在内存中驻留时间最久的页面予以淘汰。该算法实现简单,只需把一个进程已调入内存的页面,按先后次序链接成一个队列,并设置一个指针,称为替换指针,使它总是指向最老的页面。但该算法与进程实际运行的规律不相适应,因为在进程中,有些页面经常被访问,比如,含有全局变量、常用函数、例程等的页面,FIFO 算法并不能保证这些页面不被淘汰。这里,我_进程调度fifo算法代码
文章浏览阅读133次。rownum是oracle才有的写法,rownum在oracle中可以用于取第一条数据,或者批量写数据时限定批量写的数量等mysql取第一条数据写法SELECT * FROM t order by id LIMIT 1;oracle取第一条数据写法SELECT * FROM t where rownum =1 order by id;ok,上面是mysql和oracle取第一条数据的写法对比,不过..._mysql 替换@rownum的写法
文章浏览阅读790次,点赞3次,收藏4次。官网下载下载链接:http://www.eclipse.org/downloads/点击Download下载完成后双击运行我选择第2个,看自己需要(我选择企业级应用,如果只是单纯学习java选第一个就行)进入下一步后选择jre和安装路径修改jvm/jre的时候也可以选择本地的(点后面的文件夹进去),但是我们没有11版本的,所以还是用他的吧选择接受安装中安装过程中如果有其他界面弹出就点accept就行..._ecjelm
文章浏览阅读245次。原文链接:https://linux.cn/article-7801-1.htmlifconfigping <IP地址>:发送ICMP echo消息到某个主机traceroute <IP地址>:用于跟踪IP包的路由路由:netstat -r: 打印路由表route add :添加静态路由路径routed:控制动态路由的BSD守护程序。运行RIP路由协议gat..._ifconfig 删除vlan
文章浏览阅读224次。reduxredux里要求把数据都放在公共的存储区域叫store里面,组件中尽量少放数据,假如绿色的组件要给很多灰色的组件传值,绿色的组件只需要改变store里面对应的数据就行了,接着灰色的组件会自动感知到store里的数据发生了改变,store只要有变化,灰色的组件就会自动从store里重新取数据,这样绿色组件的数据就很方便的传到其它灰色组件里了。redux就是把公用的数据放在公共的区域去存..._redux redis
文章浏览阅读2.2k次,点赞3次,收藏6次。unzip版本不支持4G以上的压缩包所以要使用p7zip:Linux一个高压缩率软件wget http://sourceforge.net/projects/p7zip/files/p7zip/9.20.1/p7zip_9.20.1_src_all.tar.bz2tar jxvf p7zip_9.20.1_src_all.tar.bz2cd p7zip_9.20.1make && make install 如果安装失败,看一下报错是不是因为没有下载gcc 和 gcc ++(p7_linux 7za解压中文乱码