Send via ServerSocket

ServerSocket1.Socket.Connections[52].SendText(\'Davs\');
skule jo virke, men jeg mener at den alligevel sender til alle der er connected.

Men istedet kunne du jo sende den socket id som beskeden er tilegenet til - med i din meddelse. Og så extracte den på clients side, og se om det vil til ham.

På server siden siger du altså:

procedure TForm1.Button1Click(Sender: TObject);
Var
I:integer;
begin
for I := 0 to ServerSocket1.Socket.ActiveConnections-1 do
begin
ServerSocket1.Socket.SendText(\'52\'+\'^|^\'+\'Min besked\');
end;
end;



På client read:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
Var
ResText, MyID, MessageText:string;
begin
ResText := Socket.ReceiveText;
MyID := copy(ResText, 0,pos(\'^|^\', ResText)-1);
MessageText := copy(ResText, pos(\'^|^\', ResText)+3, length(ResText));

if MyID = inttostr(ClientSocket1.Socket.SocketHandle) then
begin
showmessage(MessageText);
end else
showmessage(\'Beskeden var ikke til mig\');
end;


Ok jeg håber det virker, det er noget helt nyt jeg lige kom på :)
dkn

Jeg tror jeg finder en anden måde, da vi snakker pænt mange connections - op mod 1000...

Jeg laver sådan, at den tilføjer ens connection-id/nick til enden af en listbox når man connecter, og sletter den igen når man hopper af.

Derved kan jeg via at søge efter nick bruge item-nummeret (takker) til at bestemme connections[].sendText...

Points alligevel...

Tak hvis du mangler mere hjælp vil jeg da gerne hjælpe :)

Takker mange gange :)
Sidder og roder med http://www.eksperten.dk/spm/150408

Men er så træt i hovedet i aften, at jeg ikke kan se logikken i noget som helst :)