Startschwierigkeiten bei Chatprogramm

[BornToBeBreit]

Also so wie ich das sehe, liegt das peoblem am server oder?

Also der server erhält zwar einen text, sendet ihn aber nicht an die clients zurück.

also ich hab das bei meinem chat so gemacht.

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var 

Text:string;
i: Integer;

begin

Text := Socket.ReceiveText;
Memo1.Lines.add(Timetostr(now)+': '+Text);
For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do

begin

with ServerSocket1.Socket.Connections [I] do
if (Connected) then SendText(Text);

end;
end;

Bei mir funktionirts einwandfrei.

Und dann muss da doch noch was am client gemacht werden.

Das muss noch ins OnClientRead

Memo1.Lines.Add(Socket.ReceiveText); Weil sonst empfängt der client ja nix.

Also so müsste es gehen