[IdFtp, IndyFTP] Download fortsetzen funtzt einfach nicht!

[CK_CK]

Ich hab' die IdFTP.Get-Methode umgeschrieben. So funktioniert sie wie gewünscht:

Delphi-Quellcode:

procedure TIdFTP.Get(const ASourceFile: string; ADest: TIdStream; AResume: Boolean = False);
begin
  //for SSL FXP, we have to do it here because InternalGet is used by the LIST command
  //where SSCN is ignored.
  ClearSSCN;
  AResume := AResume and CanResume;
  if AResume then
    ADest.Position := ADest.Size
  else
    ADest.Position := 0;
  InternalGet('RETR ' + ASourceFile, ADest, AResume);
end;

Viele Grüße,
Chris