Refactoring, optimization

Fixed errors with graph - when downloaded more than a 65000 bytes in a 0.1 second and when window width more than 3000 pixels

RnQBuiltTime.inc

@@ -1,2 +1,2 @@
-{ 24.10.2022 0:03:34 }
- BuiltTime = 44858.0024831944;
+{ 21.05.2023 1:39:50 }
+ BuiltTime = 45067.0693305903;

compressHFS.bat

@@ -1,2 +1,10 @@
-@copy hfs.exe "HFS320_RD.exe"
-upx.exe -9 --lzma "HFS320_RD.exe"
+@IF "%1" EQU "x64" goto x64
+ECHO Processing x86
+@copy binWin32\hfs.exe "binWin32\HFS321_RD.exe"
+upx.exe -9 --lzma "binWin32\HFS321_RD.exe"
+exit
+:x64
+ECHO Processing x64
+@copy binWin64\hfs.exe "binWin64\HFS321_RDx64.exe"
+upx.exe -9 --lzma "binWin64\HFS321_RDx64.exe"
+

hfsGlobal.pas

@@ -17,7 +17,6 @@ interface
   CRLFA = RawByteString(#13#10);
   TAB = #9;
   BAK_EXT = '.bak';
-  VFS_FILE_IDENTIFIER = 'HFS.VFS';
   CFG_KEY = 'Software\rejetto\HFS';
   CFG_FILE = 'hfs.ini';
   TPL_FILE = 'hfs.tpl';
@@ -35,7 +34,6 @@ interface
   STATUSBAR_REFRESH = 10; // tenth of second
   MAX_RECENT_FILES = 5;
   MANY_ITEMS_THRESHOLD = 1000;
-  COMPRESSION_THRESHOLD = 10*KILO; // if more than X bytes, VFS files are compressed
   STARTING_SNDBUF = 32000;
   YESNO :array [boolean] of string=('no','yes');
   DEFAULT_MIME = 'application/octet-stream';
@@ -101,12 +99,10 @@ interface
 
 //  Pboolean = ^boolean;
 
-  TfilterMethod = function(self:Tobject):boolean;
+  TfilterMethod = function(self: Tobject): Boolean;
 
   Thelp = ( HLP_NONE, HLP_TPL );
 
-  TpreReply =  (PR_NONE, PR_BAN, PR_OVERLOAD);
-
 type
   TTrayShows = (TS_downloads, TS_connections, TS_uploads, TS_hits, TS_ips, TS_ips_ever, TS_none);
 

hfsVars.pas

@@ -35,13 +35,6 @@ interface
   addFolderDefault: string;    // how to default adding a folder (real/virtual)
   toDelete: Tlist;             // connections pending for deletion
   speedLimitIP: real;
-  maxConnections: integer;     // max number of connections (total)
-  maxConnectionsIP: integer;   // ...from a single address
-  maxContempDLs: integer;      // max number of contemporaneous downloads
-  maxContempDLsIP: integer;    // ...from a single address
-  maxContempDLsUser: integer;  // ...from a single user
-  maxIPs: integer;             // max number of different addresses connected
-  maxIPsDLing: integer;        // max number of different addresses downloading
 //  autoFingerprint: integer;    // create fingerprint on file addition
   renamePartialUploads: string;
   allowedReferer: string;      // check over the Refer header field
@@ -57,6 +50,7 @@ interface
   queryingClose: boolean;
 //  tpl_help: string;
   lastWindowRect: Trect;
+  lastEverySec: TDateTime;
   tplEditor: string;
   tplLast: Tdatetime;
   tplImport: boolean;
@@ -65,7 +59,6 @@ interface
   cfgPath, tmpPath: string;
   logMaxLines: integer;     // number of lines
   windowsShuttingDown: boolean = FALSE;
-  dontLogAddressMask: string;
   openInBrowser: string; // to not send the "attachment" suggestion in header
   quitASAP: boolean;  // deferred quit
   quitting: boolean; // ladies, we're quitting