Hi,
I've been carrying this change forward for a while now and
was wondering if it could be merged into the source.
in
TCustomFtpCli I added a property to access FRequestResult and added a
property to get at the Duration of the FTP transfer.
code:
in TCustomFtpCli
added:
FDuration :
Int64;
Added:
property
Duration
:
Int64
read FDuration
write FDuration;
property
RequestResult :
Integer
read FRequestResult
write FRequestResult;
in:
procedure TCustomFtpCli.TransfertStats;
after:
if DWORD (FStopTime) >= DWORD (FStartTime)
then { V2.102 fix zero duration downloads }
Duration := DWORD (FStopTime)
- DWORD (FStartTime)
else
Duration := ($FFFFFFFF -
DWORD (FStartTime)) + DWORD (FStopTime);
added:
FDuration := Duration;
This allows a
program to display the transfer statistics with out having to parse the
result string.
Thanks.
John C.
--
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
