delphi上传文件到ftp服务器,求用Delphi实现的FTP服务器端程序

{ $HDR$}

{**********************************************************************}

{ Unit archived using Team Coherence                                   }

{ Team Coherence is Copyright 2002 by Quality Software Components      }

{                                                                      }

{ For further information / comments, visit our WEB site at            }

{ http://www.TeamCoherence.com                                         }

{**********************************************************************}

{}

{ $Log:  23310: FTPServer_console.dpr

{

{   Rev 1.1    25/10/2004 22:48:54  ANeillans    Version: 9.0.17

{ Verified

}

{

{   Rev 1.0    12/09/2003 22:47:52  ANeillans

{ Initial Checkin

{ Verified against Indy 9 and D7

}

{

Demo Name:  FTP Server Demo

Created By: Bas Gooijen

On: Unknown

Notes:

FTP Server Demo

Sample of the usage of the TIdFtpServer component.

Also shows how to use Indy in console apps

Username: myuser

Password: mypass

Version History:

None

Tested:

Indy 9:

D5:     Untested

D6:     Untested

D7:     25th Oct 2004 by Andy Neillans

Tested with Microsoft FTP Client

}

program FTPServer_console;

{$APPTYPE console}

uses

Classes,

windows,

sysutils,

IdFTPList,

IdFTPServer,

idtcpserver,

IdSocketHandle,

idglobal,

IdHashCRC;

type

TFTPServer = class

private

{ Private declarations }

IdFTPServer: tIdFTPServer;

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 ) ;