Показать сообщение отдельно
  #1  
Старый 23.11.2009, 22:17
s2004 s2004 вне форума
Прохожий
 
Регистрация: 23.11.2009
Сообщения: 6
Репутация: 10
По умолчанию прокси как сделать возможность ввода с клавиатуры

прокси, как сделать возможность ввода с клавиатуры, неудобно же вводить компилировать, а потом па новой делать
поэтому, как исправить на возможность ввода с клавиатуры
Код:
uses ... urlmon, wininet ...

....

var PIInfo : PInternetProxyInfo;

...     

New (PIInfo) ;

//  Изменение  настроек ПРОКСИ 

PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ;  //  Тип доступа в интернет - через Proxy сервер 

PIInfo^.lpszProxy := PChar('some.proxy:someport');   //  указать  прокси  напр. 195.43.67.33:8080 

PIInfo^.lpszProxyBypass := PChar('');  //  Список адресов, доступ к которым возможен минуя Proxy сервер 

 

UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info),0);  

.... 

Dispose (PIInfo) ; 

пример прекрасно рабоитает в браузере взят drkb3
Ответить с цитированием