分别用idHttp和clHttp推送Json

使用Delphi自带的idHttp：

function TMainFrm.PostData(strUrl: string; strJson: string): string;
var
  strHTML : TStringList;
  strSend : TStringStream;
  idHttp1 : TIdHTTP;

begin
  idHttp1 := TIdHTTP.Create(nil);
  idHttp1.Request.ContentType :='application/json';
  idHttp1.Request.CharSet :='UTF-8';

  strSend := TStringStream.Create(strJson, TEncoding.UTF8);
  strSend.Position :=0;
  strHTML := TStringList.Create;
  try
    strHTML.Text := idHttp1.Post(strUrl, strSend);
  except
    Result :='接口连接出错！';
    Exit;
  end;
  FreeAndNil(idHttp1);
  FreeAndNil(strSend);
  Result := strHTML.Text;
  FreeAndNil(strHTML);
end;

使用Clever Internet Suite 推送Json

function TMainFrm.PostData(strUrl: string; strJson: string): string;
var
  clHttp1 : TclHTTP;
  clHttpRequest1 : TclHttpRequest;
begin
  clHttp1 := TclHTTP.Create(nil);
  clHttpRequest1 := TclHttpRequest.Create(clHttp1);
  clHttpRequest1.Header.ContentType :='application/json';
  clHttpRequest1.Header.CharSet :='UTF-8';

  clHttpRequest1.BuildJSONRequest(strJson);
  try
    Result := clHttp1.Post(strUrl, clHttpRequest1);
  except
    Result :='接口连接出错！';
    Exit;
  end;
  FreeAndNil(clHttpRequest1);
  FreeAndNil(clHttp1);
end;