IdTCPServer1的问题，在线等！！！！-CSDN论坛

IdTCPServer1的问题，在线等！！！！

Delphi > 网络通信/分布式开发

收藏回复

[问题点数：0分]

⋅收到福建新大陆软件公司的Offer，做驻外技术支持，有谁了解些具体情况？ ⋅求助？关于C#编写windows服务的教程、实例或相关资料！！！ ⋅SQL日志问题？ 更多帖子 关注私信空间博客 itcai 等级 本版专家分：0 结帖率 92.86%: IdTCPServer1.Active:= false;关闭服务的时候,
总是提示"Termainate Thread Timeout"错误.
IdTCPServer1.TerminateWaitTime 已经设置很大了.但还是出现超时问题.
我在程序中使用了以下程序代码,我想可能是这个的原因造成.
还请各位大侠帮我解决一下.在线等待佳音!!!!!!!!!!!!
try
list:= IdTCPServer1.Threads.LockList;
finally
IdTCPServer1.Threads.UnlockList;.//解锁
end;

2004-08-30 10:57:41

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅收到福建新大陆软件公司的Offer，做驻外技术支持，有谁了解些具体情况？ ⋅求助？关于C#编写windows服务的教程、实例或相关资料！！！ ⋅SQL日志问题？ 更多帖子 关注私信空间博客 itcai 等级 本版专家分：0: QQ:78120004 在线等，急！！急！！！

2004-08-30 11:13:51

点赞只看TA 引用举报 #1得分 0

⋅软件发布：LYFTP探险者 ⋅软件发布：LY ⋅软件发布：LY 更多帖子 关注私信空间博客 ly_liuyang 等级 本版专家分：68390 勋章 黄花 2004年9月 Delphi大版内专家分月排行榜第二 蓝花 2005年4月 Delphi大版内专家分月排行榜第三: Indy的Bug
版本9.0.14
修正IdTCPServer.pas的
procedure TIdTCPServer.SetActive(AValue: Boolean);
var
  i: Integer;
  LListenerThread: TIdListenerThread;
begin
  // SG 28/11/01: removed the "try..finally FActive := AValue; end;" wrapper
  // SG 28/11/01: It cause the component to be locked in the "active" state, even if
  // SG 28/11/01: the socket couldn't be bound.
    if (not (csDesigning in ComponentState)) and (FActive <> AValue)
      and (not (csLoading in ComponentState)) then begin
      if AValue then begin
        // InitializeCommandHandlers must be called only at runtime, and only after streaming
        // has occured. This used to be in .Loaded and that worked for forms. It failed
        // for dynamically created instances and also for descendant classes.
        if not FCommandHandlersInitialized then begin
          FCommandHandlersInitialized := True;
          InitializeCommandHandlers;
        end;
        // Set up bindings
        if Bindings.Count = 0 then begin
          Bindings.Add;
        end;

        // Set up ThreadMgr
        ThreadMgr.ThreadClass := ThreadClass;

        // Setup IOHandler

        if not Assigned(FIOHandler) then begin
          IOHandler := TIdServerIOHandlerSocket.Create(self);
          FImplicitIOHandler := true;
        end;
        // Update reply texts for "global" replies
        ReplyTexts.UpdateText(ReplyUnknownCommand);
        ReplyTexts.UpdateText(MaxConnectionReply);
        // Set up listener threads

        IOHandler.Init;
        i := 0;
        try
          while i < Bindings.Count do begin
            with Bindings[i] do begin
              AllocateSocket;
              if (FReuseSocket = rsTrue) or ((FReuseSocket = rsOSDependent) and (GOSType = otLinux))
                then begin
                SetSockOpt(Id_SOL_SOCKET, Id_SO_REUSEADDR, PChar(@Id_SO_True), SizeOf(Id_SO_True));
              end;
              Bind;
            end;
            Inc(i);
          end;
        except
          Dec(i); // the one that failed doesn't need to be closed
          while i >= 0 do begin
            Bindings[i].CloseSocket;
            Dec(i);
          end;
          FActive := True;
          SetActive(False); // allow descendants to clean up
          raise;
        end;
        FListenerThreads := TThreadList.Create;
        for i := 0 to Bindings.Count - 1 do begin
          Bindings[i].Listen(FListenQueue);
          LListenerThread := TIdListenerThread.Create(Self, Bindings[i]);
          FListenerThreads.Add(LListenerThread);
          LListenerThread.Start;
        end;
        FActive := True;  // fixed by Liu Yang 2007.7.24

      end else begin
        TerminateListenerThreads;
        FActive := false;  // fixed by Liu Yang 2007.7.24
        // Tear down ThreadMgr
        try
          TerminateAllThreads;
        finally
          if ImplicitThreadMgr and TIdThreadSafeList(Threads).IsCountLessThan(1) then begin // DONE -oAPR: BUG! Threads still live, Mgr dead ;-(
            FreeAndNil(FThreadMgr);
            FImplicitThreadMgr := False;
          end;
        end;//tryf
      end;
    end;
