The Implementation of an FTP Server

This is perhaps the most important procedure of them all. This event lists all the files in a given directory. It is from here that you can manipulate all the files on a file system. So let's step carefully through the code.

The first thing that we do is use the FindFirst/FindNext functions to run through any files that may be in a directory. So we use the path that the client sent, which is stored in the Apath variable:

SRI := FindFirst(HomeDir +APath + '*.*', faAnyFile - faHidden - 

faSysFile, SR);

Then as FindFirst finds the files, we use the specially created list item type to store the different components of the files:

LFTPItem := ADirectoryListing.Add;
   LFTPItem.FileName := SR.Name;
   LFTPItem.Size := SR.Size;
   LFTPItem.ModifiedDate := FileDateToDateTime(SR.Time); 

Then we check to see whether a directory has been found, and store the relevant file type.

 if SR.Attr = faDirectory then
     LFTPItem.ItemType   := ditDirectory
else
LFTPItem.ItemType   := ditFile;
SRI := FindNext(SR);

Then we simply close the file search operation down and set the current directory :

 FindClose(SR);
SetCurrentDir(HomeDir + APath + '..');

procedure TForm1.IdFTPServer1ListDirectory(ASender:TIdFTPServerContext;
const APath: String; ADirectoryListing: TIdFTPListOutput;const ACmd,
ASwitches: String);
var
LFTPItem :TIdFTPListItem;
SR : TSearchRec;
SRI : Integer;
begin
ADirectoryListing.DirFormat := doUnix;
SRI := FindFirst(HomeDir + APath + '*.*', 

faAnyFile - faHidden - faSysFile, SR);
While SRI = 0 do
begin
LFTPItem := ADirectoryListing.Add;
LFTPItem.FileName := SR.Name;
LFTPItem.Size := SR.Size;
LFTPItem.ModifiedDate := FileDateToDateTime(SR.Time);
if SR.Attr = faDirectory then
LFTPItem.ItemType   := ditDirectory
    else
     LFTPItem.ItemType   := ditFile;
     SRI := FindNext(SR);
end;
FindClose(SR);
SetCurrentDir(HomeDir + APath + '..');
end;