Logging in to a website and downloading info 1

[Stretchwickster]

Hi,

I would like to write a Delphi app that automates a
log-in to a website (i.e. enters my username and password)
and then retrieves information from my account. Is this
possible? If so, how would I go about it?

Your help would be much appreciated! Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[KempCGDR]

Well, depends exactly what you want to do. What do you want to retrieve? Where from?

 

[Stretchwickster]

Basically, I play an online stocks and shares game found at

http://www.bbc.co.uk/celebdaq.

After automating the log-in, I want to retrieve the current value of my shares. Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[Stretchwickster]

I can do the retrieval of data once I've logged in, but just need to know how to automate the log-in part. Btw, I'm using Delphi 6. Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[Stretchwickster]

No-one has any ideas then? Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[michaenh]

not yet...

have not got the time to investigate the problem...

cheers



mha

 

[Stretchwickster]

Just bringing it up to the top. Can this not be done?

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[GeppoDarkson]

Hi,
I usually start everithigs with the convinction that if it can be done, you can do it with Delphi.

Try to look at IndyClients palette and put a TIdHTTP component on your form naming it HTTP1.

Now we take the HTML of the page you want via HTTP1.Get(URLEdit.Text):

HTTP1.Request.Username := '';
HTTP1.Request.Password := '';
HTTP1.Request.ContentType := '';
HTTP1.Intercept := LogDebug;
memoHTML.Lines.Clear; //Accept the HTML of the page
memoHTML.Lines.Text := HTTP1.Get(URLEdit.Text);

In memoHTML we have the page, where you can find your informations.

To login look at HTTP1.PUT

Hope this can be usefully.

Ciao,
Geppo Darkson.

 

[Stretchwickster]

Thank you very much Geppo - I didn't really know where to start looking! I'll have a play with IndyClients.

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)

 

[Stretchwickster]

In the end I used

HTTP1.Post('[URL unfurl="true"]http://www.bbc.co.uk/cgi-perl/celebdaq/trade.cgi',[/URL] ParamData, PostDataStream);

Where ParamData aad PostDataStream are of type TStringStream. Basically ParamData passes in some extra data with the URL call and PostDataStream stores the output of the call i.e. the website code.

Clive

http://www.kucu.co.uk

Ex nihilo, nihil fit (Out of nothing, nothing comes)