unit HTTPClassUnit;

interface
uses ActiveX, ComObj, Variants, SysUtils;

type
  TSSHCom = class(TObject)
  private
    { Public declarations }
    class function Request(const URI, method, protocol: string; const data: string = ''; const token: string = ''; const location: string = ''): Widestring;
  public
    class function RequestHTTPS(const URI, method: string; const data: string = ''; const token: string = ''): Widestring;
    class function RequestHTTP(const URI, method: string; const data: string = ''; const token: string = ''): Widestring;
  end;

implementation
uses IniClassUnit, LogUnit, uLkJSON;

class function TSSHCom.Request(const URI, method, protocol: string; const data: string = ''; const token: string = ''; const location: string = ''): Widestring;
var
  Request: OleVariant;
  Resp, proxystr: string;
  status: integer;
  js: TlkJSONobject;
begin
  Request := CreateOleObject('WinHttp.WinHttpRequest.5.1');
  proxystr := IniRep.proxystr;
  if trim(proxystr) <> '' then
    Request.SetProxy(2, proxystr);
  LogClass.WriteLog('');
  LogClass.WriteLog('===========================================================');
  LogClass.WriteLog('proxystr=' + proxystr);
  LogClass.WriteLog('data=' + data);
  LogClass.WriteLog('token=' + token);
  LogClass.WriteLog('method=' + method);

  if location = '' then
  begin
    Request.Open(method, protocol + '://' + HostName + '/' + URI, False);
  end
     else
  begin
    Request.Open(method, location, False);
  end;
  Request.SetRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0');
  if trim(token) <> '' then
    Request.SetRequestHeader('Authorization', 'token ' + token);
  Request.SetRequestHeader('cache-control', 'no-cache');
  Request.SetRequestHeader('Accept-Language', 'ru');
  Request.SetRequestHeader('content-type', 'application/json');
  Request.SetRequestHeader('Accept-Charset', 'utf-8');
  Request.Send(data);
  LogClass.WriteLog('response_text=' + Request.ResponseText + ',status='+IntToStr(Request.Status));
  LogClass.WriteLog('===========================================================');
  LogClass.WriteLog('');  
  if Request.Status = 200 then
    result := Request.ResponseText else
  begin
    js := TlkJSON.ParseText(Request.ResponseText) as TlkJSONobject;
    if Request.Status = 301 then
      result := Self.Request(URI, method, protocol, data, token, Request.getResponseHeader('Location'))
    else
      raise Exception.Create(Request.ResponseText);
  end;
end;

class function TSSHCom.RequestHTTPS(const URI, method: string; const data: string = ''; const token: string = ''): Widestring;
begin
  result := TSSHCom.Request(URI, method, 'https', data, token);
end;

class function TSSHCom.RequestHTTP(const URI, method: string; const data: string = ''; const token: string = ''): Widestring;
begin
  result := TSSHCom.Request(URI, method, 'http', data, token);
end;

end.