我需要建一个线程，在定时器中利用该线程处理数据,我的流程是否正确? ( 积分: 40 )

  • 主题发起人 主题发起人 wishme1
  • 开始时间 开始时间
W

wishme1

Unregistered / Unconfirmed
GUEST, unregistred user!
我做发如下:
先在public中声明
ReSendThread:Thread;
formcreate时:
ReSendThread:=Thread.Create(DealData);
//建立线程
ReSendThread.Suspend;
//先挂起
procedure TForm1.Timer2Timer(Sender: TObject);
begin
ReSendThread.Resume;//恢复线程
end;

procedure DealData() //处理数据
begin
end;
 
我做发如下:
先在public中声明
ReSendThread:Thread;
formcreate时:
ReSendThread:=Thread.Create(DealData);
//建立线程
ReSendThread.Suspend;
//先挂起
procedure TForm1.Timer2Timer(Sender: TObject);
begin
ReSendThread.Resume;//恢复线程
end;

procedure DealData() //处理数据
begin
end;
 
TThread不是组件，只能创建其派生类，Override Execute()才有意义，这样不行：ReSendThread:Thread;这句也不能这样写：ReSendThread:=Thread.Create(DealData);
还有用用Timer唤醒ReSendThread后，如果ReSendThread 是单线没有循环的，那么Timer唤醒ReSendThread后应该停止Time。。。。。
唉，实在搞不懂楼主要大家帮你确认什么？
 
TThread是抽象类，只能创建其派生类的实例
 
老兄，你干吗这么写程序，很是莫名其妙
 
好像有点问题耶，把源代码贴出来看看！
 
嘿嘿，好象还不是一丁点的问题，整个设计的思路就成问题。在Timer中Resume线程。
 
我是这样做的，写一个线程，线程运行完处理过程后就自动释放，然后在定时器里创建该线程。
 
介意楼主先看看些线程基础的东西，然后再动手做程序！我刚开始学DELPHI线程的时候，看了好多例程，才慢慢上手的...给我Email，发给你点资料...
 
那在Timer2中创建线程之前应该用一个IF语句判断线程实例是否存在，不存在才创建，如：
if ReSendThread=nil then
//或if not Assigned(ReSendThread) then
begin
创建。。。
end
else
ReSendThread.Resume;//恢复线程
//线程中加上这句
FreeOnTerminate := True;
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
DELPHI中的消息处理机制
回复
0
查看
652
import
I
I
精确计数器
回复
0
查看
665
import
I
I
用Delphi设计自己的代理服务器
回复
0
查看
740
import
I
后退
顶部