AH yes jlist9 , i use the follwing : { * Domain List is a ListView that conatains the Full Domains the subItem[4] takes the Value ( Blocked / UnBlocked ) , so when the value is ' Blocked ' normally the web page will not be accessible .
and the filtered domains format is : www.mywebsit.com or mywebsite and even i give the IP address *} procedure TForm1.HTTPClientHeaderAvailable(sender: TObject; Client: TGpProxyClient; url: String; var header, proto, user, pass, host, port, path, hdrHost: String; var ignoreNextHopProxy: Boolean; var returnContent: String); Const wBlocked = 'HTTP/1.1 403 Forbidden'#13#10+ 'Connection: close'#13#10+ 'Content-Type: text/html'#13#10#13#10+ '<HTML><HEAD><TITLE>Blocked</TITLE></HEAD><BODY><H1>Blocked</H1>'#13#10+ 'Access to the requested URL <B>%s</B> was not allowed.'#13#10+ '</BODY></HTML>'#13#10; var i:integer; begin For I:=0 to DomainList.Items.Count-1 do begin if DomainList.Items[i].SubItems[4]='Blocked'then Begin // subitem[1] is the IP addresses Value if DomainList.Items[i].SubItems[1] = client.GetPeerAddr then returncontent :=Format(wlocked,[client.GetPeerAddr]) ; // subitems[0] is the domains Value if CompareText(host,DomainList.Items[i].SubItems[0]) = 0 then returnContent := Format(wlocked,[host]); if CompareText(header,DomainList.Items[i].SubItems[0]) = 0 then returnContent := Format(wlocked,[header]); end; end; is there any error with this . thank you again On 5/16/09, jlist9 <jli...@gmail.com> wrote: > > How are you filtering the domain name exactly? > Maybe you are using the full name such as http://www.domain.com/ > while the google result uses a partial name such as domain.com ? > > > On Sat, May 16, 2009 at 10:08 AM, randy <randy...@gmail.com> wrote: > > Thank you Francois , just for you information i use FireFox for testing , > do > > that makes difference ? > > i mean is there any special settings or information that i should use > when > > using Firefox . > > -- > > To unsubscribe or change your settings for TWSocket mailing list > please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket > Visit our website at http://www.overbyte.be > -- Many thanks ----- Yours Randy -- To unsubscribe or change your settings for TWSocket mailing list please goto http://lists.elists.org/cgi-bin/mailman/listinfo/twsocket Visit our website at http://www.overbyte.be