Delphi-HTTP通讯及JSON解析
HTTP POST 请求函数 HttpPost
此函数用于发送带有JSON内容的POST请求到指定的URL，并接收服务器响应。它包括了必要的异常处理，确保在遇到错误时可以记录日志。
-
参数：
sUrl：目标URL。sJson：要发送的JSON格式字符串。
-
返回值：从服务器接收到的响应文本（通常也是JSON格式）。
-
关键点：
- 使用
TStringStream将JSON字符串转换为流，以便可以通过TIdHTTP.Post方法发送。 - 设置了适当的请求头信息，确保服务器知道我们发送的是JSON数据。
- 包含了连接超时设置 (
ConnectTimeout) 和字符编码配置 (ContentType,Accept,CharSet)，以保证正确的数据传输。 - 异常处理机制，确保任何网络或协议错误都能被捕获并记录下来。
- 使用
HTTP GET 请求函数 HttpGet
此函数用于发起GET请求并获取服务器返回的数据。它的结构与 HttpPost 类似，但不需要传递额外的数据体。
-
参数：
sUrl：目标URL。
-
返回值：从服务器接收到的响应文本。
-
关键点：
- 同样设置了请求头来指定接受的内容类型。
- 提供了相同的异常处理逻辑。
JSON 解析函数 GetProduceId
该函数演示了如何调用 HttpPost 函数并与后端服务交互以获取产品ID。它还展示了如何解析返回的JSON响应。
-
参数：
cName：可能用于标识客户端或其他上下文信息（未在代码中使用）。localComm：可能是某种通信接口或配置对象（未在代码中使用）。
-
返回值：根据需要返回特定值（当前为空）。
-
关键点：
- 构造了一个JSON字符串作为请求体的一部分。
- 调用了
HttpPost发送请求并接收响应。 - 使用
TJSONObject.ParseJSONValue方法将响应字符串解析为TJSONObject对象。 - 检查响应中的
code字段是否表示成功（假设0000是成功的状态码）。
POST
function HttpPost(sUrl, sJson: string): string;
varJsonToSend: TStringStream;idHttp1: TIdHTTP;
beginEnterCriticalSection(gPostCritDML);tryJsonToSend := TStringStream.Create(sJson, TEncoding.UTF8);Result := '';tryidHttp1 := TIdHTTP.Create(nil);idHttp1.HTTPOptions := [hoKeepOrigProtocol, hoForceEncodeParams];idHttp1.ConnectTimeout := 2000;idHttp1.Response.ContentType := 'application/json;charset=utf-8';idHttp1.Request.Accept := 'application/json;charset=utf-8';idHttp1.Request.ContentType := 'application/json;charset=utf-8';idHttp1.Request.CharSet := 'utf-8';tryResult := idHttp1.Post(sUrl, JsonToSend);excepton E: Exception dobeginSaveLogMsg('与后台服务通讯异常！' + e.Message);end;end;finallyFreeAndNil(JsonToSend);end;finallyidHttp1.Free;LeaveCriticalSection(gPostCritDML);end;
end;sJson是JSON格式的字符串，例如：sJson := '{"factoryTag":"02","num":1}'
GET
function HttpGet(sUrl: string): string;
varidHttp1: TIdHTTP;
beginEnterCriticalSection(gGetCritDML);tryResult := '';idHttp1 := TIdHTTP.Create(nil);idHttp1.HTTPOptions := [hoKeepOrigProtocol, hoForceEncodeParams];idHttp1.ConnectTimeout := 2000;idHttp1.Response.ContentType := 'application/json;charset=utf-8';idHttp1.Request.Accept := 'application/json;charset=utf-8';idHttp1.Request.ContentType := 'application/json;charset=utf-8';idHttp1.Request.CharSet := 'utf-8';tryResult := idHttp1.Get(sUrl);excepton E: Exception dobeginSaveLogMsg(sUrl);SaveLogMsg('与后台服务通讯异常！' + e.Message);end;end;finallyidHttp1.Free;LeaveCriticalSection(gGetCritDML);end;
end;JSON解析
导入System.JSON
function GetProduceId(cName: string; localComm: CLocalComm): string;
varsRsp, sJson: string;jRet: TJSONObject;
beginResult := '';sJson := '{"factoryTag":"02","num":1}';sRsp := HttpPost(ReadConfStr('url', 'sc_url') + 'productIdBd', sJson);if (sRsp <> '') and (Pos('{', sRsp) > 0) and (Pos('}', sRsp) > 0) thenbeginjRet := TJSONObject.ParseJSONValue(sRsp) as TJSONObject;if jRet.GetValue('code').Value = '0000' thenbeginend;end;
end;