Changeset 6 for trunk/UFioAPI.pas

Timestamp:

Mar 14, 2013, 9:24:41 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Okno s nastavením parametrů komunikace.
• Přidáno: Pamatování si nastavení voleb.
• Přidáno: Nyní lze stahovat nové operace, výpis dle časového rozmezí a měsíční výpisy.

File:

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

trunk/UFioAPI.pas

@@ -1 +1 @@
 unit UFioAPI;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -10 +10 @@
 type
 
+  TFioDataFormat = (dfXML, dfCVS, dfGPC, dfOFX, dfJSON, dfHTML, dfSTA);
+
   { TFioAPI }
 
@@ -17 +19 @@
   public
     Token: string;
-    Format: string;
+    Format: TFioDataFormat;
     function DownloadInterval(TimeFrom, TimeTo: TDateTime; Data: TStrings): Boolean;
     function DownloadMonthly(Year, Id: Integer; Data: TStrings): Boolean;
     function DownloadLast(Data: TStrings): Boolean;
   end;
+
+const
+  DataFormatText: array[TFioDataFormat] of string = ('XML', 'CVS', 'GPC', 'OFX',
+    'JSON', 'HTML', 'STA');
+  DataFormatURL: array[TFioDataFormat] of string = ('xml', 'cvs', 'gpc', 'ofx',
+    'json', 'html', 'sta');
 
 implementation
@@ -33 +41 @@
   HTTPSender := THTTPSend.Create;
   try
-    Format := 'xml';
-    Token := 'dd';
     HTTPSender.HTTPMethod('GET', URL);
     try
@@ -63 +69 @@
     '/' + FormatDateTime('yyyy-mm-dd', TimeFrom) +
     '/' + FormatDateTime('yyyy-mm-dd', TimeTo) +
-    '/transactions.' + Format, Data);
+    '/transactions.' + DataFormatURL[Format], Data);
 end;
 
@@ -70 +76 @@
   Result := Download('https://www.fio.cz/ib_api/rest/by-id/' + Token +
     '/' + IntToStr(Year) + '/' + IntToStr(Id) +
-    '/transactions.' + Format, Data);
+    '/transactions.' + DataFormatURL[Format], Data);
 end;
 
@@ -76 +82 @@
 begin
   Result := Download('https://www.fio.cz/ib_api/rest/last/' + Token +
-    '/transactions.' + Format, Data);
+    '/transactions.' + DataFormatURL[Format], Data);
 end;