I think you should check if it's there and why your code is finding it
in one case but not the other, and what's different between the two,
then decide on the fix.

On Sat, May 16, 2009 at 11:13 AM, randy <randy...@gmail.com> wrote:
> 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
>
-- 
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

Reply via email to