是delphi 的bug还是.....?有关delphi中线程类TThread的最基本的理论问题

hellojw 2001-07-30 03:19:56
在程序中TmyThread是这样定义:
TmyThread=Class(TThread)

运行时是这样:
sleep(3000);
myThread:=TmyThread.create(true);
sleep(1000);
mythread.resume;

整个程序在只有一个线程的时候运行正常,但多余一个时,第一个线程在sleep(3000)结束时死掉,第2个线程运行,这说明线程不支持多个实例同时运行,对吗?
可是天哪,我非要它线程(mythread)多个实例同时运行,怎么做?我错在哪了?
请和我联系好吗?
OICQ:31374226
email:ganzhipeng@21cn.com
...全文
65 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
CableFan 2002-05-13
  • 打赏
  • 举报
回复
我也很想知道﹐一個比較耗時的不可分割的原子過程﹐放到線程里執行還是照樣跟死機一般沒得反應﹐沒有達到我想要的ui要求。
其實我覺得Delphi中的多線程中的每一個線程﹐跟我們的一個循環一樣﹐不過它不用在循環中加入檢查消息的語句﹐而是自動檢查其它Windows消息﹐達到不死ui的效果。可是循環中每一步的執行時間太長就不行了。
Clus 2001-07-31
  • 打赏
  • 举报
回复
不可能,我用得好好的。
你的第二句为什么要加上mythread:=,
应该直接TmyThread.create(true);就行了。
ExitWindows 2001-07-31
  • 打赏
  • 举报
回复
up
ExitWindows 2001-07-31
  • 打赏
  • 举报
回复
up
delphi线程池单元文件uThreadPool.pas,用法如下 type TRecvCommDataWorkItem=class(TWorkItem) public // updatetime,addtime:TDateTime; // orderid,ordertype,urljson,loadcount,savepath:string; url,Filename:string; total,order:Integer; _orderid:string; failedcount:Integer; IFCoverFile:Boolean; // 线程处理请求时触发的事件 procedure DealwithCommRecvData(Sender: TThreadsPool; WorkItem: TWorkItem; aThread: TProcessorThread); // 线程初始化时触发的事件 procedure TProcessorThreadInitializing(Sender: TThreadsPool; aThread:TProcessorThread); // 线程结束时触发的事件 procedure TProcessorThreadFinalizing(Sender: TThreadsPool; aThread:TProcessorThread); //任务队列空时触发的事件 procedure TQueueEmpty(Sender: TThreadsPool; EmptyKind: TEmptyKind); end; 先声明一个 然后用法 FThreadPool := TThreadsPool.Create(nil); // 创建线程池 FThreadPool.ThreadsMin := 10; // 初始工作线程数 FThreadPool.ThreadsMax := 100; // 最大允许工作线程数 AWorkItem := TRecvCommDataWorkItem.Create; ISAllOverLoad:=False; AWorkItem.url:=urljson; AWorkItem.order:=i; AWorkItem.total:=JA.Count; AWorkItem.Filename:=savefilepath; AWorkItem._orderid:=orderid; AWorkItem.IFCoverFile:=IFCoverFile; FThreadPool.AddRequest(AWorkItem,True); // 向线程池分配一个任务 FThreadPool.OnProcessRequest := AWorkItem.DealwithCommRecvData; FThreadPool.OnThreadInitializing := AWorkItem.TProcessorThreadInitializing; FThreadPool.OnThreadFinalizing := AWorkItem.TProcessorThreadFinalizing; FThreadPool.OnQueueEmpty := AWorkItem.TQueueEmpty; 仔细看下线程池单元的函数说明轻松搞定。 procedure TRecvCommDataWorkItem.TQueueEmpty(Sender: TThreadsPool; EmptyKind: TEmptyKind); begin if EmptyKind=ekProcessingFinished then begin try if Assigned(geturl) then //存在的bug 如果下载文件存在的不行 begin //Sleep(200); //激活线程可能会发生在 休眠之前!! ISAl

5,931

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