Hello!
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];
SystAsync;
Exit;
end;
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.
--
Anton
--
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
