Ignorieren Liste

[Knotti2005]

Ja schön,

weil ich bei Empfangsprozedur das f vergessen habe...

(Hab auf dem Zeugnis ne 2 in Deutsch)...

So platt rede ich auch nicht und stark verkürzen wie meine Klassenkammeradinnen (Wa geht in de Disi morn?) tut ich Sätze auch noch nicht...

Hänge immernoch an diesem Problem..

[Sko]

Wenn ich das richtig sehe möchtest du, das vor dem Anzeigen der Nachricht geprüft wird, ob sie von einem Benutzer kommt, der in der Ignorieren-Liste steht. In meinem MiniChat hab ich das so gemacht(auf deinen Code angepasst):

Delphi-Quellcode:

procedure TForm1.TcpServer1Accept(sender: TObject; 
  ClientSocket: TCustomIpClient); 
var 
  s: string; 
  nick: string; 
  DataThread: TClientDataThread;
  i: integer; 
begin 
  for i := 0 to form10.listbox1.items.count - 1 do 
  begin
    if form10.listbox1.item[i] = clientsocket.remotehost then exit;
  end;
...

Da ich selbst Anfänger bin, kann es sein das es auch eine einfachere Lösung gibt, aber es funktioniert.

mfg Sko

[Knotti2005]

Vielen Dank für deine Antwort..

Leider geht dies genauso wenig ich hab in der Ingorieren Liste keine Einträge leider kann ich dann 2 mal Nachrichten Empfangen und dann stürzt das Programm komplett ab...