Авторизоваться на прокси сервере.

[Дима я]

использую такой код для задания прокси

 New(PIInfo); dis:=1;
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  S:=ListBox1.Items.Strings[ListBox1.ItemIndex];
  PIInfo^.lpszProxy := PAnsiChar(S);
  PIInfo^.lpszProxyBypass := '';
    UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo,
    SizeOf(Internet_Proxy_Info), 0);

но прокси используют авторизацию по логину и паролю,
весь интернет перерыл,нашел только это ,но не могу понять как использовать.Вроде бы нужно хандл чего то достать..Подскажите пожалуйста..

The following example demonstrates how to set the proxy username and password on a specified HINTERNET handle.

//hOpen is the HINTERNET handle created by InternetOpen.
//strUsername is a string buffer that contains the proxy username.
InternetSetOption(hOpen, INTERNET_OPTION_PROXY_USERNAME, strUsername, strlen(strUsername)+1);

//strPassword is the buffer that contains the proxy password.
InternetSetOption(hOpen, INTERNET_OPTION_PROXY_PASSWORD, strPassword, strlen(strPassword)+1);

[Дима я]

Ну вот вроде как использовать разобрался,но функция почему то возвращает false(((

hNet:=InternetOpen('Project1',CERN_PROXY_INTERNET_ACCESS,'46.148.30.144:8080',nil,0);
if InternetSetOption(hNet, INTERNET_OPTION_PROXY_USERNAME,PChar('UAJnm9eGUe8D'), strlen('UAJnm9eGUe8D')+1)=false then
showmessage('false');

//strPassword is the buffer that contains the proxy password.
if InternetSetOption(hNet, INTERNET_OPTION_PROXY_PASSWORD, PChar('dUy9uvFlv4'), strlen('dUy9uvFlv4')+1)=false then
showmessage('false');

[kangreon]

GetLastError пробовали вызывать после функции, которая возвращает False?

[Дима я]

Попробовал,после InternetOpen вывело операция успешно завершена.
Остальные 2 вывелись пустые.

hNet:=InternetOpen('Project1',CERN_PROXY_INTERNET_ACCESS,'46.148.30.144:8080',nil,INTERNET_FLAG_DONT_CACHE);
ShowMessage(SysErrorMessage(GetLastError));

if InternetSetOption(hNet, INTERNET_OPTION_PROXY_USERNAME,PChar('UAJnm9eGUe8D'), strlen('UAJnm9eGUe8D')+1)=false then
ShowMessage(SysErrorMessage(GetLastError));

//strPassword is the buffer that contains the proxy password.
if InternetSetOption(hNet, INTERNET_OPTION_PROXY_PASSWORD, PChar('dUy9uvFlv4'), strlen('dUy9uvFlv4')+1)=false then
ShowMessage(SysErrorMessage(GetLastError));

[Дима я]

ребят подскажите может у кого какие идеи...

[Baal80]

Выдержка из MSDN:

INTERNET_OPTION_PROXY_USERNAME This option can be set on the handle returned by InternetConnect or HttpOpenRequest.

INTERNET_OPTION_PROXY_PASSWORD This option can be set on the handle returned by InternetConnect or HttpOpenRequest.

У тебя хэндл неверный. Устанавливай параметры после вызова InternetConnect или HttpOpenRequest и став хэндлы этих функций.
Есть и другой способ - дописать http-заголовок
uses .....IdcoderMIME, idGlobal; {для кодирования в BASE64}
................................... .........
hRequest := HttpOpenRequest(hConnect, RequestMethod, PChar(FileName), HTTP_VERSION, PChar(FTReferer), @AcceptType, InternetFlag, 0);
basicAuth :='Proxy-Authorization: Basic ' +
TIdEncoderMIME.EncodeBytes(ToBytes( ProxyUser + ':' + ProxyPassword));
PWideBasicAuth:=PWideChar(String(ba sicAuth));
res:=HttpAddRequestHeaders(hRequest , PWideBasicAuth, Length(PWideBasicAuth), HTTP_ADDREQ_FLAG_ADD);
................................... ..........