🚀 go-pugleaf

Robert Turlej wrote:
> Could you help me ... because I've never do something with HTTP in builder.
> Do I need special library or builder 6 has it already?
> If you could write me here small code to take website by HTTP to analyse 
> I  will be grateful.

Hope I'm not too late to help you out. This routine should give you some idea as to how to 
implement your own version. It *does not* use any 3rd party libraries. It gets the HTML 
source code of any given URL and stores it in the file specified by fnm :-

unsigned long mjgeturlconts(AnsiString url,AnsiString fnm)
{
   char *bfr; unsigned long nmbyts=0,ba,br=1; FILE *fp; AnsiString msg;
   HINTERNET hss=InternetOpen("WhateverApp",INTERNET_OPEN_TYPE_DIRECT,NULL,NULL,0);
   if (!hss) { msg="Could not Open Internet Session"; ShowMessage(msg); return 0;}
   HINTERNET hsv=InternetOpenUrl(hss,url.c_str(),NULL,0,0,0);
   if (!hsv)
   {
     msg="Could not Open Service "+url; ShowMessage(msg);
     InternetCloseHandle(hss); return 0;
   }
   InternetQueryDataAvailable(hsv,&ba,0,0);
   if (ba==0)
   {
     msg="No Data Available at "+url; ShowMessage(msg);
     InternetCloseHandle(hss); return 0;
   }
   ba=max(10240,ba); bfr=(char *)malloc((ba+9)*sizeof(char));
   if (!bfr)
   {
     msg="Not Enough Memory - "+AnsiString(ba+9); ShowMessage(msg);
     InternetCloseHandle(hss); return 0;
   }
   fp=fopen(fnm.c_str(),"wb");
   if (!fp)
   {
     msg="Could not Open File "+fnm; ShowMessage(msg);
     free(bfr); InternetCloseHandle(hss); return 0;
   }
   while (br!=0)
   {
     InternetReadFile(hsv,bfr,ba,&br); fwrite(bfr,sizeof(char),br,fp); nmbyts+=br;
   }
   fclose(fp); InternetCloseHandle(hss); hss=NULL; free(bfr);
   return nmbyts;
}

You may need to add Borland\CBuilder5\Lib\wininet.lib or the header wininet.hpp, but you 
may not need to. HTH,

-- 
Mark Jacobs
http://www.dkcomputing.co.uk