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

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.