DataSnap侦听端口动态设置问题

使用DataSnap做服务器，端口设置为可配置，然后在程序中动态指定：

 

procedure TscUPower.DataModuleCreate(Sender: TObject);
begin
  dstUPower.Port:=DSPort;
end;

 

默认端口为211,测试改变端口，没有报告错误，但客户端连接不上。后调整为：

 

procedure TscUPower.DataModuleCreate(Sender: TObject);
begin
  dstUPower.Stop;
  dstUPower.Port:=DSPort;
  dstUPower.Start;
end;

 

OK，客户端可以正常连接了。

端口动态配置，为了避免可能存在的端口冲突。

 

注：dstUPower为TDSTCPServerTransport。