Научите, пожалуйста, скачивать файлы через прокси?

← →
Net3 (2007-11-13 05:28) [0]

Кусок кода по скачке файла:

var hSession, hConnect, hRequest: hInternet; HostName, FileName, UserName1, Password1, Referer1 : String; Buf: Pointer; BufLen, BufIndex: DWord; Data: Array[0..$400] of Char; BytesToRead : DWord; ... hSession := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); hConnect := InternetConnect(hSession, PChar(HostName), INTERNET_DEFAULT_HTTP_PORT, PChar(UserName1), PChar(Password), INTERNET_SERVICE_HTTP, 0, 0); hRequest := HttpOpenRequest(hConnect, RequestMethod, PChar(FileName), "HTTP/1.0", PChar(Referer1), @AcceptType, InternetFlag, 0); HttpSendRequest(hRequest, nil, 0, nil, 0) Result := HttpQueryInfo(hRequest, HTTP_QUERY_CONTENT_LENGTH, Buf, BufLen, BufIndex); if Result then begin while True do begin if not InternetReadFile(hRequest, @Data, SizeOf(Data), BytesToRead) then Break ...

Как сюда добавить, чтобы через прокси скачивалось? Или что надо изменить?

← →
isasa © (2007-11-13 08:19) [1]

if length(cURL.Proxy)<>0 then begin buf:=cURL.proxy+":"+IntToStr(cURL.Port); hSes:=InternetOpen(PChar(Application.ExeName), INTERNET_OPEN_TYPE_PROXY, PChar(buf), nil, INTERNET_FLAG_RELOAD); cURL^.Body:=cURL^.Body+"(proxy "+buf+")"; end else begin hSes:=InternetOpen(PChar(Application.ExeName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_DONT_CACHE);

← →
isasa © (2007-11-13 08:23) [2]

Да, если использован INTERNET_OPEN_TYPE_PRECONFIG, то качпть тоже будет через прокси, если он указан в IE.

← →
Rouse_ © (2007-11-13 08:56) [3]

//////////////////////////////////////////////////////////////////////////////// // // **************************************************************************** // * Project : DownloadViaProxy // * Purpose : Демо скачивания файла с учетом бейсик авторизации и прокси // * Author : Александр (Rouse_) Багель // * Copyright : © Fangorn Wizards Lab 1998 - 2007. // * Version : 1.03 // * Home Page : http://rouse.drkb.ru // **************************************************************************** // program DownloadViaProxy; {$APPTYPE CONSOLE} uses Windows, SysUtils, Classes, WinInet; type TDownloadParams = record FileURL, // Запрос для файла Proxy, // список прокси ProxyBypass, // дополниотельный список прокси AuthUserName, // логин для Authorization: Basic AuthPassword: String; // пароль для Authorization: Basic DownloadFrom, // смещение от начала данных NeedDataSize: DWORD; // необходимый размер end; function DownloadFileEx( Params: TDownloadParams; OutputData: TStream): Boolean; function DelHttp(URL: String): String; var HttpPos: Integer; begin HttpPos := Pos("http://", URL); if HttpPos > 0 then Delete(Url, HttpPos, 7); Result := Copy(Url, 1, Pos("/", Url) - 1); if Result = "" then Result := URL; end; const Accept = "Accept: */*" + sLineBreak; ProxyConnection = "Proxy-Connection: Keep-Alive" + sLineBreak; LNG = "Accept-Language: ru" + sLineBreak; AGENT = "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; " + "Windows NT 5.1; SV1; .NET CLR 2.0.50727)" + sLineBreak; var FSession, FConnect, FRequest: HINTERNET; FHost, FScript, SRequest, ARequest: String; Buff, IntermediateBuffer: array of Byte; BytesRead, Res, Len, FilePosition, OpenTypeFlags, ContentLength: Cardinal; begin Result := False; ARequest := Params.FileURL; // Небольшой парсинг // вытаскиваем имя хоста и параметры обращения к скрипту FHost := DelHttp(ARequest); FScript := ARequest; Delete(FScript, 1, Pos(FHost, FScript) + Length(FHost)); // Инициализируем WinInet if Params.Proxy = "" then OpenTypeFlags := INTERNET_OPEN_TYPE_PRECONFIG else OpenTypeFlags := INTERNET_OPEN_TYPE_PROXY; FSession := InternetOpen("", OpenTypeFlags, PChar(Params.Proxy), PChar(Params.ProxyBypass), 0); if not Assigned(FSession) then Exit; try // Попытка соединения с сервером FConnect := InternetConnect(FSession, PChar(FHost), INTERNET_DEFAULT_HTTP_PORT, PChar(Params.AuthUserName), PChar(Params.AuthPassword), INTERNET_SERVICE_HTTP, 0, 0); if not Assigned(FConnect) then Exit; try // Подготавливаем запрос FRequest := HttpOpenRequest(FConnect, "GET", PChar(FScript), nil, "", nil, 0, 0); // добавляем необходимые заголовки к запросу HttpAddRequestHeaders(FRequest, Accept, Length(Accept), HTTP_ADDREQ_FLAG_ADD); HttpAddRequestHeaders(FRequest, ProxyConnection, Length(ProxyConnection), HTTP_ADDREQ_FLAG_ADD); HttpAddRequestHeaders(FRequest, LNG, Length(LNG), HTTP_ADDREQ_FLAG_ADD); HttpAddRequestHeaders(FRequest, AGENT, Length(AGENT), HTTP_ADDREQ_FLAG_ADD); // Проверяем запрос: Len := 0; Res := 0; SRequest := " "; HttpQueryInfo(FRequest, HTTP_QUERY_RAW_HEADERS_CRLF or HTTP_QUERY_FLAG_REQUEST_HEADERS, @SRequest[1], Len, Res); if Len > 0 then begin SetLength(SRequest, Len); HttpQueryInfo(FRequest, HTTP_QUERY_RAW_HEADERS_CRLF or HTTP_QUERY_FLAG_REQUEST_HEADERS, @SRequest[1], Len, Res); end; if not Assigned(FConnect) then Exit; try // Отправляем запрос if not (HttpSendRequest(FRequest, nil, 0, nil, 0)) then Exit; // Узнаем размер файла ContentLength := InternetSetFilePointer( FRequest, 0, nil, FILE_END, 0); if ContentLength = DWORD(-1) then ContentLength := 0; // выставляем позцию, откуда нужно начинать скачку FilePosition := InternetSetFilePointer( FRequest, Params.DownloadFrom, nil, FILE_BEGIN, 0); if FilePosition = DWORD(-1) then FilePosition := 0; // Выставляем размер приемного буффера if Params.NeedDataSize = 0 then Params.NeedDataSize := ContentLength; if Integer(FilePosition) + Params.NeedDataSize > Integer(ContentLength) then Params.NeedDataSize := ContentLength - FilePosition; // если не смогли определить размер данных - читаем все что прочтется if Params.NeedDataSize <= 0 then begin SetLength(IntermediateBuffer, 8192); ContentLength := 0; Params.NeedDataSize := 0; BytesRead := 0; while InternetReadFile(FRequest, @IntermediateBuffer[0], 100, BytesRead) do if BytesRead > 0 then begin SetLength(Buff, ContentLength + BytesRead); Move(IntermediateBuffer[0], Buff[ContentLength], BytesRead); Inc(ContentLength, BytesRead); end else begin Params.NeedDataSize := ContentLength; Break; end; end else begin // в противном случае, принимаем данные как обычно SetLength(Buff, Params.NeedDataSize); if not InternetReadFile(FRequest, @Buff[0], Params.NeedDataSize, BytesRead) then Exit; end; OutputData.Write(Buff[0], Params.NeedDataSize); Result := True; finally InternetCloseHandle(FRequest); end; finally InternetCloseHandle(FConnect); end; finally InternetCloseHandle(FSession); end; end; var Params: TDownloadParams; Data: TMemoryStream; begin try ZeroMemory(@Params, SizeOf(TDownloadParams)); Params.FileURL := "http://google.com/index.html"; Data := TMemoryStream.Create; try if DownloadFileEx(Params, Data) then Data.SaveToFile("c:\test.htm"); finally Data.Free; end; except on E:Exception do Writeln(E.Classname, ": ", E.Message); end; end.

← →
Net3 (2007-11-17 05:24) [4]

> isasa © (13.11.07 08:19) [1]

Спасибо!

Моя ошибка была в том, что я думал, что четвёртый параметр функции InternetOpen() - это порт прокси-сервера. А оказывается они вместе с адресом в третий параметр впихиваются.

> Rouse_ © (13.11.07 08:56) [3]

Спасибо!

А Params.ProxyBypass - это список прокси через которые можно подключаться? Они там через пробел должны писаться?

← →
Net3 (2007-11-17 07:25) [5]

Ещё вопрос. А по ftp скачивать так же как по http?
Ощущение, что вроде что-то меняется.

> ProxyBypass

По названию как раз противоположное, то что должно идти в обход прокси.

Научите, пожалуйста, скачивать файлы через прокси? Найти похожие ветки