Delphi XE开发HTTPSERVER服务+源码+测试可用

//功能描述：线上订货系统订单提交时检查ERP系统库存 //项目背景：因线上订货系统不支持PTO模式（商品有BOM），ERP系统支持，订单提交时需要检查ERP系统中子件库存是否够 //关键字：Delphi XE8、HTTPSERVER、application/json //服务程序运行了几个月，基本正常，偶尔会出现异步操作异常（因所有连接都是共享同一个ado连接的原因） //以下部分关键代码供参考; TMainForm = class(TForm) IdHTTPServer: TIdHTTPServer; StartServerBtn: TSpeedButton; StopServerBtn: TSpeedButton; Label1: TLabel; IPED: TEdit; Label2: TLabel; PortED: TEdit; Timer1: TTimer; HintLabel: TLabel;