IXMLHTTPRequest 在单元:msxml
function TFmeFndOrder.GetUCMPData(pTel: string): string;
varHttpReq : IXMLHTTPRequest;
vQryURL, vQryJSONStr : string;
begin
vQryURL := 'http://10.202.31.103:1080/hs/api/iOrderService/queryOrderWithBill';
vQryJSONStr :=
' { '+
' "countryCode" : "CN", '+
' "langCode" : "sc", '+
' "mediaCode" : "CCS", '+
' "systemCode" : "CCS", '+
' "page" : { '+
' "currentPage":"1", '+
' "pageSize":"1000" '+