Server sendet Daten an Clients

[PierreB]

moin leuts,

ich hab ma wieder ein klitzekleines Problem:

Für die Schule soll ich ein kleines Nachrichtenprogramm schreiben.
D.h. die Clienten connecten einen Server, der dann die Nachrichten an die Clienten
schickt (ähnlich wie ein Chat). Ich habe TServersocket und Tclientsocket genommen.

Mein Problem ist nun:
Die Clienten verbinden sich mit dem Server und können auch Text an den Server schicken.
Mit folgendem Code versuche ich nun das der Server Daten an alle Clienten schickt:

Code:

procedure TForm1.button4click;
var 
   text: string;
begin
text := edit1.text;
if Serversocket1.active = true then
Serversocket1.socket.sendtext(xorstring('SERVER: '+text, ''));
end;

(Xorstring ist eine einfache Xor-Verschlüsselung)


Wenn ich nun meinen text senden will, erhalte ich folgende fehlermeldung:

Zitat:

Im Projekt server.. bla bla Exeption...
Eine Aufforderung zum Senden oder Empfangen von Daten wurde verhindert, da der
Socket nicht verbunden ist und (beim senden über einem datagrammsocket mit sendto-Aufruf)
keine Adresse angegen wurde.

Wie der Server ist nicht verbunden ?
Die Clienten sind doch mit dem Server verbunden !


*hilfeeee*