🚀 go-pugleaf

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