從資源里下載了個 delphi7創建FTP服務端和客戶端的問題
我電腦上裝的是DELPHI2007的，打開后。編譯提示：
[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'
后面還一堆的錯誤，請問這是什么情況
出錯部分的代碼
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 ) ;
uj5u.com熱心網友回復：
D7下可以通過，D2007下控制元件有所變化，代碼必修改。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/70476.html
標籤：網絡通信/分布式開發
下一篇：常用的Websocket技術一覽