Delphi modifies scktcomp so that serversocket can be bound to a specified IP Address

The serversocket of scktcomp listens to all IP addresses of the current server by default after it is started. That is, 0.0.0.0.ProgramThis is a serious security risk.

1. Modify tserversocket to dynamically modify the bound address

Tserversocket = Class (tcustomserversocket) <br/> Public <br/> constructor create (aowner: tcomponent); override; <br/> property socket: tserverwinsocket read fserversocket; <br/> published <br/> property active; <br/> property address; // Jay <br/> property port;

2. Modify the default listening address of tcustomwinsocket. asyncinitsocket

{Jay if not client then <br/> begin} <br/> flookupstate: = lslookupaddress; <br/> faddr. sin_addr.s_addr: = inaddr_any; <br/> {Jay end else} If name <> ''then

Note that the modified scktcomp needs to be compiled once and put the. DCU file under lib or put scktcomp. PAS under Lib.