Indy10 Clientverbindung zum Server verbieten

[Loni]

Hi ich arbeite mit Indy10 und habe einen Server und einen Clienten. Ich würde gerne wissen wie ich die Verbindung zum Server verhindere wenn das Passwort nicht mit dem Passwort in der "Datenbanck" des Servers nicht stimmt also was in Z 165 stehen muss

Delphi-Quellcode:

procedure TFKyteServer.IdTCPServer1Execute(AContext: TIdContext);
//.....
//.....
    if User<>'' then
      begin
      if vleUsers.FindRow(User,iRow) then
        begin
        sPwd:=vleUsers.Values[User];
        if Passwort=sPwd then
          begin
            //Verbindung erlauben
            LiBEreignisse.Items.Add((TimeToStr(now))+': <'+(User)+'> hat sich angemeldet');
            vleIPAdressen.InsertRow(IP,User,true);
          end
          else
            begin
//Z:165     //Verbindung verhindern bzw Client kicken      <- wie bewerkstellige ich das
            end;
        end
        else
          begin
          LiBEreignisse.Items.Add((TimeToStr(now))+': '+'Neues Konto wurde angelegt >>  [ '+'Name: '+(User)+'  Passwort: '+(Passwort)+' ]');
          vleUsers.InsertRow(User,Passwort,True);
          vleIPAdressen.InsertRow(IP,User,True);
          end;
      end;

bin dankbar für jede Antwort

[Loni]

es muss doch irgendwie gehen

[marabu]

Guten Morgen,

du kannst die Verbindung zum ungewollten Client einfach mit AContext.Connection.Disconnect beenden.

Grüße vom marabu

[Loni]

Zitat:

Verbindung zum ungewollten Client einfach mit AContext.Connection.Disconnect beenden

das hatte ich in meinen quellcode auch stehen aber es hat nicht funktioniert villt liegt es ja am clientcode
denn der sendet das passwort und alle anderen daten erst wenn die verbindung zum server steht also beim onconnected event.
Mit AContext.Connection.Disconnect klappt es bei mir nicht.