Delphi7 idhttpserver Post Json

2024年8月6日 31 条评论

万万没想到，多年以后还会重新写 delphi 7 的代码。当然，代码不是全部都是自己写的，在原有的 demo 的基础上增加了一些功能。

其中，有一个需求就是需要能够远程接收 http post 的请求，请求方式是 post，数据格式是 json。然而，多年不写代码，在网上随便一搜，搜到的代码感觉都是同一个地方抄来抄去实现的，在处理 poststream 的时候都会出问题。

直到翻到了下面的代码，https://www.cnblogs.com/yangxuming/p/12462459.html

1 procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
 2 var
 3   tmp: UTF8String; //也可以是 array of AnsiChar; 不能用RawByteString或 widestring
 4   tmpstr: string;
 5   size: Integer;
 6   JSONObject: TJSONObject; // JSON类
 7   i: Integer;
 8   jo: ISuperObject;
 9 begin
10   size := ARequestInfo.PostStream.size;
11   SetLength(tmp, size);
12   ARequestInfo.PostStream.Position := 0;
13   ARequestInfo.PostStream.ReadBuffer(tmp[1], size); //tmp为array of AnsiChar时为tmp[0]
14   tmpstr := UTF8ToString(tmp);
15 
16   jo := SO(tmpstr);
17   Memo1.Lines.Add(jo['test'].AsString);
18 20   kbmMemTable1.Append;
21   kbmMemTable1.FieldByName('test').AsString := jo['test'].AsString;
22   kbmMemTable1.Post;
23 
24 //  Memo1.Lines.Add(ExtractFilePath(Application.ExeName) + 'testPrint.fr3');
25 
26   frxReport1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'testPrint.fr3');
27   frxReport1.PrintOptions.ShowDialog := false;
28   frxReport1.ShowProgress := False;
29   frxReport1.PrepareReport;
30   frxReport1.Print;
31 
32 //  JSONObject := TJSONObject.ParseJSONValue(Trim(tmpstr)) as TJSONObject;
33 //  for i := 0 to JSONObject.Count - 1 do
34 //    Memo1.Lines.Add(JSONObject.Pairs[i].JsonString.ToString + '=' +
35 //      JSONObject.Pairs[i].JsonValue.ToString);
36 end;

这里的处理逻辑是争取的，poststream 貌似不能直接将 stream 转换为 stringstream 或者 memorystream，在后续的转换过程中会出错，当然，也可能是由于 stream 的Position位置异常导致的。

另外一个问题就是处理 json，网上的代码多数都是一笔带过，但是这个一笔带过就很烦人，找个可用的 json 库也比较麻烦，TJSONObject这个东西，看很多代码说都是内置的，但是实际在使用的时候，会提示找不到这个类。

所以，可以借助第三方的 json 库，例如https://github.com/frostney/superobject

通过这个东西来解析 json 就简单多了：

var
  obj: ISuperObject;
begin
  obj := SO('{"foo": true}');
  obj := TSuperObject.ParseString('{"foo": true}');
  obj := TSuperObject.ParseStream(stream);
  obj := TSuperObject.ParseFile(FileName);
end;

val := obj.AsObject.S['foo']; // get a string
 val := obj.AsObject.I['foo']; // get an Int64
 val := obj.AsObject.B['foo']; // get a Boolean
 val := obj.AsObject.D['foo']; // get a Double
 val := obj.AsObject.O['foo']; // get an Object (default)
 val := obj.AsObject.M['foo']; // get a Method
 val := obj.AsObject.N['foo']; // get a null object

现在 ai 生成的代码质量的确也是个问题，这些小众（当前）语言生成的效果就更差了。

☆版权☆

* 网站名称：obaby@mars
* 网址：https://oba.by/
* 个性：https://oba.by/
* 本文标题：《Delphi7 idhttpserver Post Json》
* 本文链接：https://oba.by/2024/08/17770
* 短链接：https://oba.by/?p=17770
* 转载文章请标明文章来源，原文标题以及原文链接。请遵从《署名-非商业性使用-相同方式共享 2.5 中国大陆 (CC BY-NC-SA 2.5 CN) 》许可协议。

Delphi json

Previous Post Next Post

obaby

爱好广泛的火星小妖精，有问题欢迎留言交流啊~(✪ω✪) 爬虫类工具请先点击这个链接查看用法https://oba.by/?p=12240 闺蜜圈APP下载 https://guimiquan.cn

31 comments

dujun说道：

2024年8月6日 17:14

Google Chrome 127 Mac OS X 10.15 中国–浙江–杭州联通
太久远了，找不到人维护了，能不动就不动。

回复
1. obaby说道：
  
  2024年8月6日 17:23
  
  Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
  给的编译的 32 位的 dll，java 加载不了，不知道神马情况。就 delphi 的代码能加载，并且功能目前看起来还算正常。
  
  回复
joojenZhou说道：

2024年8月6日 19:20

Microsoft Edge 127 Windows 10 中国–江苏–苏州联通
delphi ，好多年没听过这个名字了

回复
1. obaby说道：
  
  2024年8月6日 19:21
  
  Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
  可不，上古时期了得追溯到
  
  回复
似水流年说道：

2024年8月7日 00:03

IBrowse r Android 12 中国–河南–漯河电信
家里到现在还放了一本这个语言教程。

