技术标签: 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
版权声明:本文为博主原创文章,转载请附上博文链接!
文章浏览阅读3.3k次,点赞7次,收藏39次。CPU 执行现行程序的过程中,出现某些急需处理的异常情况或特殊请求,CPU暂时中止现行程序,而转去对异常情况或特殊请求进行处理,处理完毕后再返回现行程序断点处,继续执行原程序。void 函数名(void) interrupt n using m {中断函数内容 //尽量精简 }编译器会把该函数转化为中断函数,表示中断源编号为n,中断源对应一个中断入口地址,而中断入口地址的内容为跳转指令,转入本函数。using m用于指定本函数内部使用的工作寄存器组,m取值为0~3。该修饰符可省略,由编译器自动分配。_51单片机中断篇
文章浏览阅读396次。项目经验(案例一)项目时间:2009-10 - 2009-12项目名称:中驰别克信息化管理整改完善项目描述:项目介绍一,建立中驰别克硬件档案(PC,服务器,网络设备,办公设备等)二,建立中驰别克软件档案(每台PC安装的软件,财务,HR,OA,专用系统等)三,能过建立的档案对中驰别克信息化办公环境优化(合理使用ADSL宽带资源,对域进行调整,对文件服务器进行优化,对共享打印机进行调整)四,优化完成后..._网络工程师项目经历
文章浏览阅读1k次,点赞31次,收藏30次。LVS:Linux Virtual Server,负载调度器,内核集成, 阿里的四层SLB(Server Load Balance)是基于LVS+keepalived实现。NATTUNDR优点端口转换WAN性能最好缺点性能瓶颈服务器支持隧道模式不支持跨网段真实服务器要求anyTunneling支持网络private(私网)LAN/WAN(私网/公网)LAN(私网)真实服务器数量High (100)High (100)真实服务器网关lvs内网地址。
文章浏览阅读899次。https://www.toutiao.com/a6713171323893318151/作者 | 黄小邪/言有三编辑 | 黄小邪/言有三图像预处理算法的好坏直接关系到后续图像处理的效果,如图像分割、目标识别、边缘提取等,为了获取高质量的数字图像,很多时候都需要对图像进行降噪处理,尽可能的保持原始信息完整性(即主要特征)的同时,又能够去除信号中无用的信息。并且,降噪还引出了一..._噪声很大的图片可以降噪吗
文章浏览阅读152次。目录谨慎地覆盖cloneCloneable接口并没有包含任何方法,那么它到底有什么作用呢?Object类中的clone()方法如何重写好一个clone()方法1.对于数组类型我可以采用clone()方法的递归2.如果对象是非数组,建议提供拷贝构造器(copy constructor)或者拷贝工厂(copy factory)3.如果为线程安全的类重写clone()方法4.如果为需要被继承的类重写clone()方法总结谨慎地覆盖cloneCloneable接口地目的是作为对象的一个mixin接口(详见第20_为继承设计类有两种选择,但无论选择其中的
文章浏览阅读958次,点赞21次,收藏24次。今天学长向大家分享一个毕业设计项目基于协同过滤的电影推荐系统项目运行效果:项目获取:https://gitee.com/assistant-a/project-sharing21世纪是信息化时代,随着信息技术和网络技术的发展,信息化已经渗透到人们日常生活的各个方面,人们可以随时随地浏览到海量信息,但是这些大量信息千差万别,需要费事费力的筛选、甄别自己喜欢或者感兴趣的数据。对网络电影服务来说,需要用到优秀的协同过滤推荐功能去辅助整个系统。系统基于Python技术,使用UML建模,采用Django框架组合进行设
文章浏览阅读614次。10G SFP+光模块被广泛应用于10G以太网中,在下一代移动网络、固定接入网、城域网、以及数据中心等领域非常常见。下面易天光通信(ETU-LINK)就为大家一一盘点下10G SFP+光模块都有哪些吧。一、10G SFP+双纤光模块10G SFP+双纤光模块是一种常规的光模块,有两个LC光纤接口,传输距离最远可达100公里,常用的10G SFP+双纤光模块有10G SFP+ SR、10G SFP+ LR,其中10G SFP+ SR的传输距离为300米,10G SFP+ LR的传输距离为10公里。_10g sfp+
文章浏览阅读239次。该项目含有源码、文档、程序、数据库、配套开发软件、软件安装教程。欢迎交流项目运行环境配置:项目技术:Express框架 + Node.js+ Vue 等等组成,B/S模式 +Vscode管理+前后端分离等等。环境需要1.运行环境:最好是Nodejs最新版,我们在这个版本上开发的。其他版本理论上也可以。2.开发环境:Vscode或HbuilderX都可以。推荐HbuilderX;3.mysql环境:建议是用5.7版本均可4.硬件环境:windows 7/8/10 1G内存以上;_基于vue美食网站源码
文章浏览阅读62次。oldwain随便写@hexun链接:http://oldwain.blog.hexun.com/ ...
文章浏览阅读843次,点赞16次,收藏22次。用这个工具扫描其它网站时,要注意法律问题,同时也比较慢,所以我们以之前写的登录页面为例子扫描。_sqlmap拖库
文章浏览阅读1.5w次,点赞5次,收藏38次。Origin也能玩转图片的拼接组合排版谭编(华南师范大学学报编辑部,广州 510631)通常,我们利用Origin软件能非常快捷地绘制出一张单独的绘图。但是,我们在论文的撰写过程中,经常需要将多种科学实验图片(电镜图、示意图、曲线图等)组合在一张图片中。大多数人都是采用PPT、Adobe Illustrator、CorelDraw等软件对多种不同类型的图进行拼接的。那么,利用Origin软件能否实..._origin怎么把三个图做到一张图上
文章浏览阅读4.2k次,点赞4次,收藏51次。51单片机智能电风扇控制系统仿真设计( proteus仿真+程序+原理图+报告+讲解视频)仿真图proteus7.8及以上 程序编译器:keil 4/keil 5 编程语言:C语言 设计编号:S0042。_电风扇模拟控制系统设计