Mein Chatprog. funzt nicht !!

[Die Muhkuh]

hmm, ich kann da keinen Fehler finden

[Vader]

verdammt, aber es kommt immer dieser fehler.
kann das mit OS was zutun haben, habe ME.
ich werd das Chatprog mal in der Firma auf zwei Rechner probieren im
wirklichen Lan. Win2oooProff, und nicht simuliert auf meinem Rechner.

mfg vader

[Die Muhkuh]

hmm, da weiß ich echt nix...

[Die Muhkuh]

Ich hab den Fehler!

Zitat von Vader:

beim server, wenn ich auf den sendenbutton drücke, wo der code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer; //<- Ohne des gehts net.
begin
  if Serversocket1.Active = true then
  if ServerSocket1.Socket.ActiveConnections > 0 then
  begin
    for I := 0 to ServerSocket1.Socket.ActiveConnections - 1 do 
    begin
      ServerSocket1.Socket.Connections[I].SendText(Edit1.Text);
                                    //^^ Ihr muss es I (i) heißen nicht 1!!!!
      Edit1.Text:='';
    end;
  end;
end;

ausgeführt wird ??

mfg vader

[Vader]

supper toll es funzt ja doch 8)

vielen dank spider

mfg vader