Hallo!
Ich habe mir einen kleinen
FTP-Server mit TIdFTPServer gebastelt und teste ihn mit Windows Explorer.
Nach dem Login sollten normalerweise die Ornder und Dateien aufgelistet werden, die in dem selben Ordner liegen, wie die Server-Datei. Passiert aber nicht. Stattdesen bekomme ich eine Fehlermeldung vom Explorer:
Beim Öffnen des Ordners auf dem FTP-Server ist ein Fehler aufgetreten.
Stellen Sie sicher, dass Sie die erforderlichen Zugriffsrechte für den Ordner haben.
Details:
In den Microsoft-Interneterweiterungen ist ein interner Fehler aufgetreten.
Was ist das? Mache ich etwas falsch? Welche Zugriffsrechte?
Hier meine Login-Kode:
Delphi-Quellcode:
procedure TForm1.FTPServerUserLogin(ASender: TIdFTPServerContext; const AUsername, APassword: string; var AAuthenticated: Boolean);
begin
AAuthenticated := false;
if AUsername = 'system' then
begin
AAuthenticated := FTPAdminLogin(APassword);
if not AAuthenticated then
exit;
ASender.HomeDir := '\';
end;
end;