Поключиться к прокси

[Pasha_Sh]

Привет всем!
У меня такой вопрос. Как сделать программу, в которую вводишь прокси серв к примеру 123.123.123.123:11111, и ип на компе меняется на ип прокси сервера. Типа проги HideIP. Но мне нужна своя.

[Виталий Желтяков]

Необходимо выполнять данную процедуру перед каждом запросом:

//--------------- Процедура установки подключения к прокси-серверу -----------//
procedure SetProxy;
var
  PIInfo: PInternetProxyInfo;
begin
  New(PIInfo);
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  //  Изменение  настроек ПРОКСИ
  PIInfo^.lpszProxy := PChar(ProxyServer + ':' + ProxyPort);
  //  Список адресов, доступ к которым возможен минуя Proxy сервер
  PIInfo^.lpszProxyBypass := PChar('');

  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
  Dispose(PIInfo);
end;
//----------------------------------------------------------------------------//

[Pasha_Sh]

Спасибо, подключаюсь к прокси серваку 200.93.222.125:3128, но ип адрес не меняется( проверял на myip.ru )

[Виталий Желтяков]

Необходимо выполнять данную процедуру перед каждом запросом

Видно Вы не перед всеми запросами её запускаете. см. WinApi

[Pasha_Sh]

ничё не меняется. Мне надо как в проге HideIP, ввёл прокси сервер и на твоём компе меняется ип адрес.
З.Ы. вот код который я использовал

var
  PIInfo: PInternetProxyInfo;
begin
  New(PIInfo);
  PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
  //  Изменение  настроек ПРОКСИ
  PIInfo^.lpszProxy := PChar('200.93.222.125:3128');
  //  Список адресов, доступ к которым возможен минуя Proxy сервер
  PIInfo^.lpszProxyBypass := PChar('');

  UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
  Dispose(PIInfo);
  memo1.Lines.Text:=idhttp1.Get('http://www.myip.ru/get_ip.php?loc=');