当TcpServer1.Close后，怎样再打开端口?

顶者有分!  
  问题点数：100、回复次数：17Top

1 楼trustmeok（）回复于 2003-12-04 18:09:36 得分 0

不怕冷的给兄弟顶一把吧！！Top

2 楼trustmeok（）回复于 2003-12-05 15:24:38 得分 0

帮帮忙吧！Top

3 楼hongqi162（失踪的月亮）回复于 2003-12-05 15:33:12 得分 30

procedure   TFrmUpdate.StartServerClick(Sender:   TObject);  
  begin  
      with   TCPServer   do  
      begin  
          Active   :=   False;  
          DefaultPort   :=   StrToInt(EdPort.Text);  
          Active   :=   True;  
          LogMemo.Lines.Add(DateTimeToStr(Now)+'　服务已经启动！(Port:   '+EdPort.Text+')');  
      end;  
  end;  
   
  procedure   TFrmUpdate.StopServerClick(Sender:   TObject);  
  begin  
      with   TCPServer   do  
      begin  
          Active   :=   False;  
          LogMemo.Lines.Add(DateTimeToStr(Now)+'　服务已经停止！');  
      end;  
  end;  
  Top

4 楼trustmeok（）回复于 2003-12-05 17:01:21 得分 0

To   hongqi162(失踪的月亮)  
   
  谢了，请问你用的是TTcpServer？我没找到   DefaultPort   这个属性  
   
  DefaultPort   :=   StrToInt(EdPort.Text);Top

5 楼trustmeok（）回复于 2003-12-05 17:26:51 得分 0

如果使用的是TTcpServer  
  这段代码还是没用！  
   
  Active   :=   True;后，我使用自己编的测试，还是显示端口未打开Top

6 楼trustmeok（）回复于 2003-12-07 11:36:36 得分 0

再顶Top

7 楼liunini（妮妮）回复于 2003-12-07 18:36:03 得分 10

没用过Tcp控件，帮不上什么忙，帮你顶一下吧！Top

8 楼trustmeok（）回复于 2003-12-08 09:52:51 得分 0

谢谢，顶啊！  
   
  大家如果不是TTcpServer  
   
  socket的也行啊!Top

9 楼trustmeok（）回复于 2003-12-09 12:32:18 得分 0

详情请见  
  http://expert.csdn.net/Expert/topic/2491/2491672.xml?temp=.8631098Top

10 楼zhujunfeng（ericss）回复于 2003-12-09 13:38:32 得分 10

openTop

11 楼sandyboy（雨霆）回复于 2003-12-09 13:58:50 得分 10

帮顶`~Top

12 楼trustmeok（）回复于 2003-12-09 17:40:34 得分 0

顶Top

13 楼trustmeok（）回复于 2003-12-10 17:30:46 得分 0

亲爱的朋友们，一起来顶顶Top

14 楼civilii（木瓜）回复于 2003-12-13 13:42:08 得分 20

At   design   time,   set   Active   to   True   to   make   the   socket   open   a   connection   when   the   application   starts   running   (the   default   value   is   False).   At   runtime,   use   the   Open   or   Close   method   to   open   or   close   the   connection.  
  用localport和open难道不行吗？  
  也顶   :)Top

15 楼trustmeok（）回复于 2003-12-15 09:26:41 得分 0

顶Top

16 楼trustmeok（）回复于 2003-12-25 15:32:23 得分 0

顶Top

17 楼XXSingle（心无了然）回复于 2003-12-25 21:42:37 得分 20

楼主检查一下代码吧，是不是被其它占用了这个端口；  
  正常情况下，close以后，再open是没有错的，  
  致少我还没错过Top

相关问题

• 端口
• active
• tcpserver
• edport
• defaultport
• close
• open
• begin
• true
• text

• 帖主：trustmeok
• hongqi162
• liunini
• zhujunfeng
• sandyboy
• civilii
• XXSingle

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载