Здравейте,
опитвам се да сваля от интернет файл който иска "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! Гледам хандлето на сайта не е нил има си стойност. Нещо правя неправилно ще съм много благодарен ако някой ми помогне.

да си отговоря сам:

Url := '';
Url := '';
UrlHandle := InternetConnect( NetHandle, PChar(''), INTERNET_DEFAULT_HTTP_PORT, PChar( '' ), PChar( '' ),
INTERNET_SERVICE_HTTP, 0, 0 );
UrlRequest := HttpOpenRequest(UrlHandle, 'GET', PChar(''), nil, '', nil, 0, 0);
HttpSendRequest( UrlRequest, nil, 0, nil, 0 );
if Assigned(UrlRequest) then
begin
FillChar(Buffer, SizeOf(Buffer), 0);
repeat
Result := Result + Buffer;
FillChar(Buffer, SizeOf(Buffer), 0);
InternetReadFile(UrlRequest, @Buffer, SizeOf(Buffer), BytesRead);
until BytesRead = 0;
InternetCloseHandle(UrlRequest);