Вниз
Скачать: CL | DM;

Загрузить файл из интернет через прокси требующий авторизации.   Найти похожие ветки 

 
gedd ©   (2004-05-11 12:52) [0]

Люди помогите загрузить файл из интернет через прокси требующий авторизации.

Пробовал например такой код:


DownloadFile("http://some.com/some.zip", "c:\some.zip");

function DownloadFile(const FileURL, FileName: String): Cardinal;
var
 hSession, hFile: HInternet;
 Buffer: array[1..1024] of Byte;
 BufferLen, fSize: LongWord;
 f: File;
begin
 Result := 0;
 hSession := InternetOpen("STEROID Download",
                          INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 if Assigned(hSession) then begin
   hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,
                            INTERNET_FLAG_RELOAD, 0);
   if Assigned(hFile) then begin
     AssignFile(f, FileName);
     Rewrite(f,1);
     fSize := 0;
     repeat
       InternetReadFile(hFile, @Buffer, SizeOf(Buffer), BufferLen);
       BlockWrite(f, Buffer, BufferLen);
       fSize := fSize + BufferLen;
     until (BufferLen = 0);
     CloseFile(f);
     Result := fSize;
     InternetCloseHandle(hFile);
   end;
   InternetCloseHandle(hSession);
 end;
end;


 
gedd ©   (2004-05-11 12:54) [1]

Чуть на забыл
Прокси ISA 2000.


 
gedd ©   (2004-05-11 12:58) [2]

Вместо файла возвращается страничка вот стаким содержанием

The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Click the Refresh button, or try again later.

Open the Web site home page, and then look for links to the information you want.
If you typed the page address in the Address bar, make sure that it is spelled correctly.

Verify that the Internet access policy on your network allows you to view this this page.
If you believe you should be able to view this directory or page, please contact the Web site administrator by using the e-mail address or phone number listed on the Web site home page.
HTTP 407 Proxy Authentication Required - The ISA Server requires authorization to fulfill the request. Access to the Web Proxy service is denied. (12209)
Internet Security and Acceleration Server

--------------------------------------------------------------------------------

Technical Information (for support personnel)

Background:
The gateway could not retrieve the requested page.

ISA Server: delphi.kaustik.local
Via:

Time: 11.05.2004 8:56:24 GMT  



 
gedd ©   (2004-05-14 07:42) [3]

Может кто нибудь что нибудь знает из близкой области?



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c
1-1087973954
Aldor
2004-06-23 10:59
2004.07.11
%d в FormatStrings поддерживает Int64?


14-1087812866
Nikolay M.
2004-06-21 14:14
2004.07.11
Таки женился :-)


1-1088592793
Akella
2004-06-30 14:53
2004.07.11
Проблемы с QuickRep


1-1088599827
Ш-К
2004-06-30 16:50
2004.07.11
Как проверить XML документ на валидность


11-1075118001
savva
2004-01-26 14:53
2004.07.11
с появлением GlueCut я че то не пойму как мне новую версию KOL...




   Наверх