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

[tanzuxiang]

我要实现接收的数据通过线程保存在数据库,定义了一个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里,而没有见过包含在线程里的

[tanzuxiang]

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

[johnmack]

vcl不是线程安全的

[Wangzhi_04]

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