many small POSIX and NEXTGEN fixes (ACBr)

git-svn-id: https://svn.code.sf.net/p/synalist/code/trunk@260 7c85be65-684b-0410-a082-b2ed4fbef004

ftpsend.pas

@@ -69,7 +69,13 @@ interface
 
 uses
   SysUtils, Classes,
-  blcksock, synautil, synaip, synsock;
+  blcksock, synautil, synaip, synsock
+  {$IfDef POSIX}
+   ,System.Generics.Collections, System.Generics.Defaults
+  {$EndIf}
+  {$IfDef NEXTGEN}
+   ,synafpc
+  {$EndIf};
 
 const
   cFtpProtocol = '21';
@@ -124,12 +130,18 @@ type
     property Permission: string read FPermission write FPermission;
   end;
 
+  {$IFDEF POSIX}
+    TFTPRecList = TList<TFTPListRec>;
+  {$ELSE}
+    TFTPRecList = TList;
+  {$ENDIF}
+
   {:@abstract(This is TList of TFTPListRec objects.)
    This object is used for holding lististing of all files information in listed
    directory on FTP server.}
   TFTPList = class(TObject)
   protected
-    FList: TList;
+    FList: TFTPRecList;
     FLines: TStringList;
     FMasks: TStringList;
     FUnparsedLines: TStringList;
@@ -181,7 +193,7 @@ type
 
     {:By this property you have access to list of @link(TFTPListRec).
      This is for compatibility only. Please, use @link(Items) instead.}
-    property List: TList read FList;
+    property List: TFTPRecList read FList;
 
     {:By this property you have access to list of @link(TFTPListRec).}
     property Items[Index: Integer]: TFTPListRec read GetListItem; default;
@@ -1236,7 +1248,7 @@ end;
 constructor TFTPList.Create;
 begin
   inherited Create;
-  FList := TList.Create;
+  FList := TFTPRecList.Create;
   FLines := TStringList.Create;
   FMasks := TStringList.Create;
   FUnparsedLines := TStringList.Create;

httpsend.pas

@@ -64,13 +64,20 @@ Used RFC: RFC-1867, RFC-1947, RFC-2388, RFC-2616
   {$WARN IMPLICIT_STRING_CAST_LOSS OFF}
 {$ENDIF}
 
+{$IFDEF NEXTGEN}
+  {$ZEROBASEDSTRINGS OFF}
+{$ENDIF}
+
 unit httpsend;
 
 interface
 
 uses
   SysUtils, Classes,
-  blcksock, synautil, synaip, synacode, synsock;
+  blcksock, synautil, synaip, synacode, synsock
+  {$IFDEF NEXTGEN}
+   ,synafpc
+  {$ENDIF};
 
 const
   cHttpProtocol = '80';

snmpsend.pas

@@ -71,7 +71,13 @@ interface
 
 uses
   Classes, SysUtils,
-  blcksock, synautil, asn1util, synaip, synacode, synacrypt;
+  blcksock, synautil, asn1util, synaip, synacode, synacrypt
+  {$IfDef POSIX}
+   ,System.Generics.Collections, System.Generics.Defaults
+  {$EndIf}
+  {$IfDef NEXTGEN}
+   ,synafpc
+  {$EndIf};
 
 const
   cSnmpProtocol = '161';
@@ -162,6 +168,12 @@ type
     EngineStamp: Cardinal;
   end;
 
+  {$IFDEF POSIX}
+    TSNMPMibList = TList<TSNMPMib>;
+  {$ELSE}
+    TSNMPMibList = TList;
+  {$ENDIF}
+
   {:@abstract(Data object abstracts SNMP data packet)}
   TSNMPRec = class(TObject)
   protected
@@ -171,7 +183,7 @@ type
     FErrorStatus: Integer;
     FErrorIndex: Integer;
     FCommunity: AnsiString;
-    FSNMPMibList: TList;
+    FSNMPMibList: TSNMPMibList;
     FMaxSize: Integer;
     FFlags: TV3Flags;
     FFlagReportable: Boolean;
@@ -228,7 +240,7 @@ type
     function MIBByIndex(Index: Integer): TSNMPMib;
 
     {:List of @link(TSNMPMib) objects.}
-    property SNMPMibList: TList read FSNMPMibList;
+    property SNMPMibList: TSNMPMibList read FSNMPMibList;
   published
     {:Version of SNMP packet. Default value is 0 (SNMP ver. 1). You can use
      value 1 for SNMPv2c or value 3 for SNMPv3.}
@@ -436,7 +448,7 @@ implementation
 constructor TSNMPRec.Create;
 begin
   inherited Create;
-  FSNMPMibList := TList.Create;
+  FSNMPMibList := TSNMPMibList.Create;
   Clear;
   FAuthMode := AuthMD5;
   FPassword := '';

sntpsend.pas

@@ -54,13 +54,20 @@ Used RFC: RFC-1305, RFC-2030
 {$Q-}
 {$H+}
 
+{$IFDEF NEXTGEN}
+  {$ZEROBASEDSTRINGS OFF}
+{$ENDIF}
+
 unit sntpsend;
 
 interface
 
 uses
   SysUtils,
-  synsock, blcksock, synautil;
+  synsock, blcksock, synautil
+  {$IFDEF NEXTGEN}
+   ,synafpc
+  {$ENDIF};
 
 const
   cNtpProtocol = '123';