ICS中的FTP SERVER可以制作一个简单的FTP server(重要的是可以集成到系统中），但不知如何设定FTP的工作目录及设定帐号？（演示中无此说明）

{ This event handler is called when the FTP component needs to build a      }
{ directory listing. You can just return without doing anything then the    }
{ component will build the directory for you, based on the actual disk      }
{ content. But you can also build your own directory listing with anything  }
{ you like in it. Just create a stream with the required content. The       }
{ example below construct a virtual directory when the user is on the       }
{ C:\VIRTUAL subdirectory (use elsewhere in this sample program).           }
procedure TFtpServerForm.FtpServer1BuildDirectory(
    Sender        : TObject;
    Client        : TFtpCtrlSocket;
    var Directory : TFtpString;
    Detailed      : Boolean);
var
    Buf : String;
begin
    if UpperCase(Client.Directory) <> 'C:\VIRTUAL\' then
        Exit;
    InfoMemo.Lines.Add('! VIRTUAL DIR');
    Client.UserData   := 1;        { Remember we created a stream }
    if Assigned(Client.DataStream) then
        Client.DataStream.Destroy; { Prevent memory leaks         }
    Client.DataStream := TMemoryStream.Create;
    if Detailed then
        { We need to format directory lines according to the Unix standard }
        Buf :=
      '-rwxrwxrwx   1 ftp      ftp            0 Apr 30 19:00 FORBIDEN'   #13#10  
      '-rwxrwxrwx   1 ftp      ftp            0 Apr 30 19:00 TEST'   #13#10  
      'drwxrwxrwx   1 ftp      ftp            0 Apr 30 19:00 SOME DIR'   #13#10
    else
        Buf := 'FORBIDEN'   #13#10  
               'TEST'   #13#10;
    Client.DataStream.Write(Buf[1], Length(Buf));
    Client.DataStream.Seek(0, 0);
end; 

 procedure TFtpServerForm.FtpServer1Authenticate(Sender: TObject;
  Client: TFtpCtrlSocket; UserName, Password: TFtpString;
  var Authenticated: Boolean);
begin
    { You should place here the code needed to authenticate the user. }
    { For example a text file with all permitted username/password.   }
    { If the user can't be authenticated, just set Authenticated to   }
    { false before returning.                                         }
    { It is also the right place to setup Client.HomeDir              }
    { If you need to store info about the client for later processing }
    { you can use Client.UserData to store a pointer to an object or  }
    { a record with the needed info.                                  }
    InfoMemo.Lines.Add('! '   Client.GetPeerAddr  
                       ' User '''   UserName   ''' is authenticated');
    if Password = 'bad' then
        Authenticated := FALSE;
end;

This code is only for client response to change current FTP working directory. But How to set default working dir when FTP server is starting? As My testing the default dir is c:\ or c:\temp before client change directory. The 2nd code is OK for user authorization! Thanks.

若要設default directory，是可以在 Authenticate 裡 將 anonymous 登入的使用者，指向某個目錄，而其他 帳號登入的使用者，則指向各自的目錄，語法如下 if LowerCase(UserName)='anonymous' then Client.HomeDir:='c:\Temp'; 參考看看!!

Good idea! I will test it.Thanks.

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.