> FTPS.TargetHost:= 'Localhost';
> FTPS.TargetPort := '21';
> FTPS.UserName := 'market';
> FTPS.Password := '';
> if ftps.login then begin
> form1.Caption:= 'OK';
> end else
> form1.Caption:= 'Bad';
> FTPS.DSock.OnStatus := callback.Status;
> FtpGetFile('localhost', '21', 'data_06.7z', 'data_06.7z', 'market', '');You not see what you are doing wrong here? You set OnStatus hook for one TFTpsend instance, but data transfer you made by different TFTPsend instance created inside helper (!) and sample(!) function FtpGetFile. This function is designed for simple data download and as sample how to use TFTPsend class. (As is written in documentation!) -- Lukas Gebauer. E-mail: [EMAIL PROTECTED] WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP Library ------------------------------------------------------------------------- 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
