Как привязать TServerSocket к определенному IP-адресу

Question

Кто-нибудь знает какой-либо способ привязать компонент Delphi TServerSocket для приема запросов только по определенному локальному адресу?

Сервер имеет несколько IP-адресов, но требуется, чтобы серверное приложение принимало запросы на одном IP-адресе только при его запуске.

Answer 1

TServerSocket не напрямую раскрывает функцию, о которой вы просите, однако это можно сделать с небольшим обходным решением.

Чтобы получить доступ к охраняемому объекту TAbstractSocket.Address, вам необходимо получить новый класс от TServerSocket. Это значение, которое привязывается к TServerSocket. Поскольку свойство обычно не доступно, оно остается пустой строкой, которая совпадает с привязкой к 0.0.0.0 (aka INADDR_ANY, то есть ко всем локальным IP-адресам).

Как только вы сможете получить доступ к свойству Address, вы можете установить его на любой IP-адрес, который вы хотите до активации сервера, и сервер будет привязываться соответствующим образом.

Например:

type 
    TServerSocketAccess = class(TServerSocket) 
    end; 

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