There is an OnCommand event which is called for each header line. It get as 
var parameter the header line. Just pick one standard header line and add 
yours.

For example:

procedure TForm1.HttpCli1Command(Sender: TObject; var S: String);
begin
    if SameText(Copy(S, 1, 5), 'Host:') then
        S := 'If-Modified-Since: Sat, 17 Apr 2004 09:20:08 GMT' + #13#10 +
               'If-None-Match: "cce5a62d5d24c41:53b"' + #13#10 +
               S;
end;


----- Original Message ----- 
From: "Higer" <[EMAIL PROTECTED]>
To: <twsocket@elists.org>
Sent: Saturday, November 19, 2005 4:39 PM
Subject: [twsocket] How to get with "If-None-Match" by HttpCli???


>I want to get like this
>
>  GET /ieplus/layer.htm HTTP/1.1
> If-Modified-Since: Sat, 17 Apr 2004 09:20:08 GMT
> If-None-Match: "cce5a62d5d24c41:53b"
> Host: cn-layer.gg888.net
>
>  How can I do?
>
>
>
> ---------------------------------
> Yahoo! FareChase - Search multiple travel sites in one click.
> -- 
> To unsubscribe or change your settings for TWSocket mailing list
> please goto http://www.elists.org/mailman/listinfo/twsocket
> Visit our website at http://www.overbyte.be 

-- 
To unsubscribe or change your settings for TWSocket mailing list
please goto http://www.elists.org/mailman/listinfo/twsocket
Visit our website at http://www.overbyte.be

Reply via email to