Alexander Predl
WinDev 11 (WinDev 12??) ThreadExecute Problem August 12, 2008 11:19AM |
ThreadMode(threadCriticalSection) ThreadExecute("MAINLOOP",threadUseHyperFile,TimerMain) ThreadWaitSignal(Infinite)In TimerMain:
ThreadListe is int ThreadSendSignal(".") LOOP ThreadWaitSignal(300) IF ThreadState("TMR")=threadRunning THEN ThreadListe=BinaryOR(ThreadListe,1) END IF ThreadListe=0 THEN ThreadExecute("SENDEN",threadUseHyperFile,SendenEmpfangen) END ENDSendenEmpfangen (Send/Receive):
HReadSeek("XXX_","KEY",1) IF HFound("XXX_") THEN HCopyRecord("XXX_",XXX) HModify("XXX_") RESULT False ELSE HCopyRecord("XXX_",XXX) HAdd("XXX_") RESULT True END