多线程的问题,你应该会的,

Question

我要实现接收的数据通过线程保存在数据库,定义了一个TdataproThread线程,接收数据的函数:
procedure TForm1.TcpServerAccept(Sender: TObject; ClientSocket: TCustomIpClient);
begin
  ...  ...
  dataprothread:=TdataproThread.Create(true);//创建线程
  dataprothread.Resume;     //启动保存数据线程
end;procedure TClientDataThread.Execute;
begin
  Synchronize(synchAddDataToControl);
end;
下面问题就来了,用F7运行,程序运行到第1行就报错了,
procedure TdataproThread.datatopro;
begin form1.StatusBar1.SimpleText:='收到状态数据';
 form1.Query1.Close;
 form1.query1.SQL.Clear;
 form1.Query1.SQL.Add('insert into status values');
   ...
   ...   
end;
           线程是个独立的执行体,我试了,在上面的处理函数里只要有form1.出现就报错,要实现我的用线程操作query1,该怎么改动?
         线程里能包含自己的query吗?怎么包含?  一般的都是将query放在form里,而没有见过包含在线程里的

Answer 1

中间Synchronize(synchAddDataToControl);写错了,改为Synchronize(datatopro);这是笔误,跟问的问题无关,

Answer 2

好像VCL控件不能在线程里面使用吧?或者在线程里面使用不安全!