🚀 go-pugleaf

I wrote a generic Win32-based function to transfer a file. Here it is :-

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 - "+mjfmtnm(ba+9));
InternetCloseHandle(hss); return 0;}
  fp=fopen(fnm.c_str(),"wb");
  if (!fp)
  {
    ShowMessage("Could not Open File "+fnm+"\n"+mjgetlasterror());
    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;
}

-- 
Mark Jacobs

"RS" <rs.reloaded@wanadoo.fr> wrote in message
news:416990f7$1@newsgroups.borland.com...
| The real source.cpp contains the good syntax :
| NMFTP1->Download("file.exe","c:\\temp\\file.exe");
|
| No, the problem is that the NMFTP does not "finish" the download, but the
| file "file.exe" is correctly transfered.
|
|   NMFTP1->Download("file.exe","c:\\temp\\file.exe");
|   ShowMessage("Download Complete");
|   NMFTP1->Disconnect();
|
| ShowMessage("Download Complete") does not appear, but the file is correctly
| transfered into the local directory c:\temp,
| and my application is blocked because this "NMFTP download" does not finish
| correctly.