Прокси

[Pasha_Sh]

Коннектюсь к рабочему прокси, получаю свой ип

idhttp1.ProxyParams.BasicAuthentication:=true;
idhttp1.ProxyParams.ProxyServer:=ip;
idhttp1.ProxyParams.ProxyPort:=strtoint(port);
idhttp1.get:='http://www.myip.ru/get_ip.php?loc=';

В итоге получаю свой же ip адрес. В чем ошибка?

[W0LF]

Вообще-то, надо сначала задать IP и порт прокси, а затем включать... Вообщем:

idhttp1.ProxyParams.ProxyServer:=ip;
idhttp1.ProxyParams.ProxyPort:=strtoint(port);
idhttp1.ProxyParams.BasicAuthentication:=true;
idhttp1.get:='http://www.myip.ru/get_ip.php?loc=';
{и зачем '?loc=', без него прекрасно работает}

[Pasha_Sh]

Ну у еня так и было, вот код процедуры подставки прокси

var
tak, ip, port: string;
n: integer;
begin
n:=memo2.lines.count;
try
tak:=memo2.Lines.Strings[i];
ip:=Copy(tak, 0, Pos(':', tak) -1);
port:=Copy(tak, Pos(':', tak) +1, length(tak));
idhttp1.ProxyParams.ProxyServer:=ip;
idhttp1.ProxyParams.ProxyPort:=strtoint(port);
i:=i+1;
showmessage('IP: ' + ip + ' Порт: ' + port);
if checkbox1.Checked=true then
begin
idhttp1.ProxyParams.BasicAuthentication:=true;
IdHTTP1.Connect();
if n=i then
begin
i:=0;
listbox1.Items.Add('Все прокси исчерпанны!');
timer1.Enabled:=false;
button2.Enabled:=false;
button1.Enabled:=true;
end;
end;
except
listbox1.Items.Add('Ошибка!');
end;

[Terikon]

А прокся анонимная или прозрачная? нужно анонимную тогда и ип твой видно не будет

[Pasha_Sh]

Сообщение от Terikon

А прокся анонимная или прозрачная? нужно анонимную тогда и ип твой видно не будет

Ну что за вопрос, конечно анонимная, первая половина анонимная, вторая элитная, не работают и те и те

[Terikon]

procedure TForm1.btn1Click(Sender: TObject);
var
s:string;
begin
idhtp1.ProxyParams.ProxyServer:='124.42.10.119';
idhtp1.ProxyParams.ProxyPort:=8080;
s:=idhtp1.Get('http://www.myip.ru/get_ip.php?loc=');
if Pos('124.42.10.119',s)<>0 then
ShowMessage('Прокси работает!')
else
ShowMessage('Прокси не работает!')
end;
end.