Measure Elapsed Time with the Convenience Timer

See more Socket/SSL/TLS Examples

Demonstrates Socket.StartTiming, which starts or restarts the object's convenience timer. The ElapsedSeconds property then reports the whole number of seconds since the call.

var
socket: HCkSocket;

begin
socket := CkSocket_Create();

//  Start (or restart) the object's convenience timer.
CkSocket_StartTiming(socket);

//  Perform some work.  (Here the thread simply sleeps to let time pass.)
CkSocket_SleepMs(socket,1500);

//  Read the whole number of seconds elapsed since StartTiming was called.
Memo1.Lines.Add('Elapsed seconds: ' + IntToStr(CkSocket_getElapsedSeconds(socket)));

CkSocket_Dispose(socket);