ICQ - форум. Всё про ICQ.  

Вернуться   ICQ - форум. Всё про ICQ. > Мастерская > Программирование

Программирование C / C++ / Visual C++ / Delphi / Visual Basic / ASM / Windows / Pascal

 
 
Опции темы Оценить тему
Старый 30.01.2012, 14:43   #1
Участник
 
Регистрация: 30.01.2012
Сообщений: 1

Репутация: 1
По умолчанию [Delphi] Смена пароля на сайте

Добрый день!

Вообщем,пытаюсь сменить пароль на сайте с помощью дельфи.
По идее,логически это выглядит так:
Код:
посылаем пост запрос(с параметрами A),
если авторизовались:
                              посылаем пост запрос(уже с параметрами B) на смену пароля
если не авторизовались:
                                   записываем в лейбл "неверный пароль"
Ну и вот написал,но к сожалению не работает:
Код:
begin
 sylka:=' http://sait.ru/vxod/';
 sylka1:=' http://sait.ru/pas';
 log:=TstringList.Create;
 Log.Add('email='+Edit1.Text);
 Log.Add('password='+Edit2.Text);
 StrPage:=idhttp1.Post(ssylka,log);
 if Pos('logout', StrPage)<>0 then
   Par:=TstringList.Create;
   Par.Add('Oldpas='+Edit2.Text);
   Par.Add('Nevpas='+Edit3.Text);
   StrPage1:=idhttp1.Post(sylka1,Pas)
    else Label1.Caption:='Не верный пароль';
      log.Free;
      Pas.Free;
  end;
Прошу подсказать,что я делаю не так?
Думаю дело в куках..

PS использую инди)
Weresk011 вне форума  
Старый 03.02.2012, 16:06   #2
Участник
 
Регистрация: 27.09.2006
Сообщений: 1,045

ICQ: 272768

Репутация: 2856
Отправить сообщение для .fry с помощью Skype™ Bimoid
По умолчанию

Инди не пользуюсь, уже очень он мне не нравится. Так что ничего не подскажу.
А так, называй переменные нормально :)
__________________
Хочешь знать как работает ICQ? Читай документацию по протоколу в OSCAR.
.fry вне форума  
Старый 19.02.2012, 12:17   #3
Участник
 
Аватар для vlad36
 
Регистрация: 24.01.2012
Сообщений: 9

ICQ: 744441

Репутация: 10
Jabber
По умолчанию

Цитата:
Сообщение от Weresk011 Посмотреть сообщение
Добрый день!

Вообщем,пытаюсь сменить пароль на сайте с помощью дельфи.
По идее,логически это выглядит так:
Код:
посылаем пост запрос(с параметрами A),
если авторизовались:
                              посылаем пост запрос(уже с параметрами B) на смену пароля
если не авторизовались:
                                   записываем в лейбл "неверный пароль"
Ну и вот написал,но к сожалению не работает:
Код:
begin
 sylka:=' http://sait.ru/vxod/';
 sylka1:=' http://sait.ru/pas';
 log:=TstringList.Create;
 Log.Add('email='+Edit1.Text);
 Log.Add('password='+Edit2.Text);
 StrPage:=idhttp1.Post(ssylka,log);
 if Pos('logout', StrPage)<>0 then
   Par:=TstringList.Create;
   Par.Add('Oldpas='+Edit2.Text);
   Par.Add('Nevpas='+Edit3.Text);
   StrPage1:=idhttp1.Post(sylka1,Pas)
    else Label1.Caption:='Не верный пароль';
      log.Free;
      Pas.Free;
  end;
Прошу подсказать,что я делаю не так?
Думаю дело в куках..

PS использую инди)
__________________
icq 744441
vlad36 вне форума  
Старый 19.02.2012, 12:27   #4
Участник
 
Регистрация: 16.05.2009
Сообщений: 665

Репутация: 415
По умолчанию

vlad36, а че ты сделал?
Малай вне форума  
Старый 19.02.2012, 12:30   #5
Участник
 
Аватар для Volkodav88
 
Регистрация: 10.11.2007
Сообщений: 457

ICQ: 4888444

Репутация: 1024
По умолчанию

Малай, он же красным выдели ;)
Volkodav88 вне форума  
 

Метки
delphi

Опции темы
Оценка этой теме
Оценка этой теме:

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +3, время: 13:02.


Перевод: zCarot
Форум Асечников © Asechka.RU

Новости Сочи