回复
1. obaby说道：
  
  2024年8月7日 08:57
  
  Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
  毕竟过时了，想在辉煌也难
  
  回复
LiuShen说道：

2024年8月7日 00:41

Google Chrome 127 Windows 11 中国–陕西–西安联通
看不懂，根本看不懂，连标题是啥都不知道😥😥😥😥

回复
1. LiuShen说道：
  
  2024年8月7日 00:42
  
  Google Chrome 127 Windows 11 中国–陕西–西安联通
  欸，我把地址填成我主站之后，是不是集美们的标签就没了
  
  回复
  1. obaby说道：
    
    2024年8月7日 08:56
    
    Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
    是哒，两个地址有啥区别？
    
    回复
    1. LiuShen说道：
      
      2024年8月7日 11:43
      
      Google Chrome 127 Windows 11 中国–陕西–宝鸡–岐山县联通
      一个是根域名下的主页站，一个是我的博客站
      
      回复
      1. obaby说道：
        
        2024年8月7日 13:16
        
        Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
        根域名的这个站速度略慢
        
        回复
        
        LiuShen说道：
        
        2024年8月7日 13:18
        
        Google Chrome 127 Windows 11 中国–陕西–宝鸡–岐山县联通
        不会吧？我挂了国内cdn的呀？
        ![](https://i.p-i.vip/30/20240807-66b3039fc168a.webp)
        
        回复
        
        obaby说道：
        
        2024年8月7日 13:26
        
        Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
        第一次加载尤其慢，后续加载全部完成也需要 20s。
        
        回复
        
        LiuShen说道：
        
        2024年8月7日 13:29
        
        Google Chrome 127 Windows 11 中国–陕西–宝鸡–岐山县联通
        emmm，俺也不知道为啥，可能是因为我做了国内外分流，一不小心分到国外节点了😥😥我这里打开还蛮快的😗
        
        回复
刘郎说道：

2024年8月7日 06:37

IBrowse r Android 9 中国–甘肃–兰州移动
AI可以驯化但不能代替至于用它生成代码嘛只有看个人的优化了哈哈
好的代码就是能反复利用的将别人的东西变成自己的然后加上自己的优化让他变成自己的东西有用的东西

回复
1. obaby说道：
  
  2024年8月7日 08:58
  
  Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
  驯化也是越普遍的效果越好，样本太小了效果就比较差了
  
  回复
  1. 刘郎说道：
    
    2024年8月7日 09:02
    
    IBrowse r Android 9 中国–甘肃–兰州移动
    是的
    
    回复
  2. 刘郎说道：
    
    2024年8月7日 09:02
    
    IBrowse r Android 9 中国–甘肃–兰州移动
    是的
    
    回复
姜先森说道：

2024年8月7日 07:19

Firefox 115 Windows 7 中国–湖北–武汉电信
写完技术文章能不能说两句大白话，不然想证明自己来过都不知道说啥好，总不能夸代码里的字母好看吧？

回复
1. obaby说道：
  
  2024年8月7日 08:58
  
  Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
  不要在意这些细节～～
  
  回复
2. 爱看说道：
  
  2024年8月7日 09:21
  
  Microsoft Edge 126 Windows 10 美国–加利福尼亚州–洛杉矶–洛杉矶 CNSERVERS_LLC
  虽然是古早语言，但可以夸丝、夸腿啊
  
  回复
三十里海河说道：

2024年8月7日 11:28

Chrome 127 iPhone iOS 17.6 中国–山东–济宁电信
看不懂…就觉得女程序员特别帅

回复
棋说道：

2024年8月7日 11:42

IBrowse r Android 12 中国–辽宁–沈阳–沈河区电信
女程序员😍

回复
小彦说道：

2024年8月7日 12:16

Microsoft Edge 126 Windows 11 中国–广东–珠海电信
所有公司里的项目，在赚钱的都是老旧项目，不赚钱的都是新开发的项目，无解

回复
1. obaby说道：
  
  2024年8月7日 13:17
  
  Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
  有能赚钱的就行了
  
  回复
2. 游钓四方说道：
  
  2024年8月7日 15:26
  
  Google Chrome 127 Windows 10 中国–香港–九龙半岛–油尖旺区-尖沙咀 Cogent
  维护屎山，多挣钱。销售左脚踩右脚都能上市
  
  回复
  1. 小彦说道：
    
    2024年8月7日 18:22
    
    WebView 4 Android 12 中国–广东–广州电信
    屎山代码，很吃香
    
    回复
万有引力说道：

2024年8月8日 17:19

Google Chrome 124 Windows 10 中国–山东–青岛联通
Delphi7 我一直以为是数据库。刚才仔细一看也是开发工具。

回复
1. obaby说道：
  
  2024年8月8日 17:28
  
  Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
  是的 ide，现在不是这个叫法了，叫做Embarcadero Delphi XE7
  
  回复
keyle说道：

2024年8月14日 19:10

Google Chrome 111 Windows 10 中国–上海–上海电信
我看传奇的项目还在用Delphi。我游戏行业的

回复
1. obaby说道：
  
  2024年8月14日 19:14
  
  Google Chrome 126 Mac OS X 10.15 中国–山东–青岛联通
  毕竟这游戏也足够老了，用 delphi 也正常
  
  回复