delphi 封装的TIdHTTP GET POST 请求

uses idhttp;

///

/// TIdHTTP 

/// 指定URL 

/// Get请求失败最大重试次数 

/// 返回腾讯服务器响应(string类型的json格式数据) 

function GetMethod(http: TIdHTTP; URL: String; Max: Integer): String;

var 

  RespData: TStringStream; 

begin 

  RespData := TStringStream.Create('', TEncoding.UTF8); 

  try 

    try 

      http.Get(URL, RespData); 

      http.Request.Referer := URL; 

      Result := RespData.DataString; 

    except 

      Dec(Max); 

      if Max = 0 then 

      begin 

        Result := ''; 

        exit; 

      end; 

      Result := GetMethod(http, URL, Max); 

    end; 

  finally 

    FreeAndNil(RespData); 

  end; 

end; 

///

/// TIdHTTP 

/// 指定URL 

/// 要提交的数据(UTF8String) 

/// Post请求失败最大重试次数 

/// 返回腾讯服务器响应(string类型的json格式数据) 

function PostMethod(http: TIdHTTP; URL: String; Data: UTF8String; 

    Max: Integer): String; 

var 

  PostData, RespData: TStringStream; 

begin 

  RespData := TStringStream.Create(''); 

  PostData := TStringStream.Create(Data); 

  try 

    try 

      if http = nil then 

        exit; 

      http.Post(URL, PostData, RespData); 

      Result := RespData.DataString; 

      http.Request.Referer := URL; 

    except 

      Dec(Max); 

      if Max = 0 then 

      begin 

        Result := ''; 

        exit; 

      end; 

      Result := PostMethod(http, URL, Data, Max); 

    end; 

  finally 

    http.Disconnect; 

    FreeAndNil(RespData); 

    FreeAndNil(PostData); 

  end; 

end;