关于IDFTP断点上传问题
fileRoute:=fileRoute+'\'+loadRoute+'.rar'; fileCatalog:= ExtractFileName(fileRoute); tStream:= TFileStream.Create(fileRoute,fmOpenRead or fmShareDenyWrite); //抓取断点 tStream.Seek(IdFTP_Conn.Size(fileCatalog),soFromBeginning); //开始断点续传 myStream:= TMemoryStream.Create; if b_IfExistence= True then begin try while (tStream.Position <> tStream.Size) do begin s:= tStream.Read(buf,SizeOf(buf)); myStream.Write(buf,s); end; tStream.Free; IdFTP_Conn.Quote('REST'+ FloatToStr(IdFTP_Conn.Size(fileCatalog))); IdFTP_Conn.Put(myStream,fileCatalog,False); Application.ProcessMessages; myStream.Free;