| letianwuji
592226
|
2017/11/11 17:21:33 |
| 打算改成xe版 |
| graham
41353
|
2011/2/27 19:06:05 |
| 不错，顶 |
| res1000
36211
|
2008/11/22 5:18:50 |
| 这个源码前年就下载来用了，今天碰到一个浅浅淡淡的http get问题，回头重看高人的代码，觉得自己笨得像头猪。。。灰心丧气。。。 |
| yeeler
33162
|
2008/3/3 0:16:43 |
| 好不容易改成delphi 2007可用 可惜内存有溢出 昏倒 |
| oupj
30773
|
2007/8/9 9:13:17 |
| 请问怎样把“Demo3 搜索宝”的例子改为动态添加线程 |
| gogogo2003
30690
|
2007/8/5 17:04:59 |
我怎么觉得这不是线程池,而是线程管理!
好象是这样:每个线程完成任务后,就被销毁了!如果还有任务,就又创建新线程!
这样也太耗资源了吧!
是否我没看懂? |
| dongmenbianxue
27194
|
2006/11/17 17:34:50 |
| 无法应用在delphi2006中，是一个遗憾 |
| jahan0211
27160
|
2006/11/15 14:07:26 |
| 顶了,感谢分享，谢谢！ |
| yqczj
26728
|
2006/10/22 14:21:03 |
| 顶，高手，看也要顶一下！感谢盒子的分享，谢谢！ |
| register
26628
|
2006/10/17 17:09:48 |
没看明白原理，工作线程完成任务后就消毁吗？
procedure TThreadTask.Execute;
begin
try
InitJob;
try
Dojob;
except
//Handle Exception --> to be done in future
end;
DoneJob;
finally
NotifyPool;
end;
end; |
| register
26592
|
2006/10/16 10:08:25 |
顶一个! 谢谢!
下一个,看看原理. |
| cjmcn_sh
26559
|
2006/10/13 11:16:13 |
P : PThreadObj;//这个在什么地方？
begin
if _THREAD_LIST <> nil then
with _THREAD_LIST.LockList do
try
for i:=0 to Count-1 do
begin
P := PThreadObj(Items[i]);
if P^.Handle = Self.Handle then
begin
P^.Active := False;
P^.Success := _SUCCCESS;
Break;
end;
end;
finally
_THREAD_LIST.UnlockList;
end;
end; |
| cenjoy
26065
|
2006/9/14 17:47:26 |
| 谢谢.有机会我再试试.最近对外挂有兴趣,可惜网上的资料实在是少得可怜. |
| 99koo
26053
|
2006/9/14 8:58:55 |
| 纯用API好象不可以，反正我没怎么研究过，你还是用TThread好了， 有个returnvalue的属性可以用的， 主线程里用threadobj.wait方法来得到该返回值 |
| cenjoy
26031
|
2006/9/13 10:38:36 |
我也来顶!!!
你这个类库我还用不上，也谈不上评论。
我想请教一下99koo，
有一函数
使用CreateThread创建线程
如何获得这个函数的返回值?
谢谢。 |
| 99koo
26019
|
2006/9/12 21:59:33 |
| 楼上兄弟有你这句话我没什么好说了，眼泪花花的 |
| flfq
25995
|
2006/9/11 15:25:04 |
| 如果看而不顶,那肯定不是个人 |
| blbz
25915
|
2006/9/7 13:36:27 |
| unit HTTPtask 有BUG |
| chinafox2003
25824
|
2006/9/2 18:43:06 |
| 如果更改的话没有效果吗？ |
| dejoy
25706
|
2006/8/28 15:45:50 |
| 多线程用在数据库中不是用来更改数据,只是用来查询,查询不用事务 |
