接收数据的函数:
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里,而没有见过包含在线程里的
