http://digital-flame.ru/

# Class TVisualFrame_HTTP

Description | Hierarchy | Fields | Methods | Properties

## Unit

uVisualFrame

## Declaration

`type TVisualFrame_HTTP = class(TFrame)`

## Description

MyUnits IdSSL, IdSSLOpenSSL

## Hierarchy

- TFrame
- TVisualFrame_HTTP

## Overview

### Fields

| `OpenDialog: TOpenDialog;`
| `IdHTTP: TIdHTTP;`
| `PageControl: TPageControl;`
| `tsInsertLink: TTabSheet;`
| `tsMediaLibrary: TTabSheet;`
| `tsLoadFile: TTabSheet;`
| `tsLastUploads: TTabSheet;`
| `bUpload: TButton;`
| `ApplicationEvents: TApplicationEvents;`
| `tsTest: TTabSheet;`
| `bTest: TButton;`
| `sbUploads: TScrollBox;`
| `pLeftPanelMediaLibrary: TPanel;`
| `ilControlButtons: TImageList;`
| `tsKeep2Share: TTabSheet;`
| `mLinks: TMemo;`
| `pTopPanelK2S: TPanel;`
| `bUploadOnKeep2Share: TButton;`
| `bGetFirstLinkExample: TButton;`
| `DataSource: TDataSource;`
| `FDGUIxWaitCursor: TFDGUIxWaitCursor;`
| `FDTable: TFDTable;`
| `FDTableid: TFDAutoIncField;`
| `FDTableidParent: TIntegerField;`
| `FDTablecreationDateTime: TDateTimeField;`
| `FDTablechangesDateTime: TDateTimeField;`
| `FDTablelastAccessDateTime: TDateTimeField;`
| `FDTableisFolder: TBooleanField;`
| `FDTableusers_id: TIntegerField;`
| `FDTableLink: TStringField;`
| `Splitter1: TSplitter;`
| `pRightPanelMediaLibrary: TPanel;`
| `pNavPanel: TPanel;`
| `pNavPanelButtons: TPanel;`
| `bHome: TBitBtn;`
| `bUp: TBitBtn;`
| `bUpdate: TBitBtn;`
| `eAdress: TEdit;`
| `pSearchPanel: TPanel;`
| `pSearchPanelTop: TPanel;`
| `bSearch: TBitBtn;`
| `eSearch: TEdit;`
| `pSearchPanelBottom: TPanel;`
| `lSearchResultLabel: TLabel;`
| `bNextSearchResult: TBitBtn;`
| `bPreviousSearchResult: TBitBtn;`
| `cbSearchType: TComboBox;`
| `pSortPanel: TPanel;`
| `cbSortParameter: TComboBox;`
| `cbSortDirection: TComboBox;`
| `bSort: TBitBtn;`
| `ScrollBoxMediaLibrary: TScrollBox;`
| `ImageList: TImageList;`
| `cbAllFilesOrByDate: TComboBox;`
| `cbFileTypes: TComboBox;`
| `cbTableOrGallery: TComboBox;`
| `IdHTTPDownloadPicture: TIdHTTP;`
| `ZaplatkaTimer: TTimer;`
| `DBGrid: TDBGrid;`
| `Bevel: TBevel;`
| `image: TImage;`
| `FDConnectionForTest: TFDConnection;`
| `FDTableNameWideString: TWideStringField;`
| `FDTablerelPath: TWideStringField;`
| `FDTableabsPath: TWideStringField;`
| `IdHTTPDownloadFile: TIdHTTP;`
| `SaveDialog: TSaveDialog;`
| `pBottomPanel: TPanel;`
| `StatusBar: TStatusBar;`
| `pBottomRightPanel: TPanel;`
| `ProgressBar: TProgressBar;`
| `ilFoldersAndFiles16: TImageList;`
| `FDTableFileSizeCalc: TStringField;`
| `FDTablefileSize: TIntegerField;`
| `MainPopupMenu: TPopupMenu;`
| `pInsertInDocument: TMenuItem;`
| `pAddFile: TMenuItem;`
| `pDeleteFile: TMenuItem;`
| `pGetLink: TMenuItem;`
| `pDownloadFile: TMenuItem;`
| `pSearch: TMenuItem;`
| `pSort: TMenuItem;`
| `pTopPanelLastUploads: TPanel;`
| `bOpenAllFiles: TBitBtn;`

### Methods

