My computer is DELPHI2007, after opening, compile tip:
[DCC Error] FTPServer. Pas (23) : E2003 Undeclared identifier: 'TIdFTPServerThread'
[DCC Error] FTPServer. Pas (33) : E2003 Undeclared identifier: 'TIdCommand'
[DCC Error] FTPServer. Pas (34) : E2003 Undeclared identifier: 'TIdPeerThread'
[DCC Error] FTPServer. Pas (65) : E2003 Undeclared identifier: 'EmulateSystem'
[DCC Error] FTPServer. Pas (65) : E2003 Undeclared identifier: 'ftpsUNIX'
[DCC Error] FTPServer. Pas (66) : E2010 Incompatible types: 'TStrings' and' string '
Accompanied by a bunch of mistakes, could you tell me what this is
Part of the error code
Procedure IdFTPServer1UserLogin (ASender: TIdFTPServerThread; Const AUsername, APassword: string; Var AAuthenticated: Boolean);
Procedure IdFTPServer1ListDirectory (ASender: TIdFTPServerThread; Const APath: string; ADirectoryListing: TIdFTPListItems);
Procedure IdFTPServer1RenameFile (ASender: TIdFTPServerThread; Const ARenameFromFile ARenameToFile: string);
Procedure IdFTPServer1RetrieveFile (ASender: TIdFTPServerThread; Const AFilename: string; Var VStream: TStream);
Procedure IdFTPServer1StoreFile (ASender: TIdFTPServerThread; Const AFilename: string; AAppend: Boolean; Var VStream: TStream);
Procedure IdFTPServer1RemoveDirectory (ASender: TIdFTPServerThread; Var VDirectory: string);
Procedure IdFTPServer1MakeDirectory (ASender: TIdFTPServerThread; Var VDirectory: string);
Procedure IdFTPServer1GetFileSize (ASender: TIdFTPServerThread; Const AFilename: string; Var VFileSize: Int64);
Procedure IdFTPServer1DeleteFile (ASender: TIdFTPServerThread; Const APathname: string);
Procedure IdFTPServer1ChangeDirectory (ASender: TIdFTPServerThread; Var VDirectory: string);
Procedure IdFTPServer1CommandXCRC (ASender: TIdCommand);
Procedure IdFTPServer1DisConnect (AThread: TIdPeerThread);
CodePudding user response:
Can, under the D7 D2007 under control to change, the code will be modified,