Ruslan,
> if (reason=hr_writecount) then
> inc(SizeOUT,StrToInt64Def(Value,0));
...
> FTPS.DSock.OnStatus := callback.Status;
> FtpGetFile('localhost', '21', 'data_06.7z', 'data_06.7z', 'market', '');
Notice you read data from server.
In that case use reason=hr_readcount inside onStatus hook.
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
