Nachricht an alle mit serversocket verbundenen pcs senden

benniwm

Routinier

Dabei seit: 03.02.2004

Beiträge: 484

1

Montag, 26. Juli 2004, 18:51

hi,
Hab folgendes Problem hab mit Delphi a Prog das übers netzwerk via Server- und ClientSocket nachrichten verschicken kann.
Und jetzt will ich alle verbundenen Pc´s in einer listbox auflisten und an die alle eine Nachricht schreiben.??
Weiß net wies geht!
Des sollt dann so sein das es einen Server gibt, an den alles gschrieben wird und der dann die gesendete Nachricht an alle im Netwerk versendet.

thx

If liberty means anything at all, it means the right to tell people what they do not want to hear. - Georg Orwell

Slude

Haudegen

Dabei seit: 01.12.2002

Beiträge: 563

2

Dienstag, 27. Juli 2004, 15:09

Keine Komplettlösung, sondern anstoß:

1) erstell ganz normal die Server-Applikation mit einem Serversocket, wo du auch den Text eingeben kannst und der das dann senden soll [wie das geht siehe unten]* und starte das auf dem Server

2) erstell das Client-Programm, das sich zum Server verbindet mit einem ClientSocket und das die Meldung anzeigt wenn Text aus dem ClientSocket gelesen wird und starte auf allen Clients

* hier ein Demoquelltext von 1:

Quellcode

procedure TForm1.SendeTextClick(Sender: TObject);
var i:integer;
const MEINTEXT:string='Dies ist eine Testmessage';
begin
  for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
   ServerSocket1.Socket.Connections[i].SendText(MEINTEXT);
end;

Fighting for peace is like fucking for virginity

benniwm

Routinier

Dabei seit: 03.02.2004

Beiträge: 484

3

Samstag, 31. Juli 2004, 17:38

bei mir funzt net!
könntsch mir den ansatz compiliert schicken ob des geht ,liegt wahrscheinlich an mir.
thx;:

If liberty means anything at all, it means the right to tell people what they do not want to hear. - Georg Orwell