用户自定义idtcpserver的端口 ( 积分: 100 )

  • 主题发起人 主题发起人 ynwgdxa_zq
  • 开始时间 开始时间
Y

ynwgdxa_zq

Unregistered / Unconfirmed
GUEST, unregistred user!
各位好:

  我用idtcpserver写了一个文件传输程序,文件打开后,用户自定义的端口不起作用.每次都是使用在设计时指定的那一个defaultport.请idtcpserver控件在运行时怎么去改变它的端口值."idtcpserver1.DefaultPort:=strtoint(edit1.Text)"不起作用.谢谢.
 
各位好:

  我用idtcpserver写了一个文件传输程序,文件打开后,用户自定义的端口不起作用.每次都是使用在设计时指定的那一个defaultport.请idtcpserver控件在运行时怎么去改变它的端口值."idtcpserver1.DefaultPort:=strtoint(edit1.Text)"不起作用.谢谢.
 
先close再改端口
然后再open
 
大哥,没有close属性呀,倒时有一个active.先把它设为false,改完端口后再设为true;也不起作用.
 
何不去研究一下那个Bindings属性~
 
procedure TForm1.Button1Click(Sender: TObject);
begin

IdTCPServer1.Active:=false;

IdTCPServer1.Bindings.Add.Port:=81;
IdTCPServer1.Active:=true;

end;
 
后退
顶部