делаю автоскачку файлов по некоему списку
Скачал около 200 файлов
Потом интернет отвалился
и все мои попытки пойти дольше
проваливаются
Качает из списка первый файл , выдает код ошибки
с минусом, и все
При следующем запуске снова читает только первый файл
в списке
Если в программе ошибка, как она ухитрилась до этого
отработать несколько часов и скачать пару сотен файлов
Файл список скачки вкладываю
Зацикливание до отсутствия ошибки не помогло
Declare Integer URLDownloadToFile In URLMON.Dll Long, String, String, Long, Long
adrr ='https://www.ncdc.noaa.gov/orders/qclcd/'
lcfile =Getfile('csv')
If Not Empty(lcfile)
strr = Filetostr(lcfile)
Endif
ln = Getwordcount(strr, Chr(13))
SET STEP ON
For ii = 1 To 2* ln
lcwrd = Getwordnum(Getwordnum(strr, ii, Chr(13)),1,';')
IF EMPTY(lcwrd)
lcwrd = Getwordnum(Getwordnum(strr, ii, Chr(13)),2,';')
endif
lcXMLFile = Curdir() + Sys(2015) + '.TMP'
hadrr = adrr + lcwrd
If Not Empty(lcwrd)
lok = IsFileDownloaded(hadrr, lcwrd)
Endif
ENDFOR
Clear Dlls 'URLDownloadToFile'
* ???????? ???? ? ???????? ??? ????????
Function IsFileDownloaded
Lparameters tcSourceFile As String, tcTargetFile As String
If !File(tcTargetFile)
lon = -1
DO WHILE lon !=0
lon = URLDownloadToFile(0, tcSourceFile, tcTargetFile, 0, 0)
enddo
Return File(tcTargetFile)
Endif
Return .F.
Function isinternetconnected
Local lnFlags As Integer
Declare SHORT InternetGetConnectedState In WININET Long @, Long
lnFlags = 0
InternetGetConnectedState(@lnFlags, 0)
Return !Inlist(lnFlags, 0, 16, 32, 48)