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。

 

 

你可能感兴趣的:(Data)