Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.04.2014, 15:14   #1
UKRtortik
Форумчанин
 
Регистрация: 25.02.2014
Сообщений: 366
По умолчанию Проблема с отправкой запроса Indy+Https

Код:
procedure TNewThread.Execute;
var
CurAcc:integer;
HTTP: TIdHTTP;
SSL : TIdSSLIOHandlerSocketOpenSSL;
SOCKS: TIdSocksInfo;
cook:TIdCookieManager;
begin
while Work do
begin
CS.Enter;
Inc(Acc);
if Acc<Accounts.Count then CurAcc:=Acc else Work:=false;
inc(tp);
if tp=Proxy.Count-1 then tp:=0;
CS.Leave;
if Work then
begin
HTTP:=TIdHTTP.Create(nil);
http.HandleRedirects:=false;
http.AllowCookies:=true;
SSL:=TIdSSLIOHandlerSocketOpenSSL.Create;
ssl.Port:=433;
http.ReadTimeout:=Form1.SpinEdit2.Value*1000;
http.Request.UserAgent:='Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.19 (KHTML, like Gecko) Chrome/0.2.153.1 Safari/525.19';
if Proxy.Text = '' then sleep(0) else
if Form1.ComboBox1.Text='http/https' then
begin
IP:=Copy(Proxy[tp], 1, Pos(':',Proxy[tp])-1);
PORT:=Copy(Proxy[tp], Pos(':', Proxy[tp])+1, Length(Proxy[tp]));
http.ProxyParams.ProxyServer:=IP;
http.ProxyParams.ProxyPort:=strtoint(PORT);
end;
if Form1.ComboBox1.Text='socks4' then
begin
SOCKS:=TIdSocksInfo.Create;
SOCKS.Version:=svSocks4;
SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
SOCKS.Authentication:= saNoAuthentication;
SSL.TransparentProxy:=SOCKS;
end;
if Form1.ComboBox1.Text='socks5' then
begin
SOCKS:=TIdSocksInfo.Create;
SOCKS.Version:=svSocks5;
SOCKS.Host:=Copy(Proxy[tp],1,Pos(':',Proxy[tp])-1);
SOCKS.Port:=StrToInt(Copy(Proxy[tp],Pos(':',Proxy[tp])+1,Length(Proxy[tp])));
SOCKS.Authentication:= saNoAuthentication;
SSL.TransparentProxy:=SOCKS;
end;
if pos(':', Accounts[CurAcc])<>0 then
begin
login:=Copy(Accounts[CurAcc], 1, Pos(':',Accounts[CurAcc])-1);
pass:=Copy(Accounts[CurAcc], Pos(':', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
end
else
begin
login:=Copy(Accounts[CurAcc], 1, Pos(';',Accounts[CurAcc])-1);
pass:=Copy(Accounts[CurAcc], Pos(';', Accounts[CurAcc])+1, Length(Accounts[CurAcc]));
end;
try
запрос:=HTTP.GET('https://сайт.ру/token?username='+login+'&password='+pass);
if Pos('token', запрос)<>0 then begin
Rez:=1;
end else
Rez:=0;
except
Rez:=-1;
end;
end;
HTTP.Free;
Synchronize(Sync);
end;
dec(Thread);
if Thread=0 then MessageDlg('The end.',mtWarning,[mbOK],0);
end;
Если отснифать запрос то он отправляется не на https ка должно быть а на http из-за чего это?
UKRtortik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
INDY + HTTPS + SSL Maxwellion Работа с сетью в Delphi 5 16.01.2014 16:45
HTTPS, Indy 10, Delphi 7 KoBaL Работа с сетью в Delphi 8 14.11.2012 15:08
https & indy netronn Работа с сетью в Delphi 3 30.03.2011 12:34
HTTPS indy! sergeyrulit Общие вопросы Delphi 0 31.08.2010 16:15
Проблема с отправкой кукисов (indy) Rock'n'rolla Работа с сетью в Delphi 0 23.03.2010 16:13