delphi ftp get方法不能续传

Question

        if (pBytesToTransfer - FileSizeByName(strName)) > 0 then
        begin
          sfileName := LocalDir + RemoteDir + strName;
          AFileStream := TFileStream.Create(sfileName,fmOpenWrite);
          //找到断点
          AFileStream.Position := AFileStream.Size;
          try
            while AFileStream.Position < pBytesToTransfer do
            begin
              idFTP.Get(strName,AFileStream,True);
代码就这几句，续传后总是从断点处把整个文件加进去。而不是从断点开始续传

Answer 1

一个服务器是否支持断点续传，我们可以通过发送 REST 1 这个FTP指令来检测，如果返回350则表示支持。

Answer 2

这方法没用返回值是smallint，idftp1.SendCmd（‘REST 1’），在watch里看不到
我听说get不支持断点续传 要改源码

Answer 3

关键是我根本就不用线程做，我就想用自带的方法可以实现，只是不知道方法
用get和sendcmd都行
服务端我用idftpserver
楼上做过吗？