| `procedure FrameResize(Sender: TObject);`
| `procedure bUploadClick(Sender: TObject);`
| `procedure bTestClick(Sender: TObject);`
| `procedure ApplicationEventsException(Sender: TObject; E: Exception);`
| `procedure bAllFilesClick(Sender: TObject);`
| `procedure bUploadOnKeep2ShareClick(Sender: TObject);`
| `procedure bGetFirstLinkExampleClick(Sender: TObject);`
| `procedure DBGridDblClick(Sender: TObject);`
| `procedure FDTableForTestCalcFields(DataSet: TDataSet);`
| `procedure FDTableCalcFields(DataSet: TDataSet);`
| `procedure PageControlChange(Sender: TObject);`
| `procedure bUpClick(Sender: TObject);`
| `procedure bUpdateClick(Sender: TObject);`
| `procedure bHomeClick(Sender: TObject);`
| `procedure DBGridTitleClick(Column: TColumn);`
| `procedure bSortClick(Sender: TObject);`
| `procedure bSearchClick(Sender: TObject);`
| `procedure bNextSearchResultClick(Sender: TObject);`
| `procedure bPreviousSearchResultClick(Sender: TObject);`
| `procedure ScrollBoxMediaLibraryResize(Sender: TObject);`
| `procedure cbFileTypesSelect(Sender: TObject);`
| `procedure cbAllFilesOrByDateSelect(Sender: TObject);`
| `procedure DBGridCellClick(Column: TColumn);`
| `procedure imageClick(Sender: TObject);`
| `procedure ZaplatkaTimerTimer(Sender: TObject);`
| `procedure FDTableAfterGetRecord(DataSet: TFDDataSet);`
| `procedure DBGridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`
| `procedure DBGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`
| `procedure StatusBarClick(Sender: TObject);`
| `procedure imageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);`
| `procedure cbTableOrGallerySelect(Sender: TObject);`
| `procedure DBGridDrawColumnCell(Sender: TObject; const [Ref] Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);`
| `procedure pInsertInDocumentClick(Sender: TObject);`
| `procedure pAddFileClick(Sender: TObject);`
| `procedure pDeleteFileClick(Sender: TObject);`
| `procedure pGetLinkClick(Sender: TObject);`
| `procedure pDownloadFileClick(Sender: TObject);`
| `procedure pSearchClick(Sender: TObject);`
| `procedure pSortClick(Sender: TObject);`
| `procedure bOpenAllFilesClick(Sender: TObject);`
| `constructor Create(AOwner: TComponent); override;`
| `destructor Destroy; override;`
| `procedure DefineServerToRequest;`
| `procedure InitialUpdate;`
| `procedure UpdateCurrentFolder;`
| `procedure DownloadAndSetOnePicture;`
| `procedure DownloadFile;`
| `procedure GiveHumanFileSize(FilSizeBytes: Int64; var HumanFileSize: String);`

### Properties

| `property FDConnection: TFDConnection read FFDConnection write FFDConnection;`
| `property HTTP_ConnectionParams: THTTP_ConnectionParams read FHTTP_ConnectionParams write FHTTP_ConnectionParams;`
| `property HTTPServerToRequest: string read FHTTPServerToRequest write FHTTPServerToRequest;`
| `property HTTPRequests: THTTPRequests read FHTTPRequests write FHTTPRequests;`
| `property CS: TCriticalSection read FCS write FCS;`
| `property CS2: TCriticalSection read FCS2 write FCS2;`
| `property LinksOnKeep2Share: TStringList read FLinksOnKeep2Share write FLinksOnKeep2Share;`
| `property SendFileInChunks: TSendFileInChunks read FSendFileInChunks write FSendFileInChunks;`
| `property OnKeep2ShareEndUpload: TNotifyEvent read FOnKeep2ShareEndUpload write FOnKeep2ShareEndUpload;`
| `property FilesSL: TStringList read FFilesSL write FFilesSL;`
| `property OnKeep2ShareStartUpload: TNotifyEvent read FOnKeep2ShareStartUpload write FOnKeep2ShareStartUpload;`
| `property DataBaseUnit: TDataBaseUnit read FDataBaseUnit write FDataBaseUnit;`
| `property GetLinkForm: TfGetLink read FGetLinkForm write FGetLinkForm;`
| `property FileType: TFileType read FFileType write FFileType;`
| `property InsertPictureInDocument: TInsertPictureInDocument read FInsertPictureInDocument write FInsertPictureInDocument;`
| `property IsAllFilesMode: boolean read FIsAllFilesMode write FIsAllFilesMode;`
| `property Delete_PS_HTTPClient: TDelete_PS_HTTPClient read FDelete_PS_HTTPClient write FDelete_PS_HTTPClient;`
| `property CSDownloadPicture: TCriticalSection read FCSDownloadPicture write FCSDownloadPicture;`
| `property CSDownloadFile: TCriticalSection read FCSDownloadFile write FCSDownloadFile;`
| `property CurrentPictureWidth: Integer read FCurrentPictureWidth write FCurrentPictureWidth;`
| `property CurrentPictureHeight: Integer read FCurrentPictureWidth write FCurrentPictureWidth;`
| `property idCurrentParent: integer read FidCurrentParent write FidCurrentParent;`

