Есть куча страниц,
которые нужно скачать
Руками очень долго
Попытался автоматизировать,
задавая адрес страницы кодом.
Причем для наклономеров так скачал лет пять примерно за двое суток.
Вот пример ссылки
service.iris.edu/mustang/noise-psd/1/query?target=KR.ANVS.--.BHZ.M&starttime=2007-11-21T09:41:33&endtime=2008-11-21T09:41:33.000&format=text
Если вставить в любой интернет навигатор,
будет минут двадцать качаться
Пытаюсь получить это же самое
strrel = равно выше приведенной ссылке.
Возвращает какое-то число с минусом,
никакой файл не пишется
Try
= IsFileDownloaded(strrel, myfile)
Catch To loexp
Set Step On
Endtry
Endscan

Function IsFileDownloaded
Lparameters tcSourceFile As String, tcTargetFile As String
If !File(tcTargetFile)
Declare Integer URLDownloadToFile In URLMON.Dll Long, String, String, Long, Long
rtt = URLDownloadToFile(0, tcSourceFile, tcTargetFile, 0, 0)
Clear Dlls 'URLDownloadToFile'
Return File(tcTargetFile)
Endif
Return .F.
Function IsInternetConnected
Local lnFlags As Integer
Declare SHORT InternetGetConnectedState In WININET Long @, Long
lnFlags = 0
InternetGetConnectedState(@lnFlags, 0)
Clear Dlls 'InternetGetConnectedState'
Return !Inlist(lnFlags, 0, 16, 32, 48)

Пример успешной работы по приведенному принципу
TRY
= IsFileDownloaded('http://tilt.unavco.org/tilt/coldwt201bwa2007/2020/001/', '001')
CATCH TO loexp
SET STEP ON
endtry



Исправлено 1 раз(а). Последнее : boba, 11.03.22 19:26