Changeset 5 for trunk/UFormMain.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/UFormMain.pas (modified) (2 diffs)

trunk/UFormMain.pas

@@ -21 +21 @@
     ImageList1: TImageList;
     LabeledEdit1: TLabeledEdit;
+    Memo1: TMemo;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
@@ -59 +60 @@
   FioAPI := TFioAPI.Create;
   try
-    FioAPI.Download;
+    FioAPI.Token := LabeledEdit1.Text;
+    FioAPI.Format := 'xml';
+    FioAPI.DownloadInterval(EncodeDate(2013, 03, 01), EncodeDate(2013, 03, 14),
+      Memo1.Lines);
   finally
     FioAPI.Free;