Changeset 4

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.

Location:

trunk

Files:

• Packages/synapse/source/demo/ftpserv/data/some_dir (added)
• Packages/synapse/source/demo/ftpserv/data/some_file.txt (added)
• Packages/synapse/source/demo/ftpserv/data/some_other_file.txt (added)
• Packages/synapse/source/demo/http/web/post.htm (added)
• Packages/synapse/source/demo/http/web/postfile.htm (added)
• Packages/synapse/source/demo/http/web/postfileresult.php (added)
• Packages/synapse/source/demo/http/web/postresult.php (added)
• Packages/synapse/source/demo/sftp/Demo/Main.dfm (added)
• Packages/synapse/source/demo/sftp/Demo/Main.pas (added)
• Packages/synapse/source/demo/sftp/Demo/TestSFTP.dpr (added)
• UFioAPI.pas (modified) (1 diff)
• UFormMain.lfm (modified) (4 diffs)
• UFormMain.pas (modified) (4 diffs)

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.
 

trunk/UFormMain.lfm

@@ -10 +10 @@
   object LabeledEdit1: TLabeledEdit
     Left = 8
-    Height = 21
+    Height = 27
     Top = 25
     Width = 488
@@ -18 +18 @@
     EditLabel.AnchorSideBottom.Control = LabeledEdit1
     EditLabel.Left = 8
-    EditLabel.Height = 13
-    EditLabel.Top = 9
+    EditLabel.Height = 17
+    EditLabel.Top = 5
     EditLabel.Width = 488
     EditLabel.Caption = 'Token'
     EditLabel.ParentColor = False
     TabOrder = 0
+  end
+  object Button1: TButton
+    Left = 56
+    Height = 25
+    Top = 184
+    Width = 112
+    Action = ADownload
+    TabOrder = 1
   end
   object TrayIcon1: TTrayIcon
@@ -4331 +4339 @@
   object ActionList1: TActionList
     Images = ImageList1
-    left = 262
+    left = 264
     top = 93
     object AShow: TAction
@@ -4341 +4349 @@
       OnExecute = AExitExecute
     end
+    object ADownload: TAction
+      Caption = 'Zkontrolovat'
+      OnExecute = ADownloadExecute
+    end
   end
   object ImageList1: TImageList

trunk/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, Menus, ActnList;
+  ExtCtrls, Menus, ActnList, httpsend, UFioAPI;
 
 type
@@ -14 +14 @@
 
   TFormMain = class(TForm)
+    ADownload: TAction;
     AExit: TAction;
     AShow: TAction;
     ActionList1: TActionList;
+    Button1: TButton;
     ImageList1: TImageList;
     LabeledEdit1: TLabeledEdit;
@@ -23 +25 @@
     PopupMenuTray: TPopupMenu;
     TrayIcon1: TTrayIcon;
+    procedure ADownloadExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
     procedure AShowExecute(Sender: TObject);
@@ -50 +53 @@
 end;
 
+procedure TFormMain.ADownloadExecute(Sender: TObject);
+var
+  FioAPI: TFioAPI;
+begin
+  FioAPI := TFioAPI.Create;
+  try
+    FioAPI.Download;
+  finally
+    FioAPI.Free;
+  end;
+end;
+
 end.