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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скачивание файла. Подскажите! 
:(
    Опции темы
Nikkie
Дата 13.4.2005, 12:50 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Здравствуте!

Подскажите, как скачать нужный мне файл (картинка), зная его полный URL
У меня Delphi 8, с хелпом проблемы...

Заранее благодарен smile
  Вверх
Nikkie
Дата 13.4.2005, 12:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вот даже зарегестрировался smile
PM MAIL ICQ   Вверх
Snowy
Дата 13.4.2005, 13:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
В поиске поищи
IdHTTP.Get
PM MAIL   Вверх
Nikkie
Дата 13.4.2005, 13:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
И чего он выдаст?
PM MAIL ICQ   Вверх
Snowy
Дата 13.4.2005, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Код

uses IdHttp;
var
  http: TIdHttp;
  s: TMemoryStream;
begin
  http:=TIdHTTP.Create(nil);
  s:=TMemoryStream.Create;
  try
    http.Get('http://www.mail.ru/',s);
    // тут думай сам, что ты будешь с этим делать. 
    // Например сохранить в файл:
    s.Position:=0; // не помню, нужно или нет, но на всякий случай добавить не мешает эту строку
    s.SaveToFile('C:\mailru.html');    
  except
    ShowMessage('Не могу подключиться к майлру');
  end;
  http.Free; s.Free;
end;


Это сообщение отредактировал(а) Snowy - 13.4.2005, 13:34
PM MAIL   Вверх
Nikkie
Дата 13.4.2005, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Я имею ввиду сам метод....
Мне нужно сохранить в файл на диск...
Добавлено @ 13:30
Ага !!! Понятно!!!
Т.е. если я качаю катинку, то s.SaveToFile('C:\img.jpg');
PM MAIL ICQ   Вверх
Snowy
Дата 13.4.2005, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Чуть не забыл уничтожить объекты.
Вроде без ошибок (Писал в браузере).
PM MAIL   Вверх
Pakshin A. S.
Дата 13.4.2005, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: нет
Всего: 61
WinInet... Очень хороший модуль по работе с http и ftp и т. п... smile
PM   Вверх
Snowy
Дата 13.4.2005, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Цитата(Nikkie @ 13.4.2005, 13:28)
Ага !!! Понятно!!!
Т.е. если я качаю катинку, то s.SaveToFile('C:\img.jpg');

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

Запрещено:

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

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

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

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

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


 




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


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

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