🚀 go-pugleaf

"Param" <param_nirvana@yahoo.com> wrote in message
news:4272c790@newsgroups.borland.com...

>     ClientSocket1->Address = "195.190.132.10";

Use the Host property instead:

    ClientSocket1->Host = "www.national-lottery.co.uk";

>     ClientSocket1->Active = true;
>
>     if( ClientSocket1->Active )

You did not specify whether you are using the socket in blocking or
non-blocking mode.  If non-blocking, then that condition will almost always
be false since the socket does not actually connect right away.  You should
move the downloading code into the socket's OnConnect event instead, ie:

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
        if( ClientSocket1->Active )
            ClientSocket1->Active = false;

        ClientSocket1->Port = 80;
        ClientSocket1->Address = "195.190.132.10";

        try {
            ClientSocket1->Active = true;
        }
        catch(const Exception &) {
            ListBox1->AddItem("Exception", this);
        }
    }

    void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
    {
        ListBox1->AddItem("Connected", this);

        // you must specify the leading backslash when specifying the file
        // to download, and you must use CRLF, not LF alone, for all
        // line breaks...

        try
        {
            Socket->SendText("GET /player/files/EuroMillions.csv
HTTP/1.0\r\n\r\n");
            //...
        }
        catch(const Exception &) {
            ListBox1->AddItem("Exception", this);
        }
    }


Now, with that said, the actual responses from the server need to be handled
in the socket's OnRead event.

However, do note that using TClientSocket in non-blocking mode, if you are
indeed doing so, will make the processing quite complicated to code for.
Even in blocking mode, HTTP in general is a complex protocol to implement
manually.  You would be MUCH better off not using TClientSocket at all.
There are plenty of third-party HTTP components available that do all of the
hard work for you.  Indy (http://www.indyproject.org) and ICS
(http://www.overbyte.be) are amongst the popuplar choices that include HTTP
support (amongst other things).


Gambit