🚀 go-pugleaf

Hi,

I'm trying to understand how the IdFTPServer works and starting to build up 
a small application, using windows xp FTP client to test it.  I can get the 
event handlers for connection, disconnection, login activities processed, 
but DIR or LS seems to be very troublesome.

In the IdFTPServerAfterUserLogin handler I set the directories as follows (I 
presume this is ok, or should be doing this some other way):

    ASender->HomeDir = "C:\\MOS\\";
    ASender->CurrentDir = "C:\\MOS\\Log\\"; or "C:\\MOS\\";

In the IdFTPServerListDirectory handler I print out the home, current, and 
parameter APath.  The APath seems to be rubbish, or has something appended. 
I'm emulating DOS and the component properties seem to indicate this is in 
use.  Am I missing something or is this a known problem?

    C:\MOS\
    C:\MOS\Log\
    C:\MOS\Log\//

The PAS file has a call to ProcessPath, is this a problem?

        ListDirectory(TIdFTPServerThread(ASender.Thread), 
ProcessPath(FCurrentDir
         , ASender.UnparsedParams), LStream, ASender.CommandHandler = 
FCmdHandlerList);

The ListDirectory does this, what is the Copy function doing?

      LPathSep := '/';    {Do not Localize}
      // Emulated System
      case FEmulateSystem of
        ftpsOther: begin
          if Assigned(OnGetCustomListFormat) then begin
            LDirectoryList.ListFormat := flfCustom;
            LDirectoryList.OnGetCustomListFormat := DoGetCustomListFormat;
          end else begin
            LDirectoryList.ListFormat := flfNone;
          end;
        end;
        ftpsDOS: begin
          LDirectoryList.ListFormat := flfDos;
          LPathSep := '\';    {Do not Localize}
        end;
        ftpsUNIX: begin
          LDirectoryList.ListFormat := flfUnix;
        end;
        ftpsVAX: begin
          LDirectoryList.ListFormat := flfVax;
        end;
      end;
      if Copy(ADirectory, Length(LPathSep), 1) <> LPathSep then begin
        ADirectory := ADirectory + LPathSep;
      end;
      // Event
      FOnListDirectory(ASender, ADirectory, LDirectoryList);


Finally, whilst on this topic (althoug I'm sure it won't be my last, where 
is the client IP connection data recorded, I can't see it in the 
TIdFTPServerThread *ASender and TIdPeerThread *AThread parameters?  Is it 
accessible as I would like to validate client IP addresses, not just the 
user accounts?

Regards,

Paul