Delphi 修改ScktComp使ServerSocket可以绑定在指定IP

ScktComp的ServerSocket在启动后默认是侦听当前服务器所有IP.即0.0.0.0.这对一个需要内部通信的程序来讲是一个严重的安全隐患.闲话少说.修改方案如下

1. 修改TServerSocket可以动态修改绑定的地址

TServerSocket = class(TCustomServerSocket)public constructor Create(AOwner: TComponent); override; property Socket: TServerWinSocket read FServerSocket;published property Active; property Address; //Jay property Port;

2. 修改TCustomWinSocket.AsyncInitSocket默认侦听地址

{Jay if not Client then begin} FLookupState := lsLookupAddress; FAddr.sin_addr.S_addr := INADDR_ANY; {Jay end else} if Name <> '' then

特别需要注意的是.修改后的ScktComp需要编译一次,然后把.dcu文件放在lib下.或者直接把ScktComp.pas放在lib下