## Description

### Fields

| `OpenDialog: TOpenDialog;`

| `IdHTTP: TIdHTTP;`

| `PageControl: TPageControl;`

| `tsInsertLink: TTabSheet;`

| `tsMediaLibrary: TTabSheet;`

| `tsLoadFile: TTabSheet;`

| `tsLastUploads: TTabSheet;`

| `bUpload: TButton;`

| `ApplicationEvents: TApplicationEvents;`

| `tsTest: TTabSheet;`

| `bTest: TButton;`

| `sbUploads: TScrollBox;`

| `pLeftPanelMediaLibrary: TPanel;`

| `ilControlButtons: TImageList;`

| `tsKeep2Share: TTabSheet;`

| `mLinks: TMemo;`

| `pTopPanelK2S: TPanel;`

| `bUploadOnKeep2Share: TButton;`

| `bGetFirstLinkExample: TButton;`

| `DataSource: TDataSource;`

| `FDGUIxWaitCursor: TFDGUIxWaitCursor;`

| `FDTable: TFDTable;`

| `FDTableid: TFDAutoIncField;`

| `FDTableidParent: TIntegerField;`

| `FDTablecreationDateTime: TDateTimeField;`

| `FDTablechangesDateTime: TDateTimeField;`

| `FDTablelastAccessDateTime: TDateTimeField;`

| `FDTableisFolder: TBooleanField;`

| `FDTableusers_id: TIntegerField;`

| `FDTableLink: TStringField;`

| `Splitter1: TSplitter;`

| `pRightPanelMediaLibrary: TPanel;`

| `pNavPanel: TPanel;`

| `pNavPanelButtons: TPanel;`

| `bHome: TBitBtn;`

| `bUp: TBitBtn;`

| `bUpdate: TBitBtn;`

| `eAdress: TEdit;`

| `pSearchPanel: TPanel;`

| `pSearchPanelTop: TPanel;`

| `bSearch: TBitBtn;`

| `eSearch: TEdit;`

| `pSearchPanelBottom: TPanel;`

| `lSearchResultLabel: TLabel;`

| `bNextSearchResult: TBitBtn;`

| `bPreviousSearchResult: TBitBtn;`

| `cbSearchType: TComboBox;`

| `pSortPanel: TPanel;`

| `cbSortParameter: TComboBox;`

| `cbSortDirection: TComboBox;`

| `bSort: TBitBtn;`

| `ScrollBoxMediaLibrary: TScrollBox;`

| `ImageList: TImageList;`

| `cbAllFilesOrByDate: TComboBox;`

| `cbFileTypes: TComboBox;`

| `cbTableOrGallery: TComboBox;`

| `IdHTTPDownloadPicture: TIdHTTP;`

| `ZaplatkaTimer: TTimer;`

| `DBGrid: TDBGrid;`

| `Bevel: TBevel;`

| `image: TImage;`

| `FDConnectionForTest: TFDConnection;`

| `FDTableNameWideString: TWideStringField;`

| `FDTablerelPath: TWideStringField;`

| `FDTableabsPath: TWideStringField;`

| `IdHTTPDownloadFile: TIdHTTP;`

| `SaveDialog: TSaveDialog;`

| `pBottomPanel: TPanel;`

| `StatusBar: TStatusBar;`

| `pBottomRightPanel: TPanel;`

| `ProgressBar: TProgressBar;`

| `ilFoldersAndFiles16: TImageList;`

| `FDTableFileSizeCalc: TStringField;`

| `FDTablefileSize: TIntegerField;`

| `MainPopupMenu: TPopupMenu;`

| `pInsertInDocument: TMenuItem;`

| `pAddFile: TMenuItem;`

| `pDeleteFile: TMenuItem;`

| `pGetLink: TMenuItem;`

| `pDownloadFile: TMenuItem;`

| `pSearch: TMenuItem;`

| `pSort: TMenuItem;`

| `pTopPanelLastUploads: TPanel;`

| `bOpenAllFiles: TBitBtn;`

### Methods

| `procedure FrameResize(Sender: TObject);`

| `procedure bUploadClick(Sender: TObject);`

| `procedure bTestClick(Sender: TObject);`

| `procedure ApplicationEventsException(Sender: TObject; E: Exception);`

| `procedure bAllFilesClick(Sender: TObject);`

| `procedure bUploadOnKeep2ShareClick(Sender: TObject);`

| `procedure bGetFirstLinkExampleClick(Sender: TObject);`

| `procedure DBGridDblClick(Sender: TObject);`

| `procedure FDTableForTestCalcFields(DataSet: TDataSet);`

| `procedure FDTableCalcFields(DataSet: TDataSet);`

| `procedure PageControlChange(Sender: TObject);`

