求助，怎么用delphi操作Json文件转成数据库 - delphi吧

level 6

小凹凸曼小怪楼主

卡了两天了，一搜全是JAVA的，有没有好心人救救狗命 [泪]

2021年09月08日 06点09分 1

level 1

JacenHe

最近刚好研究了一下 Delphi 操作 JSON ，老实说静态语言不太适合干这事会很吃力，可以用 aardio 操作 JSON 写入数据库比较省事，而且 aardio 也可以调用 Delphi 或嵌入 Delphi 控件。

2021年09月09日 11点09分 2

小凹凸曼小怪

老哥能不能给个传送门，我去学习一下 [捂嘴笑]

2021年09月09日 12点09分

JacenHe

@小凹凸曼小怪百度一下 aardio 就有了，发不了网址，参考 aardio 自带的「 aardio 范例 -> 调用其他语言 -> Delphi 」以及「 aardio 范例 -> Web 应用 -> JSON 」

2021年09月09日 16点09分

level 12

ayi033

用superobject就行了，网上全是源码
function DecodeS2CJsonToHead(const src:String; var head:TERP_S2C_Head; var jsonobj:ISuperObject):Boolean;
var
mainobj:ISuperObject;
begin
Result := False;
try
mainobj := SO(src);
if (mainobj <> nil) then
begin
head.seq_no := mainobj.I['seq_no'];
head.checked := mainobj.B['checked'];
if mainobj.O['msg_type'] = nil then
head.msg_type := -1
else
head.msg_type := mainobj.I['msg_type'];
head.broker := mainobj.S['broker'];
head.account := mainobj.S['account'];
jsonobj := mainobj;
result := True;
end;
except
Result := false;
end;
end;
简单方便

2021年09月11日 07点09分 3

小凹凸曼小怪

谢谢老哥

2021年09月23日 14点09分