Changeset 4 for trunk/UOdorikApi.pas

Timestamp:

Aug 24, 2019, 12:56:52 PM (5 years ago)

Author:

chronos

Message:

• Modified: Moved call history loading to API class.

Location:

trunk

Files:

• . (modified) (1 prop)
• UOdorikApi.pas (modified) (3 diffs)

trunk

@@ -3 +3 @@
 __recovery
 __history
+OdorikApi.dproj.local

@@ -3 +3 @@
 __recovery
 __history
+OdorikApi.dproj.local

trunk/UOdorikApi.pas

@@ -4 +4 @@
 
 uses
-  System.SysUtils, System.Types, System.Classes, IdHTTP
+  System.SysUtils, System.Types, System.Classes, Generics.Collections, IdHTTP
   {$IFDEF ANDROID},IdSSLOpenSSLHeaders{$endif}, IdIOHandler, IdIOHandlerSocket,
-  IdIOHandlerStack, IdSSL, IdSSLOpenSSL;
+  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
@@ -17 +36 @@
     Password: string;
     ServerUrl: string;
-    function GetCredit: Double;
+    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;
@@ -53 +73 @@
 end;
 
-function TOdorikApi.GetCredit: Double;
+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;

@@ -3 +3 @@
 __recovery
 __history
+OdorikApi.dproj.local