So binden Sie einen TServerSocket an eine bestimmte IP-Adresse

Question

Kennt jemand eine Möglichkeit, eine Delphi TServerSocket-Komponente so zu binden, dass nur Anforderungen für eine bestimmte lokale Adresse akzeptiert werden?

Der Server verfügt über mehrere IPs, erfordert jedoch, dass die Serveranwendung nur dann Anforderungen an eine IP akzeptiert, wenn sie ausgeführt wird.

Answer 1

TServerSocket stellt die gewünschte Funktion nicht direkt zur Verfügung, ist jedoch mit einer kleinen Umgehungsmöglichkeit machbar. Sie müssen eine neue Klasse von TServerSocket ableiten, um Zugriff auf die geschützte TAbstractSocket.Address-Eigenschaft zu erhalten Das ist der Wert, den TServerSocket bindet. Da die Eigenschaft normalerweise nicht zugänglich ist, bleibt sie eine leere Zeichenfolge, die mit der Bindung an 0.0.0.0 (alias INADDR_ANY, dh alle lokalen IPs) identisch ist.

Sobald Sie auf die Eigenschaft Address zugreifen können, können Sie vor dem Aktivieren des Servers die gewünschte IP-Adresse festlegen, und der Server wird entsprechend gebunden.

Zum Beispiel:

type 
    TServerSocketAccess = class(TServerSocket) 
    end; 

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