2009/11/18 Jeff Cook <je...@aspect.co.nz> > Hi Anton > > I think you just need to use the OnProgress event like this ... > > procedure TFTPDownloadForm.FTPProgress(Sender: TObject; Count: Integer; > var Abort: Boolean); > begin > Abort := bCancel; // bCancel is a boolean set by clicking cancel > button > progDB.Position := Count; > end; > > HTH > > Jeff > > Thank you Jeff!
procedure TFTPClientForm.FtpClient1Progress64(Sender: TObject; Count: Int64; var Abort: Boolean); begin ProgressBar1.Position:=Count; end; procedure TFTPClientForm.FtpClient1RequestDone(Sender: TObject; RqType: TFtpRequest; ErrCode: Word); begin ProgressBar1.Position:=0; end; ICS is the best! -- 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
