[s2004]

прокси, как сделать возможность ввода с клавиатуры, неудобно же вводить компилировать, а потом па новой делать
поэтому, как исправить на возможность ввода с клавиатуры

Код:

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

[s2004]

Код:

begin
New(PIInfo);
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
PIInfo^.lpszProxy := PChar(edit1.Text);       //суда вводим адрес прокси 192.168.0.1:80
PIInfo^.lpszProxyBypass := PChar('');


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

Dispose(PIInfo);

вопрос решён

[timondrik]

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

Проблема:
При попытке зайти на страницу через прокси выдаёт сообщение

Socket error # 10054 Connection reset by peer

Вопрос:
С чем это связано? И как можно зделать чтобы программа не выдавала ошибку при её обнаружение и продолжала работать (взять следующую проксю из списка и попробовать с ней). Взаранее всем спс

Упс сори за не внимательность, забыл про try...except...end Проблема решена.

[timondrik]

Опять появилась проблема Вы уж извиняйте что у меня так много вопросов возникает
Всё те же прокси в idhttp, только теперь интересует вопрос как назначить таймаут соединения с прокси сервером. А то програма пашат отлично и когда попадётся под плохую проксю конектится давольно долгое время. Мне надо сделать так чтобы по истечение 5 секунд конекта последовал разрыв.
Пробовал сделать так:

idhttp.ProxyParams.ProxyServer:=proxyserver;
idhttp.ProxyParams.ProxyPort:=port;
idhttp.ReadTimeOut:=5000;
idhttp.Get('http://site.ru/');

Но не прокатило, не разу за всё время обучения в программах не использовал таймаут, а вот теперь стало нужно. Скажите плиз как это можно сделать