Enabled access only from IP List

[irigsoft]

Hi,

How to аllow external access only from user defined Ip list.

[pedrisco]

Where AllowedIP is the function that manages the allowed ip's, i do something like this...

 

procedure TUniServerModule.UniGUIServerModuleHTTPCommand(ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo;
  var Handled: Boolean);
begin
    if  not AllowedIP( ARequestInfo.RemoteIP ) then begin
        AResponseInfo.ContentText := '<h1>Access denied</h1>';
        Handled := True;
        Exit;
    end;

    ...

[irigsoft]

Thanks.

I was thinking if there was a list like BlockedIpList