یونیت GetTicksBetween

[seyed_farid]

با سلام خدمت دوستان
دوستان یونیت مربوط به کد GetTicksBetween چه یونیتی می باشد که لازم است در بخش uses اضافه شود؟

[seyed_farid]

برای استفاده این کد جهت چک و آگاهی از کانکشنهایی که فعالیتی ندارند و احتمالا از دست رفته اند:
L := TidTCPServer.Threads.LockList
try
for i := 0 to L-1 do
begin
if GetTicksBetween(TMyCustomThread(L[i]).LastHeartbeatAction, Now)>=
SOME_VALUE then TMyCustomThread(L[i]).Connection.DisconnectSocket
end;
finally
TidTCPServer.Threads.UnlockList;
end;

ولی با دلفی7 نتونستم سازگارش کنم.
کسی میتونه کمک کنه؟

[BORHAN TEC]

با سلام،


دوستان یونیت مربوط به کد GetTicksBetween چه یونیتی می باشد که لازم است در بخش uses اضافه شود؟

متاسفانه در این لحظه به Indy 9 دسترسی ندارم ولی در مورد Indy 10 تابعی مشابه نام GetTickDiff در یونیت IdGlobal وجود دارد.


ولی با دلفی7 نتونستم سازگارش کنم.

لطفاً برای نظم بخشیدن به انجمن این سوال را در تاپیک دیگری مطرح کنید. همچنین یک پروژه کوچک هم قرار دهید تا هم در زمان صرفه جویی شود و هم اینکه امکان تست وجود داشته باشد.

موفق باشید.