Hallo,
ich bin minimal weitergekommen
für eine Blacklist funktioniert folgender Code:
Delphi-Quellcode:
procedure TForm1.IdHTTPProxyServer1BeforeCommandHandler(
ASender: TIdCmdTCPServer;
var AData:
string; AContext: TIdContext);
begin
Memo1.Lines.Add(PeerIP + '
' + AData);
if pos('
www.google.de',AData) > 0
then raise Exception.Create('
');
end;
Kann mir jemand einen Tip geben, wie die Whitelist aussehen könnte ??
KUBA