Nachricht vom Server an alle Clienten schicken

[DymonD]

hi,

geh ma da drauf, da habe ich die frage als ein neues thema gepostet..

http://www.delphipraxis.net/internal...=173909#173909

so und nun der Quellcode: server starten geht, nachricht senden ned...

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
  //-----------  Den Mist senden  --------------
  // hier stehen die senden-komponente
  Form1.IdUDPClient1.Send('DymonD sagt: '+Memo2.Text);
  Form2.Memo2.Text := '';
end;

ich benutze UDP weil es einfacher geht.. ich habe es mit tcp/ip versucht aber es geht ned... vielleicht mache ich was falsch..?

Delphi-Quellcode:

Form1.TcpClient1.Sendln('DymonD sagt: '+Memo2.Text);
Form2.Memo2 := '';

und empfangen mit tcp...
in Form1:
Form1.TcpServer1.OnReceive := Form2.JaDannLiesMal(Sender); in Form2:

Delphi-Quellcode:

procedure TForm2.JaDannLiesMal(Sender: TObject);
begin
  // so und nun empfangen...
  Form2.Memo1.Lines.Add(Form1.TcpServer1.Receiveln);
end;

dymond