|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Проблема с UrlDownloadToFile с модуля URLMon
Качал странички с сайта Вконтакте, использовал всегда эту строку и все работало:
Код:
Result:= UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0; Как решить это? |
#2
|
||||
|
||||
Вызывай UrlMkSetSessionOption до вызова URLDownloadToFile:
Код:
var s: String; begin s:='Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.84 Safari/537.36 OPR/38.0.2220.31'; if UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, @s[1], Length(s), 0)<>S_OK then raise Exception.Create('Oops'); if URLDownloadToFile(nil, 'https://vk.com/s.kalaeva', 'kalaeva.htm', 0, nil)<>S_OK then raise Exception.Create('Oops'); end; Пишу программы за еду. __________________ |
Этот пользователь сказал Спасибо NumLock за это полезное сообщение: | ||
Speech (28.06.2016)
|
#3
|
||||
|
||||
Спасибо, помогло!
|