source: trunk/UOdorikApi.pas

unit UOdorikApi;

interface

uses
  System.SysUtils, System.Types, System.Classes, Generics.Collections, IdHTTP
  {$IFDEF ANDROID},IdSSLOpenSSLHeaders{$endif}, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, System.DateUtils, System.TimeSpan,
  System.JSON;

type
  TCall = class
    Oid: Integer;
    RedirectionParentId: Integer;
    Date: TDateTime;
    Direction: string;
    SourceNumber: string;
    DestinatioNumber: string;
    DestinationName: string;
    Length: Integer;
    RingingLength: Integer;
    Status: string;
    Price: Currency;
    PricePerMinute: Currency;
    BalanceAfter: Currency;
    Line: Integer;
    Recording: string;
  end;

  TOdorikApi = class(TComponent)
  private
    IdHTTP1: TIdHTTP;
    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
  public
    UserName: string;
    Password: string;
    ServerUrl: string;
    function GetCredit: Currency;
    function SendGet(Path: string; Parameters: string = ''): string;
    function GetCallHistory(TimeFrom, TimeTo: TDateTime): TList<TCall>;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

function TOdorikApi.SendGet(Path: string; Parameters: string = ''): string;
var
  Url: string;
begin
  if (ServerUrl <> '') and (UserName <> '') and (Password <> '') then begin
    Url := ServerUrl + Path + '?user=' + UserName + '&password=' + Password;
    if Parameters <> '' then Url := Url + '&' + Parameters;
    Result := IdHTTP1.Get(Url);
  end else Result := '';
end;

constructor TOdorikApi.Create(AOwner: TComponent);
begin
  inherited;
  {$IFDEF ANDROID}
  IdOpenSSLSetLibPath(System.IOUtils.TPath.GetDocumentsPath);
  {$ENDIF}
  IdHTTP1 := TIdHTTP.Create(Self);
  IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(Self);
  IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
end;

destructor TOdorikApi.Destroy;
begin

  inherited;
end;

function DateTimeToXMLTime(Value: TDateTime; ApplyLocalBias: Boolean = True): string;
const
  Neg: array[Boolean] of string = ('+', '-');
var
  Bias: Integer;
begin
  Result := FormatDateTime('yyyy''-''mm''-''dd''T''hh'':''nn'':''ss''.''zzz', Value); { Do not localize }
  Bias := Trunc(TTimeZone.Local.GetUtcOffset(Value).TotalMinutes);
  if (Bias <> 0) and ApplyLocalBias then
  begin
    Result := Format('%s%s%.2d:%.2d', [Result, Neg[Bias > 0],                         { Do not localize }
                                       Abs(Bias) div MinsPerHour,
                                       Abs(Bias) mod MinsPerHour]);
  end else
    Result := Result + 'Z'; { Do not localize }
end;

function TOdorikApi.GetCallHistory(TimeFrom, TimeTo: TDateTime): TList<TCall>;
var
  Response: string;
  LJsonResponse: TJSONValue;
  jv: TJSONValue;
  joName: TJSONObject;
  Call: TCall;
begin
  Result := TList<TCall>.Create;
  Response := SendGet('/calls.json', 'from=' + DateTimeToXMLTime(TimeFrom) +
    '&to=' + DateTimeToXMLTime(TimeTo));
  LJsonResponse := TJSONObject.ParseJSONValue(Response);
  for jv in LJsonResponse as TJSONArray do begin
    joName := jv as TJSONObject;
    Call := TCall.Create;
    Call.SourceNumber := joName.Get('source_number').JSONValue.Value;
    Call.DestinatioNumber := joName.Get('destination_number').JSONValue.Value;
    Result.Add(Call);
  end;
end;

function TOdorikApi.GetCredit: Currency;
var
  Response: string;
  Value: Extended;
begin
  Response := SendGet('/balance');
  if Response <> '' then begin
    Response := StringReplace(Response, '.', FormatSettings.DecimalSeparator, [rfReplaceAll]);
    if TryStrToFloat(Response, Value) then
      Result := Value
      else Result := 0;
  end else Result := 0;
end;



end.