Changeset 4 for trunk/UFioAPI.pas

Timestamp:

Mar 13, 2013, 11:29:59 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Zkušební stažení stránky přes https.

File:

• trunk/UFioAPI.pas (modified) (1 diff)

trunk/UFioAPI.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils;
+  Classes, SysUtils, httpsend;
 
 type
+
+  { TFioAPI }
+
   TFioAPI = class
-
+    Token: string;
+    Format: string;
+    function Download: Boolean;
   end;
 
 implementation
 
+{ TFioAPI }
+
+function TFioAPI.Download: Boolean;
+var
+  HTTPSender: THTTPSend;
+begin
+  HTTPSender := THTTPSend.Create;
+  try
+    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');
+    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;}
+            Result := True;
+          end; //informational, success
+        300..399: Result := False; //redirection. Not implemented, but could be.
+        400..499: Result := False; //client error; 404 not found etc
+        500..599: Result := False; //internal server error
+        else Result := False; //unknown code
+      end;
+    except
+      // We don't care for the reason for this error; the download failed.
+      Result := false;
+    end;
+  finally
+    HTTPSender.Free;
+  end;
+end;
+
 end.