:: Не фоксом единым
Загрузка страницы
boba
Автор

Сообщений: 6269
Откуда: Медвежьи озера-
Дата регистрации: 26.03.2001
Есть куча страниц,
которые нужно скачать
Руками очень долго
Попытался автоматизировать,
задавая адрес страницы кодом.
Причем для наклономеров так скачал лет пять примерно за двое суток.
Вот пример ссылки
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
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 26 MikhsR tata hvh2007  (Гостей: 23)

© 2000-2024 Fox Club 
Яндекс.Метрика