Forum: Netzwerke
Delphi
by Klaus01,
12. Jan 2008
Ja, bin ich dann wohl, aber das Problem war ja weiter oben schon geklärt.
Grüße
Klaus
Forum: Netzwerke
Delphi
by Klaus01,
11. Jan 2008
Vielleicht erscheint es so etwas aufgeräumter.
procedure TForm1.IdFTPServer1UserLogin(ASender: TIdFTPServerContext;
const AUsername, APassword: string; var AAuthenticated: Boolean);
begin
AAuthenticated := ('test' = AUsername) and ('test' = APassword);
if AAuthenticated then
begin
Forum: Netzwerke
Delphi
by Klaus01,
11. Jan 2008
Hallo,
kann es sein, dass Du bei ASender.HomeDir einen absoluten Pfad
eintragen solltest?
ASender.HomeDir := 'd:\ftproot';
Grüße
Klaus