Volgender Code: (Gerade alles in einem geschrieben, der Übersicht halber),
procedure TForm1.Button1Click(Sender: TObject);
begin
idFTPServer1.DefaultPort:=21;
idFTPServer1.AllowAnonymousLogin:=true;
idFTPServer1.Active:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
idftpserver1.Active:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
idftp1.Host:='192.168.0.3';
idftp1.Port:=21;
idftp1.Connect;
Edit1.Text:=idftp1.ReadLn;
end;
procedure TForm1.IdFTPServer1Execute(AThread: TIdPeerThread);
begin
with Athread.Connection do
begin
Writeln('Connected');
end;
end;
end.
Was mach ich falsch (funktioniert nicht)? Einmal habe ich es noch versucht in dem ich bei Button2Click folgendes einsetzte:
idftp1.Username:='weiss';
idftp1.Password:='weiss';
idftp1.Login;
Aber dann wusste ich wiederum nicht mehr, wie ich beim Server (Button1Click) den Account erstellen muss.
Im Internet gibt es irgenwie auch keine richtige Hilfe. Das
indy FTP-Beispiel ist einfach zu kompliziert (für jemand wie mich).