Id Telnet: benutzer festlegen

[edi-design]

bei der idtelnetserver komponente gibts nen ereignis das nennt sich OnAuthentification das brauchste, und dann einfach folgenden recht simplen Source von mir nehmen

Delphi-Quellcode:

procedure TForm1.telnetAuthentication(AThread: TIdPeerThread;
  const AUsername, APassword: String; var AAuthenticated: Boolean);
begin
   AAuthenticated := false;

   if AUsername = 'username' then Begin
      if Apassword = 'password' then begin
       Athread.Connection.WriteLn('Anmeldung erfolgreich. Viel Spass');
       Athread.Connection.WriteLn('');
       AAuthenticated := true;
      End;
   End
   else Begin
       Athread.Connection.WriteLn('Anmeldung fehlgeschlagen');
       Athread.Connection.Disconnect;
   End;

end;

viel spaß damit

cu andré