🚀 go-pugleaf

Thanx Remy,
The code worked but i think better i should shift to Indy.

cheers
Nirvana

Remy Lebeau (TeamB) wrote:
> "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
> 
>