我做了一个接收网络数据的过程recarm,我想用线程时时监听网络是否有数据传来,请问该如何做
解决方案 »
- 小软件正在使用的数据库怎么恢复
- Delphi开发,如何从视频文件(.asf,.wma)提取音频文件,并保存成文件?
- 如何把ExcelApplication1 或是CreateOleObject( 'Excel.Application' ) 打开的EXCEL 放到我自已的窗体容器中。
- 有没有与 incyear() 函数对应的减少年份的一个函数啊,
- intraweb如何释放内存?
- 你开发软件一般用哪些第三方控件?
- 再问QR数据显示问题?online waiting
- 请高手救急
- 如何注册一个dll?大伙帮帮忙,up有分…
- 我要做一个像空当接龙一样的游戏?可是苦于不知道从何下手,请各位帮忙呀~。新年快乐
- delphi 窗口问题
- Crystal Reports 9里自带的cr85vcl怎么安装呢?
Classes;type
test = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;implementation{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example, Synchronize(UpdateCaption); and UpdateCaption could look like, procedure test.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }{ test }procedure test.Execute;
begin
{ Place thread code here }
end;end.
Classes;type
test = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;implementation{ Important: Methods and properties of objects in visual components can only be
used in a method called using Synchronize, for example, Synchronize(UpdateCaption); and UpdateCaption could look like, procedure test.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }{ test }procedure test.Execute;
begin
while (not Terminated) do
begin
//--你的代码
end;
end;end.
var
Atest: test;
begin
Atest := Test.create(false);
end;