Robie chata i mam takie procedurki:
procedure TForm1.WyslijDoIP(IP, Txt: String);
var
i: Integer;
begin
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
if Server.Socket.Connections[i].LocalAddress=IP then
begin
Server.Socket.Connections[i].SendText(Txt);
end;
end;
end;
procedure TForm1.WyslijDoWszystkich(Txt: String);
var
i: Integer;
begin
for i:=0 to Server.Socket.ActiveConnections-1 do
begin
Server.Socket.Connections[i].SendText(Txt);
end;
end;
I mam z tym problem tzn to akurat działą ale nie wiem jak zrobic nicki i jak zrobic Privy myślałem ze z nickami tak można zrobic ze pierwszy odebrany txt od klienta z czołowym słowem NICK na poczatku a drugim słowem to jego nick wtedy dodawwany do listboxa ale jesli w listboxie jest juz taki nick odsyła do klienta odpowiedz ze nick juz jest czylli text np "NICK BAD" jak zrobic to z nickami czy ktoś ma jakieś pomysły może jakiś kod?