Clientverwaltung mit TServerSocket

[Hybrid]

Hm, jetzt komm ich mir total dumm vor, da ich nicht weiß was damit gemeint ist :roll:

[Hybrid]

Hm ok, ich habe jetzt (nach nem bisschen googlen ^^) einen Haltepunkt auf

Delphi-Quellcode:

AddLogEntry('Client ' + (Socket.LocalAddress) + ' connected.');

und

Delphi-Quellcode:

GetMem(Connection,sizeof(TConnectionInfo));

gesetzt, aber das Programm wurde nirgens angehalten.


/////////////////////////////////////////////////


Ok, nachdem ich die Prozeduren im Objektinspektor entfernt und wieder neu hinzugefügt habe, werden sie auch vom ServerSocket benutzt.
ich wundere mich nur woran das lag.
hm naja, Danke nochma für die Hilfe.

[nitschchedu]

Was mich mal Interessiert ist das mit dem "PingTime" was ich rigendt wo oben gesehen habe kannst du das mal näher erklären ? oder Poste mal den Cod :lol:

[Muetze1]

Sende was hin, merke dir die Zeit. Der Empfänger sendet wieder zurück. Wenn du die Antwort wieder empfängst, dann die Zeitdifferenz ausgeben.

Und noch was zum Tutorial bzw. 1. Beitrag: Wenn du mit GetMem() dir den Speicher mit den Records besorgst und im Except-Block wieder freigibst, dann beachte folgendes:

1. Du alloziierst den Speicher und legst den Zeiger in "Connection" ab
2. Du weist den Zeiger erst am Ende der Data Eigenschaft des Sockets zu
3. Der Fehlerfall wird wahrscheinlich _vor_ dieser Zuweisung auftreten

Ok, damit zu dem Problem in dem Code:

Im Fehlerfall versuchst du die Data Eigenschaft frei zu geben, welche dann noch sehr wahrscheinlich NIL ist (somit gibst du gar nix frei)