Форум программистов [Powered by Invision Power Board]

Код

//---------------------------------------------------------------------------

bool Download(AnsiString url,AnsiString dest)
{
char buf[256];
AnsiString str=dest,agent=Edit1->Text;

int np;
bool err;
err=false;

HINTERNET session,file;          //PRE_CONFIG_INTERNET_ACCESS INTERNET_OPEN_TYPE_PRECONFIG
session = InternetOpen(agent.c_str(), PRE_CONFIG_INTERNET_ACCESS, 0, 0, 0);

file    = InternetOpenUrl(session,url.c_str(), 0, 0, 0, 0);

DWORD    Code = 0,
Size = sizeof( Code );
if (file==NULL) err=true;
 else
if (HttpQueryInfo( file, HTTP_QUERY_STATUS_CODE | HTTP_QUERY_FLAG_NUMBER, ( LPVOID ) &Code, ( LPDWORD  ) &Size, NULL  ) )
 if (Code!=200) err=true;
else
{


unsigned long len=0,offs=0;
AnsiString buff="";

if (file!=NULL)
{
DWORD Written;
HANDLE hDestFile = CreateFile(str.c_str(), GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);

if (hDestFile == INVALID_HANDLE_VALUE) err=true;
else

do {
   InternetReadFile(file, buf, sizeof(buf), &len);
   if (len>=0)
   {
      offs += len;
      buff=buf;
      WriteFile(hDestFile, buf, len, &Written, NULL);
      Application->ProcessMessages();
   }

   else
   {
      int error = GetLastError();
      err=true;
      InternetCloseHandle(file);
      InternetCloseHandle(session);
      Application->ProcessMessages();
      ::Sleep(1000);
      Application->ProcessMessages();
      session = InternetOpen("Our Agent", PRE_CONFIG_INTERNET_ACCESS, 0, 0, 0);
      file = InternetOpenUrl(session, url.c_str(), 0, 0, 0, 0);
      InternetSetFilePointer(file, offs, 0, FILE_BEGIN, 0);
   }

} while (len);

CloseHandle(hDestFile);

}

InternetCloseHandle(file);
InternetCloseHandle(session);


if (!err) return true;
 else return=false;
}
//---------------------------------------------------------------------------