查看到的idtcpserver的例子都是如下面这样写,但是这样需要事先设置好bindings的ip和port属性,或者如果服务器只有一个ip地址,就使用了默认的ip地址。如果一台服务器有多个ip地址,想在程序中动态绑定ip和port,应该如何写呢?谢谢!!idtcpserver1.Active := false;
idtcpserver1.DefaultPort := 1099;
idtcpserver1.Active := true;
idtcpserver1.DefaultPort := 1099;
idtcpserver1.Active := true;
看看Help去了http://lysoft.7u7.net
大虾能不能提供一个例子啊?谢谢
begin
if idtcpserver1.Active then
begin
try idtcpserver1.Active:=false; except end;
Exit;
end;
// remove all bindings
idtcpserver1.Bindings.Clear;
idtcpserver1.DefaultPort:=hostPortEdit.Value;
idtcpserver1.Active:=true;
ListenButton.Caption:=Format('On Port %d', [idtcpserver1.DefaultPort]);
end;http://lysoft.7u7.net
s.Bindings.Clear;
with s.Bindings.Add do
begin
IP := '127.0.0.1';
Port := 100;
end;
s.Active := true;
end;http://lysoft.7u7.net