[Kaf_Dağı]

Birden fazla server cliente bağlanırsa

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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;