TIdFTP.Get Event

Giganews Newsgroups
Subject: TIdFTP.Get Event
Posted by:  Georg Friedrich (magicba…@gmx.de)
Date: Wed, 13 Sep 2006

Hi,
in the newest version of the indy ftp component the doafterget event isn't
called
the problem lies here:

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;
  DoBeforeGet;  <----- THIS LINE WAS DELETED
  // RLebeau 7/26/06: do not do this! It breaks the ability to resume files
  // ADest.Position := 0;
  InternalGet('RETR ' + ASourceFile, ADest, AResume);
  DoAfterGet(ADest); <----- THIS LINE WAS DELETED, TOO.
end;

Please fix that in the next snapshot.
Thanks.
Bye

Replies