[Помогите!] HTTP Proxy

[RamDigga]

Сначала идёт конект с прокси сервером, а потом проверка ip на сайте 2ip.ru. Если на нём отображается мой ip, то программа выдаёт No Conected и наоборот, если не мой ip.
Прикрутил прокси, но программа выдаёт No Conected.
Может быть я как-то не правильно это использую ?

var
StrPage:string;
begin
IdHTTP1.ProxyParams.ProxyServer:=Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1);
IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)+1,Length(Edit1.Text)));
begin
StrPage:=idHTTP1.Get('http://2ip.ru/');
if pos ('My IP',StrPage) <> 0 then
Label1.Caption:='No Conected'
else
Label1.Caption:='Yes Conected';
 end;

Заранее спасибо.

[mad_cat]

проверять нужной твой IP а не строку 'MyIP' имхо

if pos (Твой_IP,StrPage) <> 0 then
Label1.Caption:='No Conected'
else
Label1.Caption:='Yes Conected';

[RamDigga]

Цитата: Сообщение от mad_cat проверять нужной твой IP а не строку 'MyIP' имхо if pos (Твой_IP,StrPage) <> 0 then Label1.Caption:='No Conected' else Label1.Caption:='Yes Conected';

Omg.
Не до такой уж степени я упорот...
Там такой строчки нет, а значит я не как не мог получить "No Conected" и данной бы темы не было тут.

[Роспотребнадзор]

Наверное нужно так:

Цитата: IdHTTP1.ProxyParams.ProxyServer:=StrToInt(Copy(Edit1.Text,1,Pos(':',Edit1.Text)-1)); IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)+1,Length(Edit 1.Text)));

А у тебя

Цитата: Сообщение от RamDigga IdHTTP1.ProxyParams.ProxyServer:=Copy(Edit1.Text,1 ,Pos(':',Edit1.Text)-1); IdHTTP1.ProxyParams.ProxyPort:=StrToInt(Copy(Edit1.Text,Pos(':',Edit1.Text)+1,Length(Edit 1.Text)));

[RamDigga]

Цитата: Сообщение от РОСПОТРЕБНАДЗОР Наверное нужно так: А у тебя

Наверно или нужно ?
Просто компилятор ругается при виде твоего кода )

[=PaLeTiZaToR=]

Что бы проверить "наверно" или "нужно" - берем в зубы сниффер, нажимаем в программе кнопочку, и смотрим на передаваемые параметры, а уже из этого делаем выводы