IdFTP: Falls Login benötigt wird darauf reagieren

[JonnyGuitar]

Guten Morgen,

ich stehe vor einem Problem. Wenn ich mich z.B. auf einen Webserver mit der idHTTP Komponente (Indy10) verbinde und eine zu runterladene Datei benötigt für den Zugriff Benutzername und Passwort so wird das Event OnHTTPAuthorization ausgelöst und ich drauf reagieren in dem ich ein Loginfenster anzeige.

Wie läuft das ganze aber bei idFTP? Ich gebe den Hostnamen ein und versuche mich darauf zu verbinden. Da aber anonym nicht erlaubt ist bin ich mal davon ausgegangen das er in den Event OnNeedAccount reinspringt. Macht er aber leider nicht, stattdessen bekomme ich eine Syntax Error Meldung.

Wie ist dort das richtige Vorgehen, so dass ich darauf reagieren kann um dem User zu ermöglichen seine Credentials einzugeben?


mfg Jonny

[mjustin]

Zitat von JonnyGuitar:

Guten Morgen,

ich stehe vor einem Problem. Wenn ich mich z.B. auf einen Webserver mit der idHTTP Komponente (Indy10) verbinde und eine zu runterladene Datei benötigt für den Zugriff Benutzername und Passwort so wird das Event OnHTTPAuthorization ausgelöst und ich drauf reagieren in dem ich ein Loginfenster anzeige.

Wie läuft das ganze aber bei idFTP? Ich gebe den Hostnamen ein und versuche mich darauf zu verbinden. Da aber anonym nicht erlaubt ist bin ich mal davon ausgegangen das er in den Event OnNeedAccount reinspringt. Macht er aber leider nicht, stattdessen bekomme ich eine Syntax Error Meldung.

Wie ist dort das richtige Vorgehen, so dass ich darauf reagieren kann um dem User zu ermöglichen seine Credentials einzugeben?


mfg Jonny

Die Username / Password Properties werden in procedure TIdFTP.Login verwendet, ohne einen Event-Handler. Der Server sendet ja kein 'ich brauche jetzt bitte die Anmeldedaten' - Event zum Client, sondern wartet darauf, dass dieser sich nach dem verbindungsaufbau anmeldet:

Delphi-Quellcode:

  case ProxySettings.ProxyType of
  fpcmNone:
    begin
      if SendCmd('USER ' + FUserName, [230, 232, 331]) = 331 then begin {do not localize}
        SendCmd('PASS ' + GetLoginPassword, [230, 332]);  {do not localize}