🚀 go-pugleaf

Thanks
Unfortunately I can't check this out anymore, a trip abroad has been pulled
in, I will check it out in two weeks !

-------------------------------------------------------------
"Mark Jacobs" <markjattycriticaldottycodottyuk> wrote in message
news:opsc8ticwebvaws7@dk-tzx09ucg42z4.s1.sol1.co.uk...
On Sat, 21 Aug 2004 21:37:41 +0200, Peter <Peter@smart-projects.net> wrote:

> I works 'nicely' for txt or html files with various content but the
> moment
> the first line says :  <?xml version="1.0" ?> it doesn't work.

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

url is the url you are trying to get whatever from, and fnm is the name of
the file you want to store it in.

HTH
-- 
Mark Jacobs
DK Computing
http://www.dkcomputing.co.uk
markj atty critical dotty co dotty uk