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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 27.10.2016, 16:34   #1
aesoem
Форумчанин
 
Регистрация: 24.12.2007
Сообщений: 288
По умолчанию connection closed gracefully

Добрый день, пытаюсь авторизоваться в личном кабинете йоты...
Код работает в 50% случаев ) В остальных 50 % вылетает с ошибкой connection closed gracefully


В интернете на форумах все говорят об этой ошибке, но нечего по делу
Код:
Procedure Authirisation;
var
post_data:Tstrings;
result:String;
begin
post_data:=Tstringlist.Create;
post_data.Add('org=customer');
post_data.Add('ForceAuth=true');
post_data.Add('IDToken1=60397');
post_data.Add('IDToken2=qwexc');
post_data.Add('gotoOnFail=https://widgets.yota.ru/wrs/gadgets/ifr?renderType=iframe&mid=0&country=RU&lang=ru_ru&nocache=1&url=https://widgets.yota.ru/widgets/login/login.xml&up_error=1');


result:=mainform.idhttp1.Post('https://login.yota.ru/UI/Login.php',post_data);


if Pos('Выход',result)>0 then
mainform.Memo1.Lines.Add(DateTimeToStr(now)+' | Авторизация успешно пройдена, загрузка информации...') ;


//очистка переменной
post_data.Free;
end;
aesoem вне форума Ответить с цитированием
Старый 27.10.2016, 17:41   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Поехали:
Поддержка редиректов включена?
Кип-алив?
Юзер-Агент какой шлете?
Библиотеки ssl лежат рядом?
p51x вне форума Ответить с цитированием
Старый 27.10.2016, 19:09   #3
aesoem
Форумчанин
 
Регистрация: 24.12.2007
Сообщений: 288
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Поехали:
Поддержка редиректов включена?
Кип-алив?
Юзер-Агент какой шлете?
Библиотеки ssl лежат рядом?
Кип алив, редирект да, включены

Код:
procedure TMainForm.FormCreate(Sender: TObject);
begin
IdHTTP1.Response.KeepAlive := True;
IdHTTP1.HandleRedirects:=true;
end;
UserAgent = Mozilla/3.0 (compatible; Indy Library)

Библиотеки есть...
aesoem вне форума Ответить с цитированием
Старый 27.10.2016, 19:21   #4
aesoem
Форумчанин
 
Регистрация: 24.12.2007
Сообщений: 288
По умолчанию

27.10.2016 19:36:45 | Начало авторизации...
27.10.2016 19:36:48 | Отказ: connection closed gracefully
27.10.2016 19:36:50 | Начало авторизации...
27.10.2016 19:36:51 | Отказ: connection closed gracefully
27.10.2016 19:36:52 | Начало авторизации...
27.10.2016 19:36:54 | Авторизация успешно пройдена, загрузка информации...
ProductId = 210209745
resourceId = 89264146

Последний раз редактировалось aesoem; 27.10.2016 в 19:37.
aesoem вне форума Ответить с цитированием
Старый 27.10.2016, 20:44   #5
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Значит защита от ботов
p51x вне форума Ответить с цитированием
Старый 27.10.2016, 22:06   #6
aesoem
Форумчанин
 
Регистрация: 24.12.2007
Сообщений: 288
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Значит защита от ботов
странно защита работает )


запрос отправляется на сервер, даже если вылетает данная ошибка )

но вот при вылете получить исходный код не получается...



Кстати, подобные программы (для управления тарифом) уже есть в интернете, но без исходников, они же как то работают...
Может библитеки глюченые?
+
скопировал библиотеки из папки HttpAnalyzerStdV7 результат тот же

Последний раз редактировалось aesoem; 27.10.2016 в 22:09.
aesoem вне форума Ответить с цитированием
Старый 27.10.2016, 22:24   #7
come-on
Участник клуба
 
Регистрация: 21.10.2015
Сообщений: 1,361
По умолчанию

Цитата:
запрос отправляется на сервер, даже если вылетает данная ошибка )
а что тут странного? отправляете его вы а не за вас ребята на сервере решают слать или нет
come-on вне форума Ответить с цитированием
Старый 27.10.2016, 22:47   #8
aesoem
Форумчанин
 
Регистрация: 24.12.2007
Сообщений: 288
По умолчанию

Цитата:
Сообщение от come-on Посмотреть сообщение
а что тут странного? отправляете его вы а не за вас ребята на сервере решают слать или нет
я имел ввиду, сервер принимает команду и меняет тариф(предназначение программы), даже если выбивает ошибка...
aesoem вне форума Ответить с цитированием
Старый 28.10.2016, 07:42   #9
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

Ну формально это не ошибка. Это говорит, что сервер закрыл соедение, а вы эту ситуацию не обработали. Т.е. формально вполне нормально, что сервер принял команду и закрыл соединение.
p51x вне форума Ответить с цитированием
Старый 28.10.2016, 19:11   #10
aesoem
Форумчанин
 
Регистрация: 24.12.2007
Сообщений: 288
По умолчанию

Цитата:
Сообщение от p51x Посмотреть сообщение
Ну формально это не ошибка. Это говорит, что сервер закрыл соедение, а вы эту ситуацию не обработали. Т.е. формально вполне нормально, что сервер принял команду и закрыл соединение.
такую версию тоже читал, только как обработать данное сообщение?
не try except end же ставить...?

и если высвечивается данное уведомление не происходит загрузка html кода...
aesoem вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Connection Closed Gracefully KoBaL Работа с сетью в Delphi 12 20.02.2015 08:43
Connection Closed Gracefully Bataxe Работа с сетью в Delphi 9 13.10.2013 18:30
Connection Closed Gracefully. idhttp jone Работа с сетью в Delphi 0 28.08.2011 15:44
connection closed gracefully foma9999 Общие вопросы Delphi 21 14.02.2011 16:15
Ошибка, connection closed gracefully в idhttp Delphinchik Помощь студентам 0 28.08.2010 23:21