Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2013, 18:42   #1
kasper_chib
Новичок
Джуниор
 
Регистрация: 26.09.2013
Сообщений: 2
По умолчанию TidHTTP не выходит скачать файл

Доброго времени суток!
При обращении на адрес http://emiasnsi.lpureg.ru через браузер выскакивает окно авторизации. Авторизацию прошел и дальше можно качать разные файлы.
Мне нужно,чтобы программа умела от туда скачивать файлы.
делаю вот так:
Код:
var
  HTTP : TidHTTP;
  Strm : TMemoryStream;
 begin
  Http := TIdHTTP.Create(nil);
  strm := TMemoryStream.Create;
  HTTP.ProxyParams.BasicAuthentication := True;
  HTTP.ProxyParams.ProxyUsername := 'login';
  HTTP.ProxyParams.ProxyPassword := 'password';
  HTTP.ProxyParams.ProxyServer := 'proxy';
  HTTP.ProxyParams.ProxyPort := 3128;
  HTTP.Get('http://login:password@emiasnsi.lpureg.ru/to_emias/ems_cgr.zip', strm);
  strm.SaveToFile('c:\12345.zip');
  strm.free;
  http.free;
end;
Выскакивает ошибка: "HTTP/1.0.401 Unauthorized" т.е. не может не может пройти авторизацию. если этот же адрес: http://loginassword@emiasnsi.lpure...as/ems_cgr.zip
поместить в браузер, то файл скачивается.
Подскажите пожалуйста, что я не так делаю? Очень нужно!

Последний раз редактировалось Stilet; 04.12.2013 в 23:56.
kasper_chib вне форума Ответить с цитированием
Старый 04.12.2013, 20:27   #2
Alex2009
Proger Man
Форумчанин
 
Аватар для Alex2009
 
Регистрация: 07.03.2009
Сообщений: 584
По умолчанию

Прокси убрать для начала пробовали?
Ну и замаскироваться под браузер.
ShowMessage('Добро пожаловать!');
Alex2009 вне форума Ответить с цитированием
Старый 05.12.2013, 13:05   #3
kasper_chib
Новичок
Джуниор
 
Регистрация: 26.09.2013
Сообщений: 2
По умолчанию

Добавил:
HTTP.Request.Username
HTTP.Request.Password
HTTP.Request.BasicAuthentication
Все работает!
kasper_chib вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Скачать файл в переменную jeki0 Работа с сетью в Delphi 10 26.03.2012 19:44
idhttp скачать файл s1s1s1 Общие вопросы Delphi 4 18.03.2012 20:15
Не выходит сохранить файл через XMLHTTP SeRhy Общие вопросы Delphi 1 17.01.2011 14:38
Скачать файл с lоstfilm Alter Работа с сетью в Delphi 1 16.12.2010 22:35
Скачать файл... Romix Работа с сетью в Delphi 1 28.07.2010 09:37