Thread: FoxPro Some General Questions/Download files from URL

Download files from URL
Original message
Code:
#DEFINE page    "pers/"  
  #define Gif1   200  
  #define Gif2   300  
    
  Declare integer InternetOpen in WinInet ;  
      String lpszAgent,;  
      INteger dwAccessType,;  
      String lpszProxyName,;  
      String lpszProxyBypass,;  
      Integer dwFlags  
    
  Declare Integer InternetCloseHandle in WinInet integer  
    
  Declare integer InternetReadFile in WinInet ;  
     Integer hFile,;  
     String @ lpBuffer,;  
     Integer dwNumberOfBytesToRead,;  
     Integer @ lpdwNumberOfBytesRead  
    
  Declare integer InternetOpenUrl in WinInet ;  
     integer hInternet,;  
     string lpszUrl,;  
     string lpszHeaders,;  
     integer dwHeadersLength,;  
     integer dwFlags,;  
      integer dwContext  
    
  hInet=InternetOpen("FoxPro",0,0,0,0)  
    
  MD(PAGE)  
    
  For i=Gif1 to Gif2  
     m.cFile=Transform(i,"@L 999")+".gif"  
     hUrl=InternetOpenUrl(hInet,"http://smailiki.h10.ru/"+PAGE+m.cFile,0,0,0,0)  
     buf=Space(65535)  
     out=0  
     hFile=InternetReadFile(hUrl,@buf,65535,@out)  
     If out > 0  
        If 'TITLE' $ Left(buf,out) && это скрипт сайта отвечает такими файлами  
        Else  
           ? m.cFile  
           StrToFile(Left(buf,out),PAGE+m.cFile)  
        EndIf  
     EndIf  
     InternetCloseHandle(hFile)  
     InternetCloseHandle(hUrl)  
  Next  
  InternetCloseHandle(hInet)