hallo,
ich habe mit einem tutorial einen chat programmiert. hier ein auszug aus dem quelltext:
Code:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var startwert,connections,a:integer;
text:string;
begin
startwert :=0;
connections := ServerSocket1.Socket.ActiveConnections;
text := Socket.ReceiveText;
Memo1.Lines.Add(timetostr(now) +': ' +text);
while startwert < connections do
begin
ServerSocket1.Socket.Connections[startwert].SendText(text);
inc(startwert);
end;
ich verstehe noch nicht so recht was diese zeile soll:
Code:
ServerSocket1.Socket.Connections[startwert]
nach recherchen im internet glaube ich, dass der server den empfangenen text an den client mit der nummer in [] sendet (also an startwert). am anfang wird "startwert" doch auf "0" gesetzt. also muesste der server die empfangene nachricht doch nur an den client senden, der zu erst connected hat. wenn man das "sartwert" in der klammer durch null ersetzt passiert genau dies.
wird also durch die while-schleife der wert von "startwert" geaendert? oder warum empfangen alle clients die nachrichten?
danke