Changeset 5 for trunk/UFioAPI.pas

Timestamp:

Mar 14, 2013, 7:55:02 PM (11 years ago)

Author:

chronos

Message:

• Upraveno: Použita knihovna openssl namísto cryptlib. Přidány binární knihovny.
• Přidáno: Třídy TFioAPI nyní umí načítat data přes API.
• Přidáno: Dokument popisu API rozhraní.

File:

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

trunk/UFioAPI.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, httpsend;
+  Classes, SysUtils, httpsend, ssl_openssl;
 
 type
@@ -13 +13 @@
 
   TFioAPI = class
+  private
+    function Download(URL: string; Data: TStrings): Boolean;
+  public
     Token: string;
     Format: string;
-    function Download: Boolean;
+    function DownloadInterval(TimeFrom, TimeTo: TDateTime; Data: TStrings): Boolean;
+    function DownloadMonthly(Year, Id: Integer; Data: TStrings): Boolean;
+    function DownloadLast(Data: TStrings): Boolean;
   end;
 
@@ -22 +27 @@
 { TFioAPI }
 
-function TFioAPI.Download: Boolean;
+function TFioAPI.Download(URL: string; Data: TStrings): Boolean;
 var
   HTTPSender: THTTPSend;
@@ -30 +35 @@
     Format := 'xml';
     Token := 'dd';
-//    HTTPSender.HTTPMethod('GET', 'https://www.fio.cz/ib_api/rest/periods/' + Token +
-//      '/2013-03-01/2013-03-15/transactions.' + Format);
-HTTPSender.HTTPMethod('GET', 'https://www.fio.cz/e-broker/e-broker.cgi');
+    HTTPSender.HTTPMethod('GET', URL);
     try
     case HTTPSender.Resultcode of
         100..299:
           begin
-{            with TFileStream.Create(TargetFile, fmCreate or fmOpenWrite) do
-            try
-              Seek(0, soFromBeginning);
-              CopyFrom(HTTPSender.Document, 0);
-            finally
-              Free;
-            end;}
+            Data.LoadFromStream(HTTPSender.Document);
             Result := True;
           end; //informational, success
@@ -53 +50 @@
     except
       // We don't care for the reason for this error; the download failed.
-      Result := false;
+      Result := False;
     end;
   finally
@@ -60 +57 @@
 end;
 
+function TFioAPI.DownloadInterval(TimeFrom, TimeTo: TDateTime; Data: TStrings
+  ): Boolean;
+begin
+  Result := Download('https://www.fio.cz/ib_api/rest/periods/' + Token +
+    '/' + FormatDateTime('yyyy-mm-dd', TimeFrom) +
+    '/' + FormatDateTime('yyyy-mm-dd', TimeTo) +
+    '/transactions.' + Format, Data);
+end;
+
+function TFioAPI.DownloadMonthly(Year, Id: Integer; Data: TStrings): Boolean;
+begin
+  Result := Download('https://www.fio.cz/ib_api/rest/by-id/' + Token +
+    '/' + IntToStr(Year) + '/' + IntToStr(Id) +
+    '/transactions.' + Format, Data);
+end;
+
+function TFioAPI.DownloadLast(Data: TStrings): Boolean;
+begin
+  Result := Download('https://www.fio.cz/ib_api/rest/last/' + Token +
+    '/transactions.' + Format, Data);
+end;
+
 end.