begin
listen(); while not terminated do
begin
readsock:=accept(....)
...
end; close();
end;
listen(); while not terminated do
begin
readsock:=accept(....)
...
end; close();
end;
解决方案 »
- 关于createprocess()命令行参数的问题
- Delphi如何很好地创建对象?
- odac连接oracle,用smartquery执行insert时提示"...read-only dataset..."
- 我的QQ丢了,狂郁闷!!请老朋友把QQ再告诉我一遍...
- 动态生成CheckBox控件,如何在界面上显示出来?,定义如下,请参考,谢谢~~
- delphi excel 工具栏
- 如何修改已经存在的数据库中表的字段的“是否可以为空”属性?
- 如何使用TMessage的WParamLo、WParamHi、LParamLo和LParamHi?
- Assign的用法!
- 这个存储过程怎么写?45分。
- 还是blob 的奇怪问题!!高手请进!!
- 如何将dll中的form引出并放置在主窗体上
但是我怀疑当我用TERMINATED时,线程还在ACCEPT处等待
是不是该用WAITFOR