Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Delphi и Яндекс.Диск. Скачивание публичного файла, Скачать публичный файл с яндекс.диска 
:(
    Опции темы
Desperate
Дата 30.11.2014, 20:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 122
Регистрация: 11.10.2006

Репутация: -1
Всего: -1
Доброго времени суток!
Подскажите пожалуйста, а лучше дайте примерчик, как, средствами делфи, можно скачать публичный файл с яндекс.диска, зная его публичную ссылку?

Спасибо.
PM MAIL   Вверх
Poseidon
Дата 1.12.2014, 10:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133
Как и любой другой файл по прямой ссылке. Вариантов море. Из стандартных - через TIdHTTP.Get

Код

procedure DownloadFile(const URL: string; const FileName: TFileName);
var
  Http: TIdHTTP;
  Stream: TMemoryStream;
begin
  Http := TIdHTTP.Create(nil);
  Stream := TMemoryStream.Create;
  try
    Http.Get(URL, Stream);
    Stream.SaveToFile(FileName);
  finally
    Http.Free;
    Stream.Free;
  end;
end; 


Это сообщение отредактировал(а) Poseidon - 1.12.2014, 10:41


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
BlueAlien
Дата 9.2.2015, 05:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 10.10.2014

Репутация: -1
Всего: -1
Цитата(Poseidon @  1.12.2014,  10:38 Найти цитируемый пост)
Как и любой другой файл по прямой ссылке. Вариантов море. Из стандартных - через TIdHTTP.Getкод Pascal/Delphi

Не  работает. С ЯндексДиска нельзя скачивать напрямую - только через специальную web-страницу, на которой и будет генерироваться ссылка. 
PM MAIL   Вверх
Poseidon
Дата 10.2.2015, 09:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 4
Всего: 133
Что мешает скачать тем же способом эту страницу, распарсить ее код и вытащить нужную ссылку?


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0716 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.