I recently upgraded my computer to an AMD64 and put my hands on an ftp server I
had worked on some time ago, to find out it wasn't sending the ftp client the
files list. After some debugging I located the problem here:
in FtpSrv.pas, at procedure TFtpServer.BuildDirectory
if Params = '' then
Path := Client.Directory + '*.*'
else
if (UpperCase(Params) = '-LA') or (UpperCase(Params)='-AL') then begin
ListHidden := TRUE;
Path := Client.Directory + '*.*';
end
else
Path := BuildFilePath(Client, Client.Directory, Params);
My ftp client sends "list -latr" and "-latr" is the content of PATH after
processing for Params, so the problem seems to be in BuildFilePath.
Any come across this problem and knows what's wrong ?
--
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be
