Nachricht vom Server an alle Clienten schicken

[DymonD]

hi,

nice nice... bloß dass er nix macht ^^

aber ich peil udp ned und es geht auch ned... aud außerdem soll das nicht im netzwerk sein sondern im inet, der soll das an alle aktive verbindungen senden..

wieso geht das bei mir ned??

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  //-----------  Den Mist senden  --------------
  // hier stehen die senden-komponente
  Form1.TcpClient1.Sendln('DymonD sagt:'+Memo2.Text);
  Form2.Memo2.Text := '';
  //-----------  und beim Senden auch lesen  ---
  Form2.Memo1.Lines.Add(Form1.TcpServer1.Receiveln);
end;

oder soll ich das anders schreiben:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  //-----------  Den Mist senden  --------------
  // hier stehen die senden-komponente
  Form1.TcpClient1.Sendln('DymonD sagt:'+Memo2.Text);
  Form2.Memo2.Text := '';
  //-----------  und beim Senden auch lesen  ---
  Form2.Memo1.Lines.Add(Form1.TcpClient1.Receiveln);
end;

erst wenns funzt wird der code eingebaut damit der server den string an alle clients sendet

DymonD