我需要建一个线程，在定时器中利用该线程处理数据,我的流程是否正确? ( 积分: 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

C
关于多线程的结束(50分)
回复
3
查看
431
coolingxyz
C
A
多线程处理数据库问题！(100分)
回复
8
查看
361
accelerator
A
L
在线程里访问自定义过程出错：（(50分)
回复
10
查看
317
lcl_003
L
L
问个多线程的问题，如何在一个线程中定时的做一件事？(20分)
回复
17
查看
492
lcl_003
L
D
请教一个线程释放的问题(50分)
回复
7
查看
275
demogorgon
D
后退
顶部