| `procedure bUpClick(Sender: TObject);`

| `procedure bUpdateClick(Sender: TObject);`

| `procedure bHomeClick(Sender: TObject);`

| `procedure DBGridTitleClick(Column: TColumn);`

| `procedure bSortClick(Sender: TObject);`

| `procedure bSearchClick(Sender: TObject);`

| `procedure bNextSearchResultClick(Sender: TObject);`

| `procedure bPreviousSearchResultClick(Sender: TObject);`

| `procedure ScrollBoxMediaLibraryResize(Sender: TObject);`

| `procedure cbFileTypesSelect(Sender: TObject);`

| `procedure cbAllFilesOrByDateSelect(Sender: TObject);`

| `procedure DBGridCellClick(Column: TColumn);`

| `procedure imageClick(Sender: TObject);`

| `procedure ZaplatkaTimerTimer(Sender: TObject);`

| `procedure FDTableAfterGetRecord(DataSet: TFDDataSet);`

| `procedure DBGridKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);`

| `procedure DBGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);`

| `procedure StatusBarClick(Sender: TObject);`

| `procedure imageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);`

| `procedure cbTableOrGallerySelect(Sender: TObject);`

| `procedure DBGridDrawColumnCell(Sender: TObject; const [Ref] Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);`

| `procedure pInsertInDocumentClick(Sender: TObject);`

| `procedure pAddFileClick(Sender: TObject);`

| `procedure pDeleteFileClick(Sender: TObject);`

| `procedure pGetLinkClick(Sender: TObject);`

| `procedure pDownloadFileClick(Sender: TObject);`

| `procedure pSearchClick(Sender: TObject);`

| `procedure pSortClick(Sender: TObject);`

| `procedure bOpenAllFilesClick(Sender: TObject);`

| `constructor Create(AOwner: TComponent); override;`
Public declarations

| `destructor Destroy; override;`

| `procedure DefineServerToRequest;`
this will define Server To Request like FHTTPServerToRequest := Protocol + '://' + Host + ':' + Port; we define it in one unit and can use in different one

| `procedure InitialUpdate;`
uploads root directory for current user

| `procedure UpdateCurrentFolder;`

| `procedure DownloadAndSetOnePicture;`

| `procedure DownloadFile;`

| `procedure GiveHumanFileSize(FilSizeBytes: Int64; var HumanFileSize: String);`

### Properties

| `property FDConnection: TFDConnection read FFDConnection write FFDConnection;`
Connection property

| `property HTTP_ConnectionParams: THTTP_ConnectionParams read FHTTP_ConnectionParams write FHTTP_ConnectionParams;`

| `property HTTPServerToRequest: string read FHTTPServerToRequest write FHTTPServerToRequest;`

| `property HTTPRequests: THTTPRequests read FHTTPRequests write FHTTPRequests;`

| `property CS: TCriticalSection read FCS write FCS;`

| `property CS2: TCriticalSection read FCS2 write FCS2;`

| `property LinksOnKeep2Share: TStringList read FLinksOnKeep2Share write FLinksOnKeep2Share;`

| `property SendFileInChunks: TSendFileInChunks read FSendFileInChunks write FSendFileInChunks;`

| `property OnKeep2ShareEndUpload: TNotifyEvent read FOnKeep2ShareEndUpload write FOnKeep2ShareEndUpload;`

| `property FilesSL: TStringList read FFilesSL write FFilesSL;`

| `property OnKeep2ShareStartUpload: TNotifyEvent read FOnKeep2ShareStartUpload write FOnKeep2ShareStartUpload;`

| `property DataBaseUnit: TDataBaseUnit read FDataBaseUnit write FDataBaseUnit;`

| `property GetLinkForm: TfGetLink read FGetLinkForm write FGetLinkForm;`

| `property FileType: TFileType read FFileType write FFileType;`

| `property InsertPictureInDocument: TInsertPictureInDocument read FInsertPictureInDocument write FInsertPictureInDocument;`

| `property IsAllFilesMode: boolean read FIsAllFilesMode write FIsAllFilesMode;`

| `property Delete_PS_HTTPClient: TDelete_PS_HTTPClient read FDelete_PS_HTTPClient write FDelete_PS_HTTPClient;`

| `property CSDownloadPicture: TCriticalSection read FCSDownloadPicture write FCSDownloadPicture;`

| `property CSDownloadFile: TCriticalSection read FCSDownloadFile write FCSDownloadFile;`

| `property CurrentPictureWidth: Integer read FCurrentPictureWidth write FCurrentPictureWidth;`

| `property CurrentPictureHeight: Integer read FCurrentPictureWidth write FCurrentPictureWidth;`

| `property idCurrentParent: integer read FidCurrentParent write FidCurrentParent;`

Generated by PasDoc 0.14.0.