求助:windows服务中Indy组件的使用(200)

  • 主题发起人 主题发起人 ghtmhy
  • 开始时间 开始时间
G

ghtmhy

Unregistered / Unconfirmed
GUEST, unregistred user!
求助:在winxp sp3系统中,使用Indy10组件写了一个服务,监听客户端的连接和访问,服务可以正常启动,监听也可启动,但监听启动后并没有真正工作,客户端提示拒绝连接,服务端程序改为EXE可执行文件后,可以正常运行。请求帮助:为什么服务中的监听无法正常工作?
 
试试改一下运行服务的用户如果可以,说明是权限问题。
 
我是在一台电脑上测试,用管理员账号登陆。日志记录显示,服务端一直处于监听状态。操作系统刚启动登陆的时候,用netstat命令可以看到这个端口处于监听状态,稍过几秒,再用该命令查看时,已经看不到该端口了,但日志显示服务端仍在监听。
 
进程还存在吗?是不是被什么防木马软件干掉了。你用新系统试试,什么都不装。
 
开发思路:编写一个Windows NT服务,在服务启动过程中,启动一个线程,在线程中执行如下代码,启动监听。运行过程中,线程一直存在,新装的系统。说明一下,程序在大多数版本中都能正常使用,在个别XP sp3的克隆版中,存在上述问题,但现在大多客户端都是使用的克隆版的XP sp3,如果都让换系统,不是很现实,只能想法改程序,或调整系统设置。procedure CommSvr.Execute;begin FreeOnTerminate := True; CoInitialize(Nil); WriteLog('正在启动监听程序'); Try GFCommService.IdTCPServer1.Active := False; GFCommService.IdTCPServer1.Bindings.Clear; With GFCommService.IdTCPServer1.Bindings.Add Do Begin IP := is_ip; Port := ii_port; End; GFCommService.IdTCPServer1.DefaultPort := ii_port; Try GFCommService.IdTCPServer1.StartListening; GFCommService.IdTCPServer1.Active := True; //GFCommService.IdTCPServer1.Bindings.Items[0].Port WriteLog('监听地址:' + GFCommService.IdTCPServer1.Bindings.Items[0].IP); WriteLog('监听端口:' + INtToStr(GFCommService.IdTCPServer1.Bindings.Items[0].Port)); //WriteLog('监听端口2:' + INtToStr(GFCommService.IdTCPServer1.DefaultPort)); Except On E1:Exception Do Begin WriteLog('启动监听程序失败。错误信息:' + E1.Message); Exit; End End; Except On E:Exception Do Begin WriteLog('启动监听程序失败。错误信息:' + E.Message); Exit; End End; WriteLog('启动监听程序成功'); While (Not Terminated) Do Begin Sleep(1000 * 3600); //Sleep(3000); //If GFCommService.IdTCPServer1.Active Then WriteLog('监听状态:正在监听...'); //在此处测试,仍然处于监听状态。 End; CoUninitialize;end;
 
>>程序在大多数版本中都能正常使用,在个别XP sp3的克隆版中,存在上述问题说明还是系统的问题这个估计不是改程序能搞定的,还是看看能不能调整一下系统。
 
后退
顶部