摘要：
本来用superobject来解析JSON已经够用了，可惜这个东东不能在移动端使用，于是找到QJSON来处理。 这是一个国内高手写开源免费的东西，赞一个。 假入数据如下： {"message":"ok","status":"1","state":"3","data":[{"time":"2012-0 阅读全文
摘要：
出现这种问题的原因是由于访问的 URL地址为https或存在其跳转地址为https。 首先单纯使用idhttp是只能访问http，而https则需要搭配IdSSLIOHandlerSocketOpenSSL来实现对https的访问支持，当然还需要在系统目录或编译目标程序的同目录下有ssleay32. 阅读全文
摘要：
XLSReadWriteII是一个读写Excel的组件。他的一般已用只要按照Demo操作基本都能实现，只要不是非常复杂的应用，XLSReadWriteII还是能够胜任的。 最近被派了一个写入图库的应用，图库是Gallery2图库，本身支持自定义字段功能，原始文件是一个排版完整的Excel表格，程序的 阅读全文
摘要：
如果用的delphi在你的单元里用uses midaslib这个东西就可以把midas静态连接到你的程序楼上的也可以 在程序中使用winexec("regsvr32.exe midas.dll",SW_NORMAL);注册midas组件 可能是注册表中记录的<path>midas.dll不存在，可以 阅读全文
摘要：
cxGrid导出到Excel，对于Currency类型总是加上了货币符号，可以修改导出文件设置来去掉： 在cxXLSExport.pas文件中，修改： 阅读全文
摘要：
SQL Server 2005 为 SQL Server 启用 TCP/IP 后，数据库引擎将侦听连接点上是否有传入的连接（由 IP 地址和 TCP 端口号组成）。下列步骤将创建一个表格格式数据流 (TDS) 端点，以便 SQL Server 侦听其他 TCP 端口。 创建第二个 TDS 端点的可能 阅读全文
摘要：
测试数据提前加入 Memo1 中: 代码文件: 窗体文件: 来源：https://www.cnblogs.com/del/archive/2009/10/23/1588690.html https://www.cnblogs.com/del/category/215158.html 阅读全文
摘要：
1、通过delphi程序访问PHP事先写好的webservice（查询功能），webservice返回json格式数据。 2、通过superobject读取json数据 得到效果如下： https://blog.csdn.net/mpqz1065ok/article/details/80767305 阅读全文
摘要：
这里主要说的是中文乱码的问题 1. 发过去的是乱码如下处理, 服务器采用的是UFT-8编码的情况下 uses HTTPApp; sPost := HTTPEncode(UTF8Encode('中文处理')); 2. 返回的是乱码如下处理 ResponseStream:=TStringstream.C 阅读全文
摘要：
https://www.cnblogs.com/del/archive/2011/12/30/2307965.html 阅读全文
摘要：
idHTTP 向网站发送json格式数据 发送普通格式 https://bbs.csdn.net/topics/390551578 阅读全文
摘要：
在HTTP请求中，get方法是默认的，但在URL地址长度是有限的，请求方法能传送的数据也是有限的，一般get方法传递的数据不能大于2KB，当get请求方法传递的数据长度不能满足需求时，就需要采用另一种请求方法post，读取post方法传递过来的数据时，需要采用form方法来获取；post方法提交请求 阅读全文
摘要：
HTTP 400 错误 : 请求无效 (Bad request); 出现这个没有进入到后台服务里； 原因： 1.前端提交数据的字段名称或者是字段类型和后台的实体类不一致，导致无法封装； 2.前端提交的到后台的数据应该是json字符串类型，而前端没有将对象转化为字符串类型； 阅读全文
摘要：
Delphi XE10，Json 生成和解析，再利用indyhttp控件Post 2017年09月20日 18:30:23 阅读数：1973 --不多说，直接上代码 procedure TFrmMain.Brand; var JSONObject, jsonparam: TJSONObject; // JSON类 jsonArray: TJSONArray; // JSON数组变量 ... 阅读全文
摘要：
uses superobject; procedure TForm1.FormCreate(Sender: TObject); var aJson: ISuperObject; aSuperArray: TSuperArray; i:Integer; begin {1、赋初值} aJson:=SO('{"zoo":"涂磊动物园","animals":[{"name":"猴子... 阅读全文