| Kaf Dağı | 27 Mart 2015 15:07 |
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;
| 