使用DataSnap做服务器,端口设置为可配置,然后在程序中动态指定:
procedure TscUPower.DataModuleCreate(Sender: TObject);
begin
dstUPower.Port:=DSPort;
end;
begin
dstUPower.Port:=DSPort;
end;
默认端口为211,测试改变端口,没有报告错误,但客户端连接不上。后调整为:
procedure TscUPower.DataModuleCreate(Sender: TObject);
begin
dstUPower.Stop;
dstUPower.Port:=DSPort;
dstUPower.Start;
end;
begin
dstUPower.Stop;
dstUPower.Port:=DSPort;
dstUPower.Start;
end;
OK,客户端可以正常连接了。
端口动态配置,为了避免可能存在的端口冲突。
注:dstUPower为TDSTCPServerTransport。