多线程的回调函数问题 ( 积分: 42 )

F

flyinwuhan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-16

• #1

假设有一个主窗体的成员函数： TFormMain.fun(x:int):bool;
多个线程调用它的时候需要考虑同步问题吗？

 

F

flyinwuhan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-16

• #2

假设有一个主窗体的成员函数： TFormMain.fun(x:int):bool;
多个线程调用它的时候需要考虑同步问题吗？

 

F

flyinwuhan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-16

• #3

详细说一下吧
我的线程类是这样的：
type
AEvent = procedure ( b: BOOL ) of object;
AThread = class(TThread)
private
FOnData : AEvent;
protected
procedure Execute;
override;
public
property OnData: AEvent write FOnData;
end;

TForm1...
procedure TForm1.xxx( b: BOOL );
var
i : integer;
begin
if b i:=0 else
i:=1;
end;

thread := AThread.create;
thread.onData := xxx;
thread.resume...
这样多个线程调用同一个回调函数，会有问题吗？
函数TForm1.xxx如果使用全局变量有问题吗？

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-17

• #4

看你的代码是不需要考虑多线程同步问题

 

F

flyinwuhan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #5

人呢？
这个问题很难吗？
讨论一下不可以吗？

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #6

procedure TForm1.xxx( b: BOOL );
var
i : integer;
begin
if b i:=0 else
i:=1;
end;
这个不用考虑吧，当然，如果使用全局变量另当别论

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #7

你的 TForm1.xxx 这么简单，没有用到form有关的东西，就你这个过程来说，不需要同步
但是你的TForm1.xxx真的就这么简单吗

 

F

flyinwuhan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #8

>>但是你的TForm1.xxx真的就这么简单吗
当然不是，我只是为了说明我的函数没有使用全局变量，没有使用vcl
如果这个不是回调函数---很简单，不用讨论，但关键是它是线程的回调函数
也就是多个线程的thread.onData 都指向同一个地址TForm1.xxx
那这个函数内的参数（i : integer;）对于各个线程来说是不是相同的？
会不会一个线程改变了i，而另一个线程恰好要访问i，出现不同步？

 

F

flamboyant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-18

• #9

局部变量（变量i）对各个线程来说是不同的。不会出现不同步的情况

 

F

flyinwuhan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-19

• #10

多人接受答案了。