procedure DlFile(Sender: TObject);
var hc:THttpClient;
begin
hc := THttpClient.Create;
hc.Send('GET','https://sun1-16.userapi.com/c847218/v847218376/144a98/xwXJLGsfTfY.jpg');
if hc.ResponseStatusCode = 301 then
hc.Send('GET', hc.Host + hc.GetHeader('location') );
TMemoryStream(hc.ContentStream).SaveToFile('C:\tmp\1.jpg');
hc.Free;
end;
Dendi777, vba, js, pascal, php, 1C... Могу и на других что-то закодить при необходимости.
Здесь язык по сути особого значения не имеет - скачать файл из интернета можно любым из них. Вопрос в правильности постановки задачи и ее технической обоснованности...
Dendi777, я пытаюсь понять какую глобальную задачу надо решить..?
И почему именно скриптом?
Что это? "Парсер" какой-то, "Собиралка"?
Способов получить картинку с вк вижу около 5-ти...
Dendi777,
Попробовать не смогу, т.к. у меня нет питона и я на нем вообще не пишу.
возможно vk не любит "роботов" и ему требуются какие-нибудь доп. заголовки в запросе... Можно методом постепенного добавления поискать золотую середину и начать с User-Agent.
Wan-Derer, "горят" или "загораются"?
На моей памяти 2 возгорания (именно открытым огнем) - 1 зарядка для телефона и 1 БИРП "ББП-30". Благо в обоих случаях дальше локального возгорания не дошло...
Goldomor, Зайдите ЖЕ в google формы.
Создайте форму.
Свяжите с таблицами.
Настройте уведомления на почту.
Выберите способ выдачи формы (ссылка или встраиваемый код).
Cheizer, вирус в MODX-e.
Ну или на хостинге, как вам удобнее воспринимать..)
Залетает чаще через какие-нибудь дырявые плагины, но иногда бывает и через сам движок.
