Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Скачивание файла. Подскажите!

Автор: Nikkie 13.4.2005, 12:50

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

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

Заранее благодарен smile

Автор: Nikkie 13.4.2005, 12:59

Вот даже зарегестрировался smile

Автор: Snowy 13.4.2005, 13:22

В поиске поищи
IdHTTP.Get

Автор: Nikkie 13.4.2005, 13:27

И чего он выдаст?

Автор: Snowy 13.4.2005, 13:28

Код


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;

Автор: Nikkie 13.4.2005, 13:28

Я имею ввиду сам метод....
Мне нужно сохранить в файл на диск...
Добавлено @ 13:30
Ага !!! Понятно!!!
Т.е. если я качаю катинку, то s.SaveToFile('C:\img.jpg');

Автор: Snowy 13.4.2005, 13:31

Чуть не забыл уничтожить объекты.
Вроде без ошибок (Писал в браузере).

Автор: Pakshin A. S. 13.4.2005, 13:31

WinInet... Очень хороший модуль по работе с http и ftp и т. п... smile

Автор: Snowy 13.4.2005, 13:32

Цитата(Nikkie @ 13.4.2005, 13:28)

Ага !!! Понятно!!!
Т.е. если я качаю катинку, то s.SaveToFile('C:\img.jpg');

Совершенно верно. Подставляешь нужный URL и нужное тебе имя файла.
Можно оформить, как процедуру, которой передаешь урл и имя файла.