Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 434

Раздел: Delphi » Прочее
/ вопрос открыт /

Всем Привет!
Не могу разобраться почему не качает.
Помогите

Приложение:
  1. s := ExtractUrlFileName(Memo1.Lines.Strings[0]);
  2. Edit1.Text:= (Memo1.Lines.Strings[0]);
  3. lStream := TFileStream.Create(DirName+''+s, fmCreate);
  4. Application.ProcessMessages;
  5. try
  6. IDHTTP1.Connect();
  7. idHTTP1.Get(Edit1.Text, lStream);
  8. IdHTTP1.Disconnect;
  9. except
  10. on EIdHostRequired do begin
  11. lStream.Free;
  12.  


Vit2 Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Vit2 (статус: Посетитель)
Вопрос отправлен: 25 марта 2007, 21:55
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: min@y™

C компонентами Indy я не работал, поэтому здесь помочь не могу. Однако, я, давно ещё, ради развлечения и убийства времени написал простенькую программку по закачиванию свежих креативов с udaff.com :). Вот ссылки:
EXE-файл: http://sourceviewer.narod.ru/downloads/udaff32.7z
Исходиники на Delphi:
http://sourceviewer.narod.ru/downloads/udaff32_src.7z

Посмотри, может поможет.

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 26 марта 2007, 09:29

Ответ #2. Отвечает эксперт: Вадим К

Если вы с https начали качать, то может и не качать. Там ещё один компонент бросать надо.
А так, код вроде жизнеспособный, поэтому, приведите урл, откудова качаете, может он мёртвый или требует кукисов или сесии. во вторых, проверте, а файл действетельно может создастся. Каталог dir должен существовать.

Ответ отправил: Вадим К (статус: Академик)
Время отправки: 26 марта 2007, 11:23
Оценка за ответ: 5


Мини-форум вопроса

Всего сообщений: 28; последнее сообщение — 27 марта 2007, 14:44; участников в обсуждении: 2.

Страницы: [« Предыдущая] [1] [2]

Vit2

Vit2 (статус: Посетитель), 27 марта 2007, 13:53 [#21]:

Огромное Спасибо
Vit2

Vit2 (статус: Посетитель), 27 марта 2007, 14:05 [#22]:

Пробовал качать 95,37 МБ прогресс отобразил
нормально.
В этом компоненте есть UserName и Password
а с Рапиды качнуть не могу
Может какие соображения есть?
Дату файла показывает только после как скачается файл
Вадим К

Вадим К (статус: Академик), 27 марта 2007, 14:14 [#23]:

мало наличие свойств и паролей. Надо уметь их "засунуть". Скорее всего вначале нужно зайти на спецстраницу, куда передать имя/пароль в виде Get или Post запроса. Потом сервер установит куки или сесию. А потом уже даст качать
Галочка "подтверждения прочтения" - вселенское зло.
Vit2

Vit2 (статус: Посетитель), 27 марта 2007, 14:32 [#24]:

Вот так работало в Indy
IdHTTP1.Head(Edit4.Text);
IdHTTP1.Request.Username:=Edit2.Text;
IdHTTP1.Request.Password:=Edit3.Text;
Vit2

Vit2 (статус: Посетитель), 27 марта 2007, 14:34 [#25]:

На страницу не ходил так ссылку вставлял.
Может надо Redirect чтобы работал?
Вадим К

Вадим К (статус: Академик), 27 марта 2007, 14:38 [#26]:

С рапидой не воевал, но могу сказать одно. Вы должны делать в коде точно так, как это вы делаете обычно.
Галочка "подтверждения прочтения" - вселенское зло.
Vit2

Vit2 (статус: Посетитель), 27 марта 2007, 14:41 [#27]:

У вас ICQ есть?
Вадим К

Вадим К (статус: Академик), 27 марта 2007, 14:44 [#28]:

в профиле
Галочка "подтверждения прочтения" - вселенское зло.

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 26 апреля 2026, 01:31
Выполнено за 0.03 сек.