ActiveXForm里面用线程，一调用Synchronize就挂起，怎么办(300分)

Q

qdyoung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #1

不管是否用Synchronize，Execute后都会挂起，OnTerminate不能被调用

正在调试的WebFTP Ocx 控件在以下地址下载：
http://www.8421.org/download.php?id=190
含源程序

 

C

com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #2

偶被同样的问题困扰
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1172446

 

C

com

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #3

嗯，才看到，你不是说“TThread的全局变量处理是安全的，TThread绝对没有问题”吗？啊，哈哈！
实际问题就是Synchronize时那个SendMessage引起的，那个window是个全局变量，处理同步用的。
可那并不是个VCL的window啊，不知道为什么也不行，怪。

我发现在主线程中使用TThread没有任何问题，可在非主线程中就完蛋了。

 

Q

qdyoung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-09

• #4

我想应该是TThread和ActiveX Thread模型的匹配问题，没搞懂ActiveX的
taApartment什么，我试了 taFree 什么，更奇怪

 

S

szf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #5

开始时编译不通过(用的是没有升级的D6)
后来把刷新了一下类型库，就通过了。它好象修改了一个编译指令。
另外，我把interface段上的IdAntiFreezeBase, IdAntiFreeze两个单元去掉了。
再试你的test程序，看起来一切正常。可以同时upload两个文件。
另个，程序看起来有点怪，FTPThread那个对象好象一直没释放。而线程的FreeOnTerminate
也好象没有赋值。
如果你要我这里的TLB文件，我可以给你。

 

Q

qdyoung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #6

你下载的是勉强的解决方案，本来想在OnTerminate里面执行信息显示和刷新上传后的
文件列表浏览器窗口，但因为OnTerminate根本不会被执行，所以只有在Execute里面了，
而刷新上传后的文件列表浏览器窗口代码不同步是没法用的，而要同步就会挂起，所以
就注释掉了RefreshUploadPage。

这样好像一切正常了，也可以执行多次，除了不能RefreshUploadPage（我实际用的是在
浏览器里面打开一个窗口显示多个WebFTPOCX，上传文件，有一个页面显示列表，
也可以通过http上传）

但就是每个线程都没有被释放，我想设置了FreeOnTerminate也不会有用的，因为根本不会
Terminate，我用CPU指令执行跟踪过Execute，End后会执行一些汇编代码，然后在一个
call ...指令挂起，所以设置了OnTerminate也不会被执行

 

Q

qdyoung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #7

RefreshUploadPage（涉及Com对象）在线程里面的调用，最后是通过
PostMessage解决的，可以下载最新版本
http://www.8421.org/download.php?id=190
所有代码都不用同步

 

B

beetaim

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #8

up

 

Q

qdyoung

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-07-15

• #9

接受答案了.