Hallo zusammen,
ich bin gerade dabei mir einen kleinen
FTP Server mit
INDY 10 Komponenten zu basten.
Ich habe nur ein Paar kleine Probleme. Evtl. könnt ihr mir ja weiter helfen.
Als 1.
funktioniert u.g. Procedure bei mir nicht. Wenn ich mich connecte, lande ich immer in einem unbestimmten Verzeichnis, in welchem ich keine Rechte oder ähnliches habe. Ein ChangeDirectory funzt auch nicht.
Delphi-Quellcode:
procedure TForm1.IdFTPServer1AfterUserLogin(ASender: TIdFTPServerContext);
begin
ASender.HomeDir := '\\apollo\daten\edv\_tmp';
ASender.CurrentDir := '\\apollo\daten\edv\_tmp';
//ASender.CurrentDir := '/';
//ASender.HomeDir := '/';
end;
2.
funktioniert bei trotz u.g. der Anonymous Login. Jemand eine Idee?
Delphi-Quellcode:
procedure TForm1.IdFTPServer1UserLogin(ASender: TIdFTPServerContext;
const AUsername, APassword: string; var AAuthenticated: Boolean);
begin
if idftpserver1.active = true then
begin
AAuthenticated := False;
if ('test' = AUsername) and ('test' = APassword) then
begin
AAuthenticated := True;
ASender.HomeDir := '\\apollo\daten\edv\_tmp';
ASender.CurrentDir := '\\apollo\daten\edv\_tmp';
end;
end else AAuthenticated := False;
// We just set AAuthenticated to true so any username / password is accepted
// You should check them here - AUsername and APassword
//AAuthenticated := True;
end;
Wäre für jeden Tipp dankbar.