技术标签: 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
版权声明:本文为博主原创文章,转载请附上博文链接!
文章浏览阅读5.8k次,点赞3次,收藏48次。存储系统及存储器概述。
文章浏览阅读310次。鸿蒙2.0系统现在是比较的火的,那么这个系统它怎么样呢?鸿蒙2.0这款系统是来自哪家品牌呢?相信很多小伙伴会有这样的疑问吧。那么我们就一起来了解一下吧。1.鸿蒙2.0系统是什么官方介绍“鸿蒙系统(HongmengOS)是一款“面向未来”的操作系统,一款基于微内核的面向全场景的分布式操作系统,现已适配智慧屏,未来它将适配手机、平板、电脑、智能汽车、可穿戴设备等多终端设备“。可以看到这是一场大的布局,..._什么是鸿蒙2.0
文章浏览阅读293次。Java面试笔试面经、Java技术每天学习一点Java面试关注不迷路作者:莫那·鲁道来源:http://thinkinjava.cn/前言随着业务发展越来越快,数据量越来越多,用户也越来..._异地存活java
文章浏览阅读896次,点赞3次,收藏4次。一、根据友盟官网的介绍引入依赖dependencies { implementation fileTree(include:['*.jar'], dir:'libs') // 下面各SDK根据宿主App是否使用相关业务按需引入。 // 友盟统计SDK implementation 'com.umeng.umsdk:common:9.4.7'// 必选 implementation 'com.umeng.umsdk:asms:1.4.1'// 必选 _apk文件中友盟appkey
文章浏览阅读4.2k次,点赞17次,收藏37次。目录1 前言2 交叉熵的实现过程3完整的自定义交叉熵4.使用自己one-hot的交叉熵1 前言楼主最近要修改一下one-hot然后送入交叉熵中,由于pytorch的torch.nn.CrossEntropyLoss()已经封装好了one-hot,所以需要自定义重写交叉熵,这里主要是多级交叉熵,而不是二分类交叉熵。2 交叉熵的实现过程首先看多级交叉熵的计算过程:L=−1N∑iN∑c=1Myiclog(pic)L = -\frac{1}{N}\displaystyle\sum_i^N\display_torch cross_entropy onehot
文章浏览阅读890次。Android O对应用在后台运行时可以执行的操作施加了限制,称为后台执行限制(Background Execution Limits),这可以大大减少应用的内存使用和耗电量,提高用户体验。后台执行限制分为两个部分:后台服务限制(Background Service Limitations)、广播限制(BroadcastLimitations)。后台服务限制如何才算是后台应用?除了下面情况外都是后..._android 后台数据 多长时间生效
文章浏览阅读120次。第六届中国云计算大会于2014年5月20-23日在北京国家会议中心拉开帷幕。本次大会立足实践,以国际化的视野,帮助与会者了解全球云计算技术的发展趋势;从应用出发,探讨交通、医疗、教育、金融、制造、数字娱乐等行业领域的实践经验;并通过技术专场、产品发布和培训课程等方式,深度剖析云计算大数据的核心技术。Facebook公司开源技术CTO John Ke...
文章浏览阅读484次。本文从用户需求满足的使用场景出发,从市场背景、产品逻辑、产品需求和产品功能几个方面对“拍摄编辑”功能展开了分析,探讨“拍摄编辑”功能在功能和策略方面的迭代优化,与大家分享。五年前,我想做视频字幕,需要把视频录制好并上传到电脑然后打开PR每分每秒的添加字幕,花费一小时甚至更长时间。今天,我只需要打开一个APP的自动字幕功能,几秒就可以搞定。现在,人人都可以是视频大师。01 分析目的目前内容类产品(长..._在线课程拍摄 需求分析方案怎么写
文章浏览阅读3.5k次。电商app支持手机充值现在很多的电商app都是支持手机充值的,我们公司也实现了这个功能。功能很简单,写文章主要是为了记录,没有什么技术难点。获取手机充值配置页面加载的时候,需要展示一个默认运营商的手机充值配置,我们公司默认的是联通的配置。获取配置的接口可以写在onload函数中。函数触发流程:先判断公司是否有可用余额,这是一个接口。在获取默认联通的手机配置信息,并渲染。获取手机运营商获取手机运营商的信息,一般都是通过手机号前3位或者前4位,所以统一一下,当手机位数超过4位时,进行手_uniapp 充值页面
文章浏览阅读1w次,点赞3次,收藏22次。一、在PyCharm/IDEA等工具中安装.ignore插件忽略不必要提交的文件在使用Pycharm或者IDEA时,git提交项目到本地仓库的时候,会把类似下面代码提交,不要将多余的代码提交,类似用IDE工具写代码的时候,会默认生成配置文件 编译的时候会生成本地编译后的target文件 单位测试后会生成test文件 本地的log日志文件这里面放的是一些项目的配置信息,包括历史记录..._idea workspace.xml不提交
文章浏览阅读2.7k次。由于项目需要,我仅有MDF和LDF文件,使用第三方工具进行导入数据库。1.采用windows连接2.新建查询:EXEC sp_attach_db @dbname = '你的数据库名', @filename1 = 'mdf文件路径(包缀名)', @filename2 = 'Ldf文件路径(包缀名)'例如 :EXEC sp_attach_..._navicat sqlserver mdf文件
文章浏览阅读854次,点赞30次,收藏29次。优先级决定了进程享受资源的前后,如果进程的优先级很小,调度器cpu在短时间内较大概率会频繁的调度这个进程,导致调度不太平衡,导致优先级高的优先得到资源,后续还有源源不断的进程产生,最后会导致常规进程很难得到cpu资源,意味着这个进程很长时间不被调度,作为一个要运行的进程,变得很卡顿,而其他优先级高的进程很快就跑完了,所以,这种情况称之为“进程饥饿”,就像去打饭长由于被插队长时间打不到饭。为什么需要运行队列,cpu只有一个。当前进程的信息都在寄存器保存,如果进程运行时间片到了,进程切换时,将临时数据带走,