Socket Server

[mjustin]

Zitat von strom:

hallo,

Danke, bekomme den Wert 0 zurück! Ist das Richtig?

Delphi-Quellcode:

procedure TForm1.ServerSocket2ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var
  i : integer;
begin
   memo3.Lines.Add(ServerSocket2.Socket.ActiveConnections.ToString(i));
end;

Das gibt 0 aus, da die noch nicht lokale initialisierte Variable i zufällig den Wert 0 hat ...