IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Birden fazla server cliente bağlanırsa

Kod:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;

 

  Socket: TCustomWinSocket);

 

var

 

  i:integer;  //Client makina sayısı için

 

  text : string; //Gelen veriyi okumak için

 

begin

 

  for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do

 

  begin

 

    with ServerSocket1.Socket.Connections[i] do

 

    begin

 

      text := ReceiveText; //okunan veri sRec e atanır.

 

      if text <> '' then //eğer text boş değil ise

 

      begin

 

        Memo1.Lines.Add(RemoteAddress + ' sends :'; //Gönderenin adresi

 

        Memo1.Lines.Add(text); //ve gönderdiği Text Memoya eklenir.

 

      end;

 

    end;

 

  end;

 

end;