After added tsiComponents to my app something strange happend with thread executing (code without tsilang works propertly).
Resuming thread is called 8 times per second by:
Code: Select all
myThread->Resume();
Code: Select all
void __fastcall TOggComponent::Execute()
{
while (!Terminated)
{
CanLink = true;
Suspend();
}//end while (!Terminated)
}
Problem is connected with suspending thread - it does't free CPU but rerun execute method (WITHOUT WAITING FOR CALLING RESUME). It works like (pseudocode below):
Code: Select all
void __fastcall TOggComponent::Execute()
{
while(1)
{
while (!Terminated)
{
CanLink = true;
Suspend();
}//end while (!Terminated)
}
}
I've BCB 6.0 Prof + SP2 & TsiLang Demo Component 5.2.5
thanks for help