Hallo
Ich bin dabei einen chat zu programmieren
aber ich hab ein problem:
Der client schickt die nachricht an den Server (werden in einem memo angezeigt)
doch der Server verschickt den erhaltenen Text nicht zurèck an die clients
Das ist der Server
Zitat:
var
Form1: TForm1;
MSG: String;
implementation
{$R *.DFM}
procedure TForm1.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
MSG := Socket.ReceiveText;
Memo1.Lines.Add(MSG);
Socket.SendText('Server is now Online');
end;
Das ist der Client
Zitat:
procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket.Socket.SendText(edit1.text+' : ' + Memo2.Lines.Text);
end;
procedure TForm1.ClientSocketRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
memo1.lines.add(clientsocket.Socket.ReceiveText);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket.Active:=TRUE;
if(ClientSocket.Active)then
ClientSocket.Socket.SendText(edit1.text+' has Connected');
end;
Ich will nàmlich dass wenn ein Client einen Text an den Server verschickt, dass der Server den Text an alle Clients zurückschickt
damit diese ja den text lesen können.
Nur geht das nicht.
Im Server hab ich auch ein Memo damit ich mir ansehen kann was von den Clients verschickt wurde.
Den Text der Clients erhält der Server und schreibt auch ins Memo rein.
Port ist richtig gewählt und wurden auf router/modem und firewall freigegeben und ist in diesem fall nicht das problem.
Ip hab ich die
IP/Wan
IP von meinem PC benutzt da er sowohl als Server als auch als Client fungieren soll.
Ich wàre dankbar wenn man mir den Grund nennen wèrde warum es nicht geht und mir erklären kénnte wie ich es machen könnte.
Vielen Dank