CDownloadFile

#property strict

#import "wininet.dll"

#define INTERNET_FLAG_PRAGMA_NOCACHE    0x00000100 // Forces the request to be resolved by the origin server, even if a cached copy exists on the proxy.
#define INTERNET_FLAG_NO_CACHE_WRITE    0x04000000 // Does not add the returned entity to the cache. 
#define INTERNET_FLAG_RELOAD            0x80000000 // Forces a download of the requested file, object, or directory listing from the origin server, not from the cache.

int InternetOpenA(
	uchar & sAgent[],
	int		lAccessType,
	uchar & sProxyName[],
	uchar & sProxyBypass[],
	int 	lFlags=0
);

int InternetOpenUrlA(
	int 	hInternetSession,
	uchar & sUrl[], 
	uchar & sHeaders[],
	int 	lHeadersLength=0,
	int 	lFlags=0,
	int 	lContext=0 
);

int InternetReadFile(
	int 	hFile,
	uchar & sBuffer[],
	int 	lNumBytesToRead,
	int& 	lNumberOfBytesRead[]
);

int InternetCloseHandle(
	int 	hInet
);
#import

class CDownloadFile
{
private:
   bool _winInetDebug;
   int _hSession_IEType;
   int _hSession_Direct;
   int _Internet_Open_Type_Preconfig;
   int _Internet_Open_Type_Direct;
   int _Internet_Open_Type_Proxy;
   int _Buffer_LEN;

   int InternetOpenAFIX(
   	string 	sAgent,
   	int		lAccessType,
   	string 	sProxyName="",
   	string 	sProxyBypass="",
   	int 	lFlags=0
   )
   {
      uchar sAgentFIX[], sProxyNameFIX[], sProxyBypassFIX[];
      StringToCharArray(sAgent, sAgentFIX);
      StringToCharArray(sProxyName, sProxyNameFIX);
      StringToCharArray(sProxyBypass, sProxyBypassFIX);
      return(InternetOpenA(sAgentFIX,lAccessType,sProxyNameFIX,sProxyBypassFIX,lFlags));
   }

   int InternetOpenUrlAFIX(
   	int 	hInternetSession,
   	string 	sUrl, 
   	string 	sHeaders="",
   	int 	lHeadersLength=0,
   	int 	lFlags=0,
   	int 	lContext=0 
   )
   {
      uchar sUrlFIX[], sHeadersFIX[];
      StringToCharArray(sUrl, sUrlFIX);
      StringToCharArray(sHeaders, sHeadersFIX);
      return(InternetOpenUrlA(hInternetSession,sUrlFIX,sHeadersFIX,lHeadersLength,lFlags,lContext));
   }

   int InternetReadFileFIX(
   	int 	hFile,
   	string 	&sBuffer,
   	int 	lNumBytesToRead,
   	int& 	lNumberOfBytesRead[]
   )
   {
      uchar sBufferFIX[];
      ArrayResize(sBufferFIX,lNumBytesToRead);
      int result=InternetReadFile(hFile,sBufferFIX,lNumBytesToRead,lNumberOfBytesRead);
      sBuffer=CharArrayToString(sBufferF

Показано первые 50% кода (символов: 3471)