|
HTTP Proxy - Вопросы и ответы, обсуждения - Ваши вопросы по Pascal/Delphi только в данном разделе |
04.12.2012, 04:06
|
#1
|
|
|
|
Разведчик
|
Регистрация: 27.10.2012
Сообщений: 24
Популярность: -183
Сказал(а) спасибо: 35
Поблагодарили 23 раз(а) в 14 сообщениях
|
HTTP Proxy
Сначала идёт конект с прокси сервером, а потом проверка 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;
Заранее спасибо.
|
|
|
04.12.2012, 06:50
|
#2
|
|
|
|
Разведчик
|
Регистрация: 22.11.2012
Сообщений: 2
Популярность: 464
Сказал(а) спасибо: 0
Поблагодарили 22 раз(а) в 13 сообщениях
|
Re: HTTP Proxy
проверять нужной твой IP а не строку 'MyIP' имхо
Код:
if pos (Твой_IP,StrPage) <> 0 then
Label1.Caption:='No Conected'
else
Label1.Caption:='Yes Conected';
|
|
|
04.12.2012, 06:58
|
#3
|
|
|
|
Разведчик
|
Регистрация: 27.10.2012
Сообщений: 24
Популярность: -183
Сказал(а) спасибо: 35
Поблагодарили 23 раз(а) в 14 сообщениях
|
Re: HTTP Proxy
Omg.
Не до такой уж степени я упорот...
Там такой строчки нет, а значит я не как не мог получить "No Conected" и данной бы темы не было тут.
Последний раз редактировалось RamDigga; 04.12.2012 в 07:02.
|
|
|
04.12.2012, 15:39
|
#4
|
|
|
|
Сержант
|
Регистрация: 10.08.2011
Сообщений: 136
Популярность: 1781
Сказал(а) спасибо: 60
Поблагодарили 246 раз(а) в 145 сообщениях
|
Re: HTTP Proxy
Наверное нужно так:
|
Цитата: |
|
|
|
|
|
|
|
|
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))); |
|
|
|
|
|
А у тебя
|
Цитата: |
|
|
|
|
|
|
|
|
|
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)));
|
|
|
|
|
|
Последний раз редактировалось Роспотребнадзор; 04.12.2012 в 15:42.
|
|
|
04.12.2012, 17:46
|
#6
|
|
|
|
Пехотинец
|
Регистрация: 02.04.2011
Сообщений: 66
Популярность: 9953
Сказал(а) спасибо: 898
Поблагодарили 412 раз(а) в 209 сообщениях
|
Re: HTTP Proxy
Что бы проверить "наверно" или "нужно" - берем в зубы сниффер, нажимаем в программе кнопочку, и смотрим на передаваемые параметры, а уже из этого делаем выводы
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 12:03.
|
|