1200 可以通过TCP 封装 HTTP,    HTTP  数据部分 通过字符串拼接 JSON  数据   参考一下例子：
//  HTTP 头部封装

"Comm".DataSendString[1] := 'POST IP:PORT/rcms/services/rest/hikRpcService/qenAqySchedulingTask HTTP/1.1$R$L';

"Comm".DataSendString[2] := 'Accept-Encoding: identity$R$L';

"Comm".DataSendString[3] := 'Content-Type: application/json';

"Comm".DataSendString[4] := '$R$L'; 

"Comm".DataSendString[5] := CONCAT(IN1 := 'Content-Length: ', IN2 := #ContentLength);

"Comm".DataSendString[6] := '$R$L';  

"Comm".DataSendString[7] := '$R$L';  

//以下是数据部分

"Comm".DataSendString[8] := '{ $R$L'; 
"Comm".DataSendString[9] := '"reqCode":"468513" $R$L'; 

"Comm".DataSendString[10] := '"reqTime":"" $R$L'; 

"Comm".DataSendString[11] := '"clientCode":"" $R$L'; 
。。。。。。。