X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/03b75b4c964d8b3ac97d4007f0e033549b01c92f..1c8b91ca0f6891a397357c7cf7d77af18c15937d:/lcorewsaasyncselect.pas?ds=sidebyside diff --git a/lcorewsaasyncselect.pas b/lcorewsaasyncselect.pas index 075d558..6b4c01b 100644 --- a/lcorewsaasyncselect.pas +++ b/lcorewsaasyncselect.pas @@ -147,7 +147,7 @@ begin if readtrigger or writetrigger then lasio.handlefdtrigger(readtrigger,writetrigger); end; // don't reset the event manually for listen sockets to avoid unwanted - // extra onsessionavailible events + // extra onsessionavailable events if (taddrint(findtree(@fdwatches,inttostr(socket))) and (FD_ACCEPT)) = 0 then dowsaasyncselect(socket,0,0); // if not a listen socket reset watches end; end else if (ahwnd=hwndlcore) and (aumsg=wm_dotasks) then begin @@ -166,6 +166,7 @@ end; procedure winaddtask(ahandler:ttaskevent;aobj:tobject;awparam,alparam:longint); begin if not tasksoutstanding then PostMessage(hwndlcore,wm_dotasks,0,0); + tasksoutstanding := true; end; type twcoretimer = wcore.tltimer; @@ -229,7 +230,7 @@ begin timerwrapperinterface := twintimerwrapperinterface.create(nil); WSAStartup(2, GInitData); - absoloutemaxs := maxlongint; + absolutemaxs := maxlongint; wcoreinit;