Nachricht vom Server an alle Clienten schicken

[DymonD]

hi,

meinst du mit

{$R WindowsXP.res}

oder wie?

DymonD

[alcaeus]

Genau, das meine ich. Natürlich musst du beim Anzeigen auch den neuen XP-Stil eingestellt haben.

[DymonD]

axo..danke
aber wie is das mit den sockets..?

DymonD

[Ultimator]

Was meinst mit

Zitat:

Zitat von DymonD

aber wie is das mit den sockets..?

Erklär mal genauer, was du machen willst.

[DymonD]

hi,

ob das auch mit TTcpServer und TTcpClient übers inet funzt bzw ob der server das dann an alle cliens sendet die mit ihm verbunden sind..?


For I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
begin
with ServerSocket1.Socket.Connections [I] do //Alle Clients durchgehen
if (Connected) then SendText('wasauchimmerduwillst');


DymonD

[Ultimator]

Ich hab jetzt auf die Schnelle nix entsperchendes gefunden. Musst halt selber mal suchen. Zur Not kannst du's ja doch mit den Sockets machen.

[DymonD]

ok, thx, ich probiers mal so...
DymonD

[hibbert]

Wenn du das mit den UPD Komponenten von Indy machst, geht das noch etwas einfacher:

Delphi-Quellcode:

form1.IdUDPClient1.Send('255.255.255.255',33,'Dein Text');

[DymonD]

Zitat:

Zitat von hibbert

Wenn du das mit den UPD Komponenten von Indy machst, geht das noch etwas einfacher:

Delphi-Quellcode:

form1.IdUDPClient1.Send('255.255.255.255',33,'Dein Text');

hi,

ja ich habe aber den TTcpServer / TTcpClient.. muss ich das denn jetzt alles umstellen?? sind die Einstellungen gleich?? und außerdem soll es im INet funzen.. soll ja kein LanMessenger sein

und außerdem wieso geht das ned:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
   //-----------  Den Mist senden  --------------
   if Form1.TcpClient1.Active then Form1.TcpClient1.SendText(Memo2.Text);
end;

[Ultimator]

Probier mal, das Form1.-Geknör wegzumachen und versuchs mal mit ...Active=true.
Es kann natürlich auch sein, dass er keine Zeilenumbrüche mag, nimm mal ein Edit-Feld.