1. Original code:
function TFTPSend.ChangeToRootDir: Boolean;
begin
Result := (FTPCommand('CDUP') div 100) = 2;
end;
By RFC 959, CDUP makes the parent of the currently working directory to be the
working directory. There is no direct command to change working directory to
root, unless:
function TFTPSend.ChangeToRootDir: Boolean;
begin
//SZ
//Result := (FTPCommand('CDUP') div 100) = 2;
Result := (FTPCommand('CDW /') div 100) = 2;
end;
//SZ
function TFTPSend.ChangeToParentDir: Boolean;
begin
Result := (FTPCommand('CDUP') div 100) = 2;
end;
2. Passive mode property is enabled by default during class creation. Some FTP
servers refuse data transfer in that case, unless passive mode is disabled
before connection. Suitable to change passive mode to disable by default?
Sasa
--
www.szutils.net
-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier.
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642
_______________________________________________
synalist-public mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/synalist-public
