Delphi多线程问题，谁能回答？

Question

补充一下，此程序在单线程下运行没问题。
另外谁能告诉我为什么ADO的所有控件打开操作完毕后关闭必须要有纪录才给关闭，而Delphi自代TTable,TQuery却没有这个问题

Answer 1

建议：
    做以下操作之前，先做
    adoQuery.Close;
    adoquery.SQL.Text:='select sum([Interval]) from Recordtab ';
    adoquery.Open;//在此出错

Answer 2

使用Synchronize调用你的程序
Synchronize(你的程序名);
ok

Answer 3

Synchronize是将所执行线程的过程递交给主线程完成，此程序在主线程中运行没有问题，使用Synchronize也没有问题，但是一旦使用Synchronize，就没有办法再主线程中终止程序了，我现在做的是一个大库的查询（40万条）左右，希望能用多线程作退出查询

Answer 4

但你这种情况只能用Synchronize否则肯定有问题，我已经验证过了。
先通过了，然后再想别的方法。

Answer 5

我在三天前就通过了，程序也作的差不多，但就是心里窝火，他怎么就这么戈呢？其实用Synchronize还不如再主线程里直接做，多加个线程没有任何意义，但用TQuery没有问题，偏偏要访问mdb数据库，用Tquery还要建别名，有什么办法可以用Tquery访问MDB而不用BDE的吗？
看来Delphi的ado还是有问题。

Answer 6

那只能用外部组件了，否则你只能用ADO，ADO有什么问题？

Answer 7

现象如下：如果在多线程中使用Tquery，可以正常打开查询，返回结果，如果相同的代码换成TADOQuery则在打开数据库时报错，错误是：
Project Project1.exe raised exception class EOleException with message '尚未调用
coinitialize.'。process stopped.use step or Run to continue.

Answer 8

另外如果用ADO如果数据库打开，删光所有纪录，数据库就管不上了，而用Data Access页的组件没有这个问题，这也是今天发现的 

Answer 9

不好意思，我在不走就没车了。
我明天再来，可以联系[email protected]

Answer 10

瞎猜一下：Ado是基于com的，下面msdn上的一段关于CoInitialize的说明或许会有用。
Initializes the COM library on the current apartment and identifies the concurrency model as single-thread apartment (STA). Applications must initialize the COM library before they can call COM library functions other than CoGetMalloc and memory allocation functions. 

Answer 11

在关闭TADOQuery之前加一句
TADOQuery1.RecordSet.Close();
再试一试。

Answer 12

那你就调用一下CoInitialize吧，在任何一个单元的initialization段中，然后在finalization中调用CoUninitialize（好象是这个名字）。

Answer 13

agui(阿贵)　说的对
也可以这样
在线程中调用其他单元的函数或过程来执行
注意vcl控件的执行期间调用问题

Answer 14

看看这样能否绕过同步问题。
constructor ttest.Create(ADOQ: TADOQuery);
begin
ADOQuery := TADOQuery.Create(nil);
ADOQuery.Asign(ADOQ);
inherited create(false);
end;

Answer 15

一个query关闭再执行另外一个啊，否则服务器会被你拖死的。

Answer 16

哇，PB的斑竹(liulee(流方)　)跑到这里来了？
是多线程耶！怎么关闭在执行另一个？

Answer 17

richardsong(白玉老虎):DELPHI的帖子怎么跑到这里来了？再不走，我要赶了。。

Answer 18

我认为是ADO的问题。你就建个别名，用BDE吧，或者不用建别名，用DataBase连接，用文件名连接（我向来都是这样连接）。

Answer 19

to am2000：
再者说，我又不是斑竹，我说了也不算，他自己跑过去的，我有什么办法？
是我的帖子吗？

Answer 20

当然是你移的，PB现在就你一个斑竹，不是你一的，难道还是我移的？还是他自己Move过去的。
还有：我没说你没用过多线程，我从来不挖苦别人，嘲笑别人或者贬低别人，这个良好作风Delphi里的弟兄可以作证，我们斑竹也可以作证的。老兄不要随便冤枉好人。

Answer 21

试着将
ADOQuery:=ADOQ;
inherited create(false);
这两句调过来试试看吧,我一向写新类都是先写第二句的,因为要有新类的实体,必定要先建立吗!?
如果还不行,那应该是戴妃与M$不和了.

Answer 22

to: 
richardsong(白玉老虎)　
我的帖子也被移过，还有别人的也被移过，CSDN的管理员他们也可以移。
你的帖子是我移的，你向Delphi搬救兵，所以我移到Delphi来了。
呵呵，就此打住吧。不争了，不争了。

Answer 23

    我试了一下，在主线程中先随便操作一下AdoQuery1（比如AdoQuery1.SQL.Text:='...'）就能解决你的问题，不过我相信以后还会有其它问题。以下文字你应该见过：Methods and properties of objects in VCL can only be used in a method called using Synchronize.
    其实ADO组件本身支持异步操作的，在ExecuteOptions属性中设置，我没研究过。
    有纪录才能关闭的问题，安装ADO组件补丁(VCL，不是ADO本身)应该就能解决。

Answer 24

2 liulee：
   Ok，就此打住。

Answer 25

ADO是COM组件。在线程中使用时需要先调用CoInitialize，对应的需要调用CoUninitialize。

Answer 26

 CoInitialize  怎么调用，use什么，

Answer 27

我经过反复验证，必须使用Synchronize，其作用是使线程与VCL同步。
VCL的相当一部分代码是线程不安全的，具体的说，大多数由TComponent所派生的类与线程不兼容，会导致一些错误。而Synchronize能解决这个问题，当然效率会低一些。但却是必须的。