There's missing part in DoHighLevelAsync - it can't handle ftpFctSyst request. 
Here's what should be added:

    if ftpFctSyst in FFctSet then begin
        FFctPrv := ftpFctSyst;
        FFctSet := FFctSet - [FFctPrv];

And another thing: I suggest some way to redetermine socket class used in 
client - maybe through SocketClass property, maybe through virtual CreateSocket 
function. The goal is to use custom extended versions of TWSocket. What I've 
done for my project is
    function    CreateSocket: TWSocket; virtual;

in constructor
    FControlSocket      := CreateSocket;
    FDataSocket                       := CreateSocket;

and redefined this method in FTPCli descendant.

To unsubscribe or change your settings for TWSocket mailing list
please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to