|
Тема |
Sent recuest for password InternetSetOption |
|
Автор | Student (Нерегистриран) | |
Публикувано | 12.06.09 11:39 |
|
|
Здравейте,
опитвам се да сваля от интернет файл който иска "Authorisation required"
Опитвам следното :
NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(NetHandle) then
begin
//Път към началната страница на сайта където се иска парола и наме
Url := 'http://ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ';
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
//Според Апи фунлцията ето тук се изпраща усернаме и пассворд
if not InternetSetOption(UrlHandle, INTERNET_OPTION_USERNAME, PChar('ХХХХХ'), Length('ХХХХХ')) then
ShowMessage(SysErrorMessage(GetLastError));
if not InternetSetOption(UrlHandle, INTERNET_OPTION_PASSWORD, PChar('ХХХХХ'), Length ('ХХХХХ')) then
ShowMessage(SysErrorMessage(GetLastError));
//път към самия файл който се генерира от сайта предполагам с вхиле он пхп
Url := 'http://ХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХхх';
UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);
След като процедурата мине отново ми изписва 401 Error - Authorisation required! Гледам хандлето на сайта не е нил има си стойност. Нещо правя неправилно ще съм много благодарен ако някой ми помогне.
|
| |
|
|
|