特定のIPアドレスにTServerSocketをバインドする方法

Question

Delphi TServerSocketコンポーネントをバインドして、特定のローカルアドレスでのみ要求を受け入れる方法を知っている人はいますか？

サーバーにはいくつかのIPがありますが、サーバーアプリケーションは実行中の場合にのみ1つのIPで要求を受け入れる必要があります。

Answer 1

TServerSocketは、あなたが求めている機能を直接公開していませんが、ほんの少しの回避策で対応できます。

保護されたTAbstractSocket.Addressプロパティにアクセスするには、新しいクラスをTServerSocketから派生させる必要があります。これはTServerSocketがバインドする値です。プロパティには通常アクセスできないため、空の文字列のままです。0.0.0.0（別名INADDR_ANY、つまりすべてのローカルIP）へのバインディングと同じです。

プロパティにアクセスできるようになると、サーバーをアクティブにする前に任意のIPに設定して、サーバーを適切にバインドします。例えば

：

type 
    TServerSocketAccess = class(TServerSocket) 
    end; 

TServerSocketAccess(ServerSocket1).Address := '192.168.0.1'; 
ServerSocket1.Active := True;