//功能描述:线上订货系统订单提交时检查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;
1