Hallo,
das Problem ist folgendes:
Du kannst nicht mit dem Serversocket einfach ein sendText() benutzen.
Der weiß gar nicht, wohin....
versuchs mal damit:
Delphi-Quellcode:
procedure message_broadcast(socket: TServerWinSocket; text: String);
var i: Integer;
begin
for i := 0 to socket.ActiveConnections - 1 do
begin
socket.Connections[i].SendText(text));
end;
end;
aufruf mit:
message_broadcast(form2.serversocket.socket, 'meinText');
Grüße,
Björn