G
ggqq74
Unregistered / Unconfirmed
GUEST, unregistred user!
代码:
IdFtp1.Host:=127.0.0.1'; IdFtp1.UserName:='FTP'; IdFtp1.Password:='123456'; IdFtp1.Port:=21; IdFtp1.Connect(True); Count:=IdFtp1.Size('/Temp/Temp.exe'); Counter:=Round(Count/1024000)+1; Counter1:=0; while Counter1<=Counter do begin if not IdFtp1.Connected then IdFtp1.Connect(True); IdFtp1.SendCmd('Reset '+IntToStr(Counter1*1024000)); Inc(Counter1); Memo1.Lines.Add('--------------------------'+IntToStr(Counter1) ); Application.ProcessMessages; sleep(1000); end; IdFtp1.Abort;