Changeset 22 for trunk/UFioAPI.pas

Timestamp:

Mar 25, 2013, 11:47:38 PM (11 years ago)

Author:

chronos

Message:

• Upraveno: Příprava pro zobrazování seznamu operací.

File:

• trunk/UFioAPI.pas (modified) (4 diffs)

trunk/UFioAPI.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, httpsend, ssl_openssl;
+  Classes, SysUtils, httpsend, ssl_openssl, dateutils;
 
 type
@@ -23 +23 @@
     function DownloadMonthly(Year, Id: Integer; Data: TStrings): Boolean;
     function DownloadLast(Data: TStrings): Boolean;
+    function SetLastId(Id: Integer): Boolean;
+    function SetLastDate(Date: TDate): Boolean;
   end;
 
@@ -46 +48 @@
         100..299:
           begin
-            Data.LoadFromStream(HTTPSender.Document);
+            if Assigned(Data) then
+              Data.LoadFromStream(HTTPSender.Document);
             Result := True;
           end; //informational, success
@@ -85 +88 @@
 end;
 
+function TFioAPI.SetLastId(Id: Integer): Boolean;
+begin
+  Result := Download('https://www.fio.cz/ib_api/rest/set-last-id/' + Token +
+    '/' + IntToStr(Id), nil);
+end;
+
+function TFioAPI.SetLastDate(Date: TDate): Boolean;
+begin
+  Result := Download('https://www.fio.cz/ib_api/rest/set-last-date/' + Token +
+    '/' + IntToStr(YearOf(Date)) + '/' + IntToStr(MonthOf(Date)) + '/' +
+    IntToStr(DayOf(Date)), nil);
+end;
+
 end.