使用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。