Forum: Programmieren allgemein
by mjustin,
21. Jan 2015
procedure TForm1.ServerSocket2ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo3.Lines.Add(IntToStr(Socket.ActiveConnections));
end;
Sollte gehen, jedoch muss noch - falls die Methode nicht im Kontext des Hauptthreads aufgerufen wird - der Zugriff auf Memo3 synchronisiert werden, da es sonst zu Problemen wie "Hängern" kommt.
Forum: Programmieren allgemein
by mjustin,
21. Jan 2015
Das gibt 0 aus, da die noch nicht lokale initialisierte Variable i zufällig den Wert 0 hat ...