DataSnapリスニングポートの動的設定の問題

990 ワード

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です.