HTTP服务的应用

1、编辑json请求参数；

2、把json发送到服务url，接收服务的返回参数；

3、解析返回参数。

procedure TfrmCustomQuery.btnFullUpdateClick(Sender: TObject);
varfrm: TfrmInputQueryConditionEX;b_OK: Boolean;sBeginDate, sEndDate, sJSON, sResult, Success: string;HttpReq: IXMLHTTPRequest;vJson: ISuperObject;
begininherited;if Trim(g_sEmbryoUpdateURL) = '' thenbeginMyCommon.ShowWarn('胚胎数据更新URL地址未填写！');Exit;end;tryfrm := TfrmInputQueryConditionEX.Create(nil);frm.ShowModal;b_OK := frm.Gb_OK;if b_OK thenbeginsBeginDate := FormatDateTime('yyyy-MM-dd 00:00:00', frm.DtpBegin.DateTime);sEndDate := FormatDateTime('yyyy-MM-dd 23:59:59', frm.dtpEnd.DateTime);sJSON := '{'+' "startDate": "'+sBeginDate+'",'+' "endDate": "'+sEndDate+'",'+' "type": "1"'+' }';HttpReq := CoXMLHTTPRequest.Create;HttpReq.open('Post', g_sEmbryoUpdateURL, False, EmptyParam, EmptyParam);HttpReq.setRequestHeader('Accept', 'application/json');HttpReq.setRequestHeader('Content-Type', 'application/json');tryMyCommon.WriteLog('请求参数：' + sJSON);HttpReq.Send(sJSON);sResult := (HttpReq.responseText);MyCommon.WriteLog('返回参数：' + sResult);excepton Ex: Exception dobeginMyCommon.ShowWarn(Ex.Message + ' 请联系接口工程师处理！');Exit;end;end;vJson := SO(sResult);Success := vJson['code'].AsString;if Success = '200' thenbeginMycommon.ShowWarn('数据正在更新，请十分钟后查询！');end elsebeginMyCommon.ShowWarn(vJson['msg'].AsString);Exit;end;end;finallyif frm <> nil thenbeginfrm.Free;frm := nil;end;end;
end;