end;

重新编译Indy可解决问题！

2004-08-30 13:44:57

点赞只看TA 引用举报 #2得分 0

⋅收到福建新大陆软件公司的Offer，做驻外技术支持，有谁了解些具体情况？ ⋅求助？关于C#编写windows服务的教程、实例或相关资料！！！ ⋅SQL日志问题？ 更多帖子 关注私信空间博客 itcai 等级 本版专家分：0: TO: ly_liuyang(Liu Yang)
我试过了，还是不行啊？可以留下你的联系方式吗？谢谢！！！！！11

2004-08-31 17:57:07

点赞只看TA 引用举报 #3得分 0

收起

收藏回复

itcai

等级：

关注私信 TA的帖子

Qt:简单的记事本小软件: 最好的学习方法就是实践，多动手做一些东西才能了解和熟悉Qt的那些库函数,周五晚上做了个记事本小软件，实现了大部分微软记事本的功能。写下留存记录。来几张效果图吧：小软件的主要功能包括：新建文件...

java课程设计简易记事本: 第一次在博客上发布文章。这是我在大二上学期的java课程设计，我的课程设计是做一个简易记事本。其中有这些要求：1. 摸拟windows操作系统中的记事本软件，开发一款简易记事本2. 具有新建文件、保存文件、复制和粘贴...

解决：记事本打开无乱码而用UE打开乱码现象: 解决：记事本打开无乱码而用UE打开乱码现象今天在win7下查看一个系统日志文件时，出现一个奇怪的现象，记事本打开无乱码而用UE打开乱码现象，后来才发现原来这是编码的问题。乱码现象，如下图：用记事本...

Android入门开发指南之六 -- 指南：一个记事本应用程序: Android入门开发指南之六 -- 指南：一个记事本应用程序这一节的指南将手把手的教你使用Android框架和工具来才创建应用程序。我们从一个重新配置的工程文件开始，它通过开嘎一个简单的记事本应用程序和提供完整的例子...

五个最好用的记事本软件: 记事本软件是我们平常用得最多的工具之一，然而Windows自带的NotePad功能太过简单，市面上虽有不少记事本软件，但跟全球最顶级的五个最好用的记事本软件相比，还有相当大的差距！　1、UltraEdit-32官方简体中文...

MFC：读取整个记事本文件

Java基础：Java的记事本编写代码，使用cmd运行: 目录一、前提：二、写代码： ... 四、关于cmd基础命令： ...五、按照四步骤找到你的两个代码文件 ...七、运行代码（输入java TestHelloJava敲击回车）： ...一、前提：你的电脑必须是安装完jdk并配置好环境变量的，如没有...

五款记事本替代软件: 导读： 记事本是Windows操作系统中自带的文本编辑器，由于其小巧简单，被人们大量频繁使用。但由于其过于简陋，很多我们需求的功能它不能够完成，就有了记事本替代软件。与我前面文章能改变你使用习惯的十大免费软件...

C#窗体实例：记事本: 用VS写记事本其实很简单，现成的控件现成的代码，一边打开一个电脑上的记事本，一边照着写菜单，然后编辑功能。VS里自带很多控件，能够直接使用来完成所要的功能。运行效果如图：在窗体中添加menuStrip控件...

网编工具：什么是记事本最佳的替代工具: Windows操作系统中自带了不少的实用小程序，但是它们大都功能简陋...我们将推荐一系列可以替代Windows自带软件相应功能的实用小软件，它们功能更为强大，但是体积却不大，且大多是免费的，即可以更好地满足我们的使用，

Java开发记事本（完整版）: Java开发记事本（完整版）

JAVA：打开记事本和关闭记事本: import java.io.IOException; public class 终止程序 { public static void main(String[] args) { Runtime run=Runtime.getRuntime(); //建立操作类 Process pro=null; //获取操作类方法exec（）的...

Windows7下新建记事本的四种编码方式: 如图所示，在win7新建记事本，再点击另存为，发现如图所示的四种默认编码方式，但实际这个txt文件的编码到底是什么，还是得通过notepad来查看，才准确。1.ANSI新建一个记事本，由于默认是ANSI编码，所以不用改编码...

基于JAVA的简单界面设计：记事本: //跟韩老师学的，一点点，一点点 //包含菜单条，工具条，二级菜单，多行文本，助记符等等 //一会发个QQ的界面（纯山寨，呵呵） import java.awt.*; import javax.swing.*; public class Text1 extends JFrame{ ...

Android实现风蓝记事本（1）：总结: 用Android实现一个比较简单的记事本：开发语言：Android 开发工具：eclipse，夜神模拟器（模拟手机）开发系统：Windows 1.记事本功能介绍：目前该记事本实现了基本的记事功能，并提供了一些菜单选项 ...

关于Windows下记事本中保存编码的格式问题: 关于Windows下记事本中保存编码的格式问题Windows下记事本保存文本文件的时候，可以选择不同的编码格式来保存文件，各种编码保存的文件的二进制是不同的，举例说明：我们在记事本中输入123，选择默认的编码格式，即...

Qt入门教程系列之三第一个Qt项目：记事本: 这就是我们的记事本 看完这篇博客可能还有许多不懂，不过别急，我后面还会更新博客来讲Qt。你可以先百度来解决自己的问题。二、编写记事本 所有新增的代码都应该自己敲一遍。不懂的，可以先略过。C++要是不...

(总结)JAVA课程设计报告:记事本的设计与实现: JAVA课程设计报告:记事本的设计与实现首先声明: 由于正在学习Java,正好找到了关于记事本的许多资料,所以就参考网上的课程设计和源代码,自己翻版一个记事本小程序,目的只在于熟悉应用Java中所学知识点.总结一下...

Qt : 记事本demo(附全部源码): 回想起学习Qt已经快四个多月了,还记得我写的第一个小项目,就是windows系统下的记事本程序,也就是我们习惯称为的notepad.早上把之前写的代码拿出来看了,说真的,看笑了自己，以前写的代码感觉好幼稚,很多地方写的都很...

个人记事本(idea插件与实用软件）: 个人记事本(idea插件与实用软件）好用的软件： myBaseHack 记事本软件 SQLyog sql连接工具 Notepad++ 文本编辑器 fiddler 抓包工具 Adobe Reader XI PDF阅读器 ...

五款最好用的记事本编程软件比UltraEdit强大: 记事本软件是我们平常用得最多的工具之一，然而Windows自带的NotePad功能太过简单，市面上虽有不少记事本软件，但跟全球最顶级的五个最好用的记事本软件相比，还有相当大的差距！　1、UltraEdit-32官方简体中文版...

Java图形界面开发—简易记事本: 简易记事本小练习

C#基础：用记事本编写简单WinForm窗体程序: 其实，用记事本也可以编写出VS编写的WinForm程序。还是直接看代码吧： 1、打开记事本，写入以下代码，另存为hello.cs文件using System; using System.Windows.Forms;namespace Hello { public class

使用记事本编写Ps脚本: 欢迎大家学习Photoshop脚本，这一神奇又强大的工具。大家可以使用三种语言编写Photoshop脚本，在此我们使用最广泛的Javascript语言来编写脚本。...在记事本里，输入一段简单的语句： alert("Hello Photoshop");

电脑右键新建没有记事本怎么办？: 遇到了个小怪事电脑突然右键新建不了记事本，甚是奇怪，解决办法：将记事本注入注册表即可：新建txt.reg文件当然文件名可以随便，只要是.reg结尾的注册表文件即可，里面写上如下代码： ...

Fly记事本1.0版本 C#记事本源码: Fly记事本1.0版本 C#记事本源码近用C#编写了一个记事本，跟window自带的记事本功能和外表基本相同，现在功能基本实现！涉及知识点： 1.文本文件读写 2.反射的应用 3.接口的应用 4，插件的原理功能：近用C#...

黑客专属记事本（编程记事本）: 这个记事本比系统自带记事本视觉上更好看一些，大家可以下载试用一下，自我感觉还是可以的黑客记事本本：360云盘下载访问密码 259d 另外推荐几款好用的编程记事本，都已用过，都十分小巧实用，其中任一款都...

通过JAVA程序写一个简易的记事本: * @功能：简单的记事本功能 * @涉及主要知识点：Java的图形化界面、ActiveListener监听、文件的io流 * **/ package com.notepal; import java.awt.Color; import java.awt.event.ActionEvent; import

Android小项目：记事本: 前几天写了一个Android记事本小程序，现在记录一下。考虑到是记事本小程序，记录的内容只有文字，而且内容不会太长，所以选择使用SQLite数据库，数据存放在用户的手机上。牵涉到数据库，那自然是一个实体。先设计...

基于Android的记事本APP设计与实现: 人们已经习惯用手机来处理一些事情，尤其用手机的记事本或者标签来记录日常工作的事物，在这种情况下，开发一款基于android平台的简单实用的记事本很有必要，可以在很大程度上方便人们的生活。此次课题研究的目标是...

相关热词 c#怎么创建文件夹 c#从键盘接收空格 c#da/ad c#服务器socket c# 默认的访问修饰符 c#拖动文件 c# 截取指定窗口屏幕 c# html对象传后台 c# 判断域名还是ip c#遮罩层