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