delphi主线程不能进入临界区,delphi 线程使用ado

delphi主线程不能进入临界区,delphi 线程使用ado

LeaveCriticalSection(CS); {结束：其他线程可以来了} DeleteCriticalSection(CS); {删除：注意不能过早删除} //也可用TryEnterCriticalSection 替代EnterCriticalSection一个应用可以有一个主线程，一个主线程可以有多个子线程，子线程还可以有自己的子线程，这样就构成了多线程应用了。由于多个线程往往会同时访问同一块内存区域，频繁的访问这块区

˙▽˙ 从上面分析可知，主线程是不能进入到临界区来执行的，但如果主线程必须要执行操作类似于进入临界区效果，可以通过检测临界区是否正在被使用，如果正在被使用则等在第一个线程调用了EnterCriticalSection()之后，所有别的线程就不能再进入代码块。下一个线程要等第一个线程调用LeaveCriticalSection()后才能被唤醒。2. 互斥互斥非常类似

上面解决了线程和主线程同步问题，可是如果有2个线程同时访问一个控件应该如何处理。使用临界区就可以解决这个问题二、线程同步之临界区uses SyncObjs; var CDelphi线程同步(临界区、互斥、信号量).pdf ado数据连接线程安全delphi源码浏览：159 ado数据连接线程安全delphi源码，解决方法是在线程开始启用CoInitialize(

flag用临界区保护，这种方法除了在两个线程同时入临界区时以外，主线程不会被阻塞。当然也可以用Event,子线程SetEvent,主线程定期WaitForSingleObject,把超时设为Delphi中，你在多线程或通讯方面使用临界区时，若使用了两次Leave 会造成程序界面无响应，在Leave之前先使用Delete删除临界区再Leave时也会(其实也等同于两次Leav

1、声明一个TRLCriticalSection记录类型的变量如CS,必须是全局的；2、使用前先初始化：InitializeCriticalSection(CS); 3、EnterCriticalSection(CS); 线程进入临界区，其他线2、用TThread 类建立的线程又绝不能使用ExitThread 退出；因为使用TThread 建立线程时会同时分配更多资源(譬如你自定义的成员、还有它的祖先类(TObject)分