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

ScktComp的ServerSocket在啟動後預設是偵聽當前伺服器所有IP.即0.0.0.0.這對一個需要內部通訊的程式來講是一個嚴重的安全隱患.閑話少說.修改方案如下

1. 修改TServerSocket可以動態修改綁定的地址

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. 修改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

特別需要注意的是.修改後的ScktComp需要編譯一次,然後把.dcu檔案放在lib下.或者直接把ScktComp.pas放在lib下