Многопоточный загрузчик через на функциях WinInet

← →
gedd (2003-08-14 10:14) [0]

Как используя WinInet пройти через прокси сервер.

← →
Reindeer Moss Eater (2003-08-14 10:23) [1]

Курсор на uses WinInet;
CTRL+ENTER
CTRL+F + "Proxy" + F3

← →
gedd (2003-08-14 10:30) [2]

не оригинально и не умно
мой код работает на диалапе
и не работает на proxy

чего то я не понимаю
поэтому код прошу

← →
Е-Моё имя (2003-08-14 10:31) [3]

так тебе прокси надо или чо?

← →
gedd (2003-08-14 10:36) [4]

нужно используя функции InternetOpen
и им подобные скачать файл из интернет
через прокси сервер с basic авторизацией
на нем

← →
Reindeer Moss Eater (2003-08-14 10:38) [5]

Хоть это и не умно и совсем не оригинально, но все же открой WinIntet.pas и найди там

function InternetOpen(lpszAgent: PChar; dwAccessType: DWORD;
lpszProxy, lpszProxyBypass: PChar; dwFlags: DWORD): HINTERNET; stdcall;

← →
gedd (2003-08-14 10:47) [6]

здесь указвается сам прокси сервер (его IP в частности)
это параметр lpszProxy, но где определяется порт, пароль и имя пользователя для lpszProxy?

← →
Reindeer Moss Eater (2003-08-14 10:53) [7]

Поднимись на 7(семь) строчек выше в файле WinIntet.pas

← →
gedd (2003-08-14 10:58) [8]

Ладно тогда номер строки скажи что ли

← →
Reindeer Moss Eater (2003-08-14 11:30) [9]

Порт пишется в lpszProxyBypass.
А можно и ничего не указывать. Все параметры возьмутся из настроек IE

← →
gedd (2003-08-14 11:31) [10]

А как пройти через проксю используя IdHTTP?

← →
gedd (2003-08-14 11:33) [11]

В LpszProxyBypass - список имен или IP- адресов, соединяться с которыми нужно в обход прокси-сервера.

← →
Reindeer Moss Eater (2003-08-14 11:36) [12]

В LpszProxyBypass - список имен или IP- адресов, соединяться с которыми нужно в обход прокси-сервера.
1. Ты это сам придумал?
2. InternetOpen ни с чем пока еще не соединяется. Это делает InternetConnect

← →
Zelius (2003-08-14 11:38) [13]

ConnectionSettings - моя структура хранящая параметры подключения

if ConnectionSettings.UseProxy then
begin
ProxyParams.ProxyServer := ConnectionSettings.ProxyServer;
ProxyParams.ProxyPort := ConnectionSettings.ProxyPort;
if ConnectionSettings.UseProxyLogin then
begin
ProxyParams.BasicAuthentication := True;
ProxyParams.ProxyUsername := ConnectionSettings.ProxyUserName;
ProxyParams.ProxyPassword := ConnectionSettings.ProxyPassword;
end;
end;

← →
Zelius (2003-08-14 11:39) [14]

> Zelius © (14.08.03 11:38) [13]

забыл, что этот код выполняется в
with idHttp1 do
begin
....
//приведенный выше код
.....
end;

← →
Reindeer Moss Eater (2003-08-14 11:52) [15]

Во всяком случае первым параметром можно заставить брать все настройки из IE

← →
gedd (2003-08-14 11:59) [16]

ну не проходит это! блин

← →
gedd (2003-08-14 12:39) [17]

По поводу
В LpszProxyBypass - список имен или IP- адресов, соединяться с которыми нужно в обход прокси-сервера.
в msdn сказано
lpszProxyName
[in] Pointer to a null-terminated string that specifies the name of the proxy server(s) to use when proxy access is specified by setting dwAccessType to INTERNET_OPEN_TYPE_PROXY. Do not use an empty string, because InternetOpen will use it as the proxy name. The WinINet functions recognize only CERN type proxies (HTTP only) and the TIS FTP gateway (FTP only). If Microsoft Internet Explorer is installed, these functions also support SOCKS proxies. FTP and Gopher requests can be made through a CERN type proxy either by changing them to an HTTP request or by using InternetOpenUrl. If dwAccessType is not set to INTERNET_OPEN_TYPE_PROXY, this parameter is ignored and should be NULL. For more information about listing proxy servers, see the Listing Proxy Servers section of Enabling Internet Functionality.
lpszProxyBypass
[in] Pointer to a null-terminated string that specifies an optional list of host names or IP addresses, or both, that should not be routed through the proxy when dwAccessType is set to INTERNET_OPEN_TYPE_PROXY. The list can contain wildcards. Do not use an empty string, because InternetOpen will use it as the proxy bypass list. If this parameter specifies the "<local>" macro as the only entry, the function bypasses any host name that does not contain a period. If dwAccessType is not set to INTERNET_OPEN_TYPE_PROXY, this parameter is ignored and should be NULL.

← →
gedd (2003-08-18 12:04) [18]

Люди может всетаки кто нибудь знает где авторизация на прокси

← →
BorH (2003-08-18 12:53) [19]

ЗАПРОСТО!!! (надеюсь)

hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
hURL := InternetOpenURL(hSession,PChar(fileURL),nil,0,0,0);

а потом в цикле

InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(любой открытый файл, Buffer, BufferLen);

WinInet говорит:
{ access types for InternetOpen }
const
INTERNET_OPEN_TYPE_PRECONFIG = 0; Зырь сыда!!!!
{ use registry configuration }
{$EXTERNALSYM INTERNET_OPEN_TYPE_PRECONFIG}
INTERNET_OPEN_TYPE_DIRECT = 1;
{ direct to net }
{$EXTERNALSYM INTERNET_OPEN_TYPE_DIRECT}
INTERNET_OPEN_TYPE_PROXY = 3;
{ via named proxy }
{$EXTERNALSYM INTERNET_OPEN_TYPE_PROXY}
INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4;
{ prevent using java/script/INS }
{$EXTERNALSYM INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY}

(Скопировано верно) WinInet.

Ваще WinInet - рулезз... ;-)

← →
gedd (2003-08-18 14:34) [20]

Короче довайте подробно
сначало выполняю
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PROXY, PChar(ProxyServer), nil, 0);
это проходит нормально
потом пытаюсь авторизоваться на прокси
hHttp:=InternetConnect(hSession, PChar(ProxyServer), // HTTP server
ProxyPort, // (INTERNET_DEFAULT_HTTP_PORT),
PChar(SessionUser), // username
PChar(SessionPassword), // password
INTERNET_INVALID_PORT_NUMBER,
ProxyPort,
0);
и вот здесь возникает ошибка

Многопоточный загрузчик через на функциях WinInet Найти похожие ветки