so jlist9 , do you suggest using Pos function instead of CompareText ? is
that correct ?
and should Pos Function give the Result ?
On 5/16/09, jli...@gmail.com <jli...@gmail.com> wrote:
>
> You can try printing out the header and see if it has your domain name
> in it. Then figure out why CompareText isn't catching it. Looks like
> you are doing a full string match. Wouldn't a partial match work
> better?
>
>
> > 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
