请问如何使用TCanvas类的Lock,Unlock方法和lockcount属性(15分)

陈

陈冲伟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-13

• #1

同时有两个线程对Form 的Canvas对象进行写操作，可以用
Synchronize，但在Delphi帮助中也讲到可以用Canvas.Lock
unlock等实现临界区的锁定功能，而且系统开销较小，不知该
如何来做？

 

S

SeaSky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-13

• #2

下面是书上对Lockcount的解释,
delphi3 增加了对花布锁定的功能, 以避免与其他线程冲突, 这个特性
返回canvas已经被锁定的次数, 每lock一次 ,lockcount加一, 每unlock一次 ,
lockcount-1, 当为0时,表示锁定解除,其他线程可以访问canvas了.

 

D

delphi fan2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-13

• #3

if canvas.trylock then
begin
try
canvas.lock
canvas.draw..
finally
canvas.unlock
end;
end;

 

陈

陈冲伟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-01-13

• #4

但是这样做了以后，当trylock非真时（即当其他的线程访问Canvas时），
条件语句就不执行了。而Synchronize在其他的线程访问Canvas时，其中
的代码在其他线程执行完了后，将继续执行。（即Synchronize是挂起而
非不执行。）

 

陈

陈冲伟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-03

• #5

多人接受答案了。