INDY 10 FTP

[Klaus01]

Vielleicht erscheint es so etwas aufgeräumter.

Delphi-Quellcode:

procedure TForm1.IdFTPServer1UserLogin(ASender: TIdFTPServerContext;
  const AUsername, APassword: string; var AAuthenticated: Boolean);
begin

  AAuthenticated := ('test' = AUsername) and ('test' = APassword);
  if AAuthenticated then
    begin
      ASender.HomeDir := '\\apollo\daten\edv\_tmp';
      ASender.CurrentDir := '\\apollo\daten\edv\_tmp';
    end;

end;

Gute Nacht
Klaus