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