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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.10.2013, 07:39   #1
Bataxe
Новичок
Джуниор
 
Регистрация: 13.10.2013
Сообщений: 2
Сообщение Connection Closed Gracefully

Авторизация на сайта.
Ошибка: Connection Closed Gracefully
Что висит на форме:
Код:
Memo3
Button3
IdHTTP1
IdAntiFreeze1
IdCookieManager1
Label1
Вот код:
Код:
var
  Ts:TStringList;
  s:string;
  i:integer;
  http:TidHttp;
begin
Ts:=TStringList.Create;
http:=TidHttp.Create(Self);
  try
  Ts.add('vb_login_username=тут e-mail');
  Ts.Add('vb_login_password=тут пароль');
  Ts.Add('s=');
  Ts.Add('securitytoken=guest');
  Ts.Add('do=login');
  Ts.Add('vb_login_md5password=');
  Ts.Add('vb_login_md5password_utf=');
  s:=(http.Post('http://allods.mail.ru/login.php?do=login',ts));
   if pos('Спасибо, что зашли',s)> 0 then
label1.Caption := 'OK'
else label1.Caption := 'ERROR';

  finally
   Ts.Free;
  end;
end;
Bataxe вне форума Ответить с цитированием
Старый 13.10.2013, 08:48   #2
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

я бы переходил на synapse.
Попробуйте так:
Код:
var
  Ts:TStringList;
  s:string;
  i:integer;
  http:TidHttp;
begin
Ts:=TStringList.Create;
http:=TidHttp.Create(Self);
  try
  Ts.add('vb_login_username=тут e-mail');
  Ts.Add('vb_login_password=тут пароль');
  Ts.Add('s=');
  Ts.Add('securitytoken=guest');
  Ts.Add('do=login');
  Ts.Add('vb_login_md5password=');
  Ts.Add('vb_login_md5password_utf=');
TRY
  s:=http.Post('http://allods.mail.ru/login.php?do=login',ts);
end;
except
   if pos('Спасибо, что зашли',s)> 0 then
label1.Caption := 'OK'
else label1.Caption := 'ERROR';

  finally
   Ts.Free;
  end;
end;
Скомпилируйте и запускайте без отладчика.
Кольша вне форума Ответить с цитированием
Старый 13.10.2013, 09:32   #3
Bataxe
Новичок
Джуниор
 
Регистрация: 13.10.2013
Сообщений: 2
По умолчанию

Ошибка пропала спасибо, но авторизация не проходит. Думаю что дело с редиректом т.к авторизуюсь я на http://allods.mail.ru/userbars.php потом идет /login.php?do=login просят подождать 2 секунды после чего опять на /userbars.php как это все обработать
Bataxe вне форума Ответить с цитированием
Старый 13.10.2013, 10:53   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Ошибка: Connection Closed Gracefully
Это не ошибка. Это исключение означает что и твой комп и сервер разединились полюбовно. Это ошибкой считать не стоит.
А вот я бы http.Get писал а не post, дабы получить ответ от сервера.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.10.2013, 15:35   #5
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Stilet, зачем get ? ведь ему нужно послать данные на сервер. там дело не в этом. Когда авторизовываешься на сайте у формы срабатывает обработчик и поля vb_login_md5password=
vb_login_md5password_utf=
Заполняются автоматически, ТС этого не учел.
Кольша вне форума Ответить с цитированием
Старый 13.10.2013, 17:00   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
ведь ему нужно послать данные на сервер.
А ответ получить? Авторизован он или нет?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.10.2013, 18:06   #7
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

Метод post также, как и get возвращает ответ.
Кольша вне форума Ответить с цитированием
Старый 13.10.2013, 18:15   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ага, только сервер по разному реагировать может.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 13.10.2013, 18:21   #9
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

может, но все же дело не в методе отправки данных, тем более сам сайт отправляет их так же.
Кольша вне форума Ответить с цитированием
Старый 13.10.2013, 18:30   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Тогда без вопросов. Сниффером смотреть и так же делать.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Connection Closed Gracefully KoBaL Работа с сетью в Delphi 12 20.02.2015 08:43
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
Ошибка с Indy - Connection Closed Gracefully SoulReaver Работа с сетью в Delphi 4 18.04.2009 13:29