多线程修改VCL控件造成的ntdll.dll错

全栈程序员-用户IM • 2022年9月25日上午7:00 • 未分类

大家好，又见面了，我是你们的朋友全栈君。如果您正在找激活码,请点击查看最新教程,关注关注公众号 “全栈程序员社区” 获取激活教程,可能之前旧版本教程已经失效.最新Idea2022.1教程亲测有效,一键激活。

Jetbrains全系列IDE稳定放心使用

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1574375

问题
：
我调试老是提示：
NTDLL.DLL
出错

线程中：

Execute
中调用一个写在线程单元的过程
P ,p
执行完后调用
Call
过程
，如下：

procedure TDatav.Execute ;
begin
if …..
begin
p ;
PP: Exit ;
end ;
else
…
End ;

procedure p() ; //
线程单元中写着

begin
… ;
Call ;
end ;

procedure call(s1,r,re:string);//
线程单元中写着

begin
Lock.Enter ;
if FlagCS = ‘0’ then
begin
//
一个处理

end else
Begin
Form1.Edit1.Text := … ;
End;
Lock.Free ;
end;

调用
：

procedure TForm1.Button1Click(Sender: TObject);
begin
FlagCs := ” ;
FlagCS := ‘1’ ;
with TDatav.Create(Edit1.Text,Edit2.Text,Edit3.Text) do
begin
if Suspended then Resume;
End ;
end;

第一次点击
Button1
没有错误，第二次点击时提示：
NTDLL.DLL
出错
，错误行为
PP
行

也就是　
Exit
那行

怎么办
？？

回答：

call()
方法要用保护办法保护起来，一般来说只要你用了
VCL
可以显示的恐件的部分都要

用保护
sy*****
方法进行同步处理
!

我用
TCriticalSection
同步了呀
，就那个
Lock

线程外
已经
：
Lock := TCriticalSection.Create ;
创建了
，不过这个也是
Lock
也是

非线程单元的全局变量，是不是这儿错了
？？

你如果调用
VCL
的可见恐件必须要用同步方法外包，或者用

API
函数
sendmessage
或者
postmessage
，否则要出问题，

DELPHI
的线程类生成的单元里有说明的

一般来说，
VCL
可视控件都不是线程安全的，非可视的基本都是，

这个问题论坛里有很多帖子讨论这个问题，你可以找来看看

TCriticalSection
只是对全局的数据比如变量进行保护，不能保护
VCL
类，尤其是有

strings
属性的
VCL
类，
即使只有一个线程，也不能在没有保护方法的线程方法里

创建窗体，否则要出错，我试过，就是
NTDLL
出错！

在线程里修改
VCL
可见控件不太稳定，有的时候出错，有的时候是好的，

所以
BORLAND
建议用保护方法

当然相信你的没错了
[:)]
，就是不明白为何两种同步的效果不同
？

还有，
synchronize(P) ,p
应该无参数，但我的那个过程
Call
要有三个参数
，怎么处理
？

synchronize(P)
方法根据不同的
DELPHI
版本，
DELPHI
用的是不同的处理方式，

不过都是利用消息队列进行
VCL
可视控件的同步，所以一般
VCL
可视组件要用

synchronize
同步，至于你的参数可以改成线程类的私有变量