This repository was archived by the owner on Dec 13, 2024. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 15
Expand file tree
/
Copy pathUnit1.h
More file actions
68 lines (63 loc) · 2.16 KB
/
Unit1.h
File metadata and controls
68 lines (63 loc) · 2.16 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdHTTP.hpp>
#include <IdIOHandler.hpp>
#include <IdIOHandlerSocket.hpp>
#include <IdIOHandlerStack.hpp>
#include <IdSSL.hpp>
#include <IdSSLOpenSSL.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <Vcl.Dialogs.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.ComCtrls.hpp>
#include <IdAntiFreeze.hpp>
#include <IdAntiFreezeBase.hpp>
#include <Vcl.Buttons.hpp>
#include <Vcl.Graphics.hpp>
#include <Vcl.Imaging.jpeg.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published: // IDE-managed Components
TLabeledEdit *LinkEdit;
TIdHTTP *Web;
TIdSSLIOHandlerSocketOpenSSL *IndySSL;
TGroupBox *MainBox;
TButton *Btn240;
TButton *Btn480;
TButton *Btn720;
TSaveDialog *SaveDialog;
TProgressBar *ProgressBar;
TIdAntiFreeze *AntiFreeze;
TLabel *ProgLabel;
TLabel *SizeLabel;
TButton *ExBtn;
TImage *AboutBtn;
TLabel *Label1;
void __fastcall Btn240Click(TObject *Sender);
void __fastcall WebWorkBegin(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCountMax);
void __fastcall WebWork(TObject *ASender, TWorkMode AWorkMode, __int64 AWorkCount);
void __fastcall WebWorkEnd(TObject *ASender, TWorkMode AWorkMode);
void __fastcall Btn480Click(TObject *Sender);
void __fastcall Btn720Click(TObject *Sender);
void __fastcall ExBtnClick(TObject *Sender);
void __fastcall LinkEditKeyDown(TObject *Sender, WORD &Key, TShiftState Shift);
void __fastcall AboutBtnClick(TObject *Sender);
private: // User declarations
public: // User declarations
String TMainForm::GetLink(String Str, String Qa);
__fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif