🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> wrote in message 
news:468a7aa6@newsgroups.borland.com...
>
> "Tom Byars" <tam118118@hotmail.com> wrote in message
> news:468a2b26$1@newsgroups.borland.com...
>
>> Someone using a TCppWebBrowser component tells me that
>> when you manually login on the home page the parameters for
>> the BeforeNavigate2 procedure have the following values
>
> Then you will have to add those additional values to your TStringList:
>
>    Login->Values["in_un"] = "username";
>    Login->Values["in_pw"] = "password";
>    Login->Values["process"] = "IN";
>    Login->Values["PARGS"] =
> "http://www.racingpost.co.uk/news/home.sd";
>
>
> Gambit
>
>
Remy, I tried

AnsiString S;
TStringList *Login=new TStringList;
TStringStream *Response=new TStringStream(S);
Login->Values["in_un"]="username";
Login->Values["in_pw"]="password";
Login->Values["process"]="IN";
Login->Values["PARGS"]="http%253A%252F%252Fwww.racingpost.co.uk%252Fnews%252Fhome.sd";
Betting->Post("http://www.racingpost.co.uk/news/home.sd",Login,Response);
S=Response->DataString;
delete Login;
delete Response;

but it doesn't work. Incidentally, I had to set 
Betting->InterceptEnabled=false as the program hung when the Betting->Put 
line was executed. I'm thinking that then makes the InterceptSSL component 
redundant which in turn makes me think there are properties in the component 
I've not set right (although I don't know what the properties mean and indy 
help is no help).