Помогите, не работает ReceiveHTTPFile

Поделиться124.04.2012 20:54:11

Автор: Phoenix
Участник
Зарегистрирован: 24.04.2012
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 48 [1977-05-04]
Провел на форуме:
3 часа 42 минуты
Последний визит:
05.07.2012 13:50:30

Пользуюсь PureBasic 4.60 (х86)

Закинул на сайт файлик и пользуясь примером пытаюсь его скачать на компьютер:

Код:

  InitNetwork()
  If ReceiveHTTPFile("http://quadrathell.cn.ua/online_www/list.px", "c:\!a\list.px")
  Debug "Превосходно"
  Else
  Debug "Ошибка"
  EndIf

Причём если ссылку вставить в браузер то качается без проблем.
Так же не работает пример в документации, что это может быть?

Или подскажите альтернативный способ при помощи Puriка скачивать файлы с интеренета с заведомо известной ссылкой.
За раннее спасибо.

0

Поделиться224.04.2012 23:00:27

Автор: pvhewanhz
Участник
Зарегистрирован: 23.04.2012
Приглашений: 0
Сообщений: 22
Уважение: [+0/-0]
Позитив: [+0/-0]
Провел на форуме:
9 часов 17 минут
Последний визит:
04.05.2012 11:11:44

с URLDownloadToFile все норм
если у тебя либы Droopy нету
качай отсюда
http://sourceforge.net/projects/droopyslib/

зы

хмм бред
не знаю почему не качает
мм я скачал страницу с 2ip.ru

просмотрел useragent

URLDownloadToFile IE7
ReceiveHTTPFile нету user agent

значит хостер блочит если нету useragent
если качать файлы

Отредактировано pvhewanhz (24.04.2012 23:01:18)

0

Поделиться325.04.2012 09:45:33

Автор: Phoenix
Участник
Зарегистрирован: 24.04.2012
Приглашений: 0
Сообщений: 12
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 48 [1977-05-04]
Провел на форуме:
3 часа 42 минуты
Последний визит:
05.07.2012 13:50:30

pvhewanhz, а что делать с этими либами?, я просто новичёк ещё в этом деле.

0

Поделиться425.04.2012 11:26:51

Автор: Пётр
Активный участник
Зарегистрирован: 14.06.2009
Приглашений: 0
Сообщений: 3155
Уважение: [+101/-5]
Позитив: [+1/-0]
Пол: Мужской
Провел на форуме:
2 месяца 13 дней
Последний визит:
Сегодня 13:55:18

Можно не устанавливать библиотеку, а только использовать требуемую функцию из нее.

Код:

Procedure URL_DownloadToFile(Url.s, File.s) ; Downloads files from the Internet and saves them to a file.
  retour=URLDownloadToFile_(0, Url, File, 0, 0)
  DeleteUrlCacheEntry_(Url)
  If retour=0 : retour=1 : Else : retour=0 : EndIf
  ProcedureReturn retour
EndProcedure

0