Sockety – Delphi – Fórum – Programujte.com

Předem říkám že s delphi zas tak moc neumím a proto se ptám.

Snažím se vytvořit komunikační program, celé to chci realizovat pomocí clientsocket a serversocket. Chci to tak, aby se clienti připojili na server a potom by odesílali texty ve forme příjemce/samotný text (napr 192.168.0.20/Cau), server by zprávu zpracoval a na adresu 192.168.0.20 odeslal "Cau", takže by se dal pouzit prikaz socket.SendText, ale nevím jak nastavit aby se zpráva poslala na adresu kterou chci.

Na straně serveru by to asi celé mohlo vypadat:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
Zprava:=Socket.ReceiveText;
Decode; //rozkouskovani zpravi na IP a Text
//avsak zde nevim jak nastavit cilovou ip adresu
socket.sendtext(Text);
end;

Ptám se tedy jen na to jak nastavit IP adresu na kterou chci text odeslat.

To Franta : budes muset mit seznam klientu s informacema o nich + jejich socket.. pak projdes seznam a posles na prirazenej socket

Dobře díky, takže když se někdo připojí otevře se pro ně socket a když se odpojí zavře se?
Stím že by se dalo použít serversocket1.Socket.Connections[I]; stim že když za "I" dosadím číslo tak
se vybere "I" socket a pote se socket.sendtext(Text); odesle na socket ktery jsem vybral pomoci serversocket1.Socket.Connections[I]; nebo je na to jiny prikaz? Nemám momentálně více počítačů, abych to vyzkoušel.

tam zalezi jak se odpoji.. pokud spadne sit tak si toho vubec nemusi server ani klient vsimnout ze to padlo.. proto se pouzivaj taky pingy.. resp keep-alive requesty a timeouty