1. Könntest du den Titel bitte aussagekräftiger machen?
2. Vielleicht stellst du mal den Server und den Client auf Acitve = true
@Langohr
wenn dann sollte das schon so heißen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer; //<- Ohne des gehts net.
begin
if Serversocket1.Active = true then
if ServerSocket1.Socket.ActiveConnections > then
begin
for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do
begin
ServerSocket1.Socket.Connections[1].SendText(Edit1.Text);
Edit1.Text:='';
end;
end;
end;
3. Bitte zukünftig den Delphi-Code in zwei [ delphi] [ /delphi] machen (Ohne die Leerzeichen!)