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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 29.12.2010, 00:42   #1
record222
Форумчанин
 
Регистрация: 23.09.2009
Сообщений: 127
По умолчанию Авторизация на сайте

Доброй ночи!
У меня проблема с авторизацией на сайте....
То есть программа авторизируется, но когда переходиш на другую страницу говорит, что Вы не зарегистрировались. Использовал куки, все-равно не пашет

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
data:tstringlist;
s:string;
begin
data:=tstringlist.Create;
data.Add('username=record222');
data.Add('password=1q2w3e4r');
data.Add('code='+Edit1.text);
idhttp1.Get('http://profitcentr.com/');
s:=idhttp1.Post('http://profitcentr.com/vhod.php', data);
if Pos('members', s)<>0 then
ShowMessage('Вошли')
else
ShowMessage('Не вошли');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
s:=idhttp1.Get('http://profitcentr.com/members.php');
if pos('record222', s)<>0 then
Showmessage('Вошли походу')
else
ShowMessage('Не вошли походу');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
png:Tpngobject;
ms:Tmemorystream;
begin
idhttp1.Get('http://profitcentr.com/');
png:=Tpngobject.Create;
ms:=Tmemorystream.Create;
idhttp1.Get('http://profitcentr.com/logincap.php', ms);
ms.Position:=0;
png.LoadFromStream(ms);
ms.Free;
image1.Picture.Assign(png);
png.Free;
end;
Я думаю, что проблема в куках.
Вот примеры с снифера

Браузер опера:



Программа:



Что показывает сниффер после нажатия на первую кнопку.




Что показывает сниффер после нажатия на вторую кнопку.


Последний раз редактировалось record222; 29.12.2010 в 01:18.
record222 вне форума Ответить с цитированием
Старый 29.12.2010, 01:10   #2
dosha
Форумчанин
 
Регистрация: 30.08.2010
Сообщений: 224
По умолчанию

data.Add('username=record222');
data.Add('password=123456');
пасс и логин не верный
dosha вне форума Ответить с цитированием
Старый 29.12.2010, 01:17   #3
record222
Форумчанин
 
Регистрация: 23.09.2009
Сообщений: 127
По умолчанию

Переправил.
record222 вне форума Ответить с цитированием
Старый 29.12.2010, 01:36   #4
dosha
Форумчанин
 
Регистрация: 30.08.2010
Сообщений: 224
По умолчанию

вся твоя проблема http://profitcentr.com/logincap.php сделай вывод этой картинки, и на инди сделай IdHTTP1.HandleRedirects:=True;
dosha вне форума Ответить с цитированием
Старый 29.12.2010, 01:38   #5
record222
Форумчанин
 
Регистрация: 23.09.2009
Сообщений: 127
По умолчанию

Так картинка выводится при создании формы
Цитата:
procedure TForm1.FormCreate(Sender: TObject);
var
png:Tpngobject;
ms:Tmemorystream;
begin
idhttp1.Get('http://profitcentr.com/');
png:=Tpngobject.Create;
ms:=Tmemorystream.Create;
idhttp1.Get('http://profitcentr.com/logincap.php', ms);
ms.Position:=0;
png.LoadFromStream(ms);
ms.Free;
image1.Picture.Assign(png);
png.Free;
end;
record222 вне форума Ответить с цитированием
Старый 29.12.2010, 01:41   #6
dosha
Форумчанин
 
Регистрация: 30.08.2010
Сообщений: 224
По умолчанию

стукни в асю 631694469
dosha вне форума Ответить с цитированием
Старый 29.12.2010, 15:25   #7
record222
Форумчанин
 
Регистрация: 23.09.2009
Сообщений: 127
По умолчанию

Может кто знает решение данной проблемы Уже неделю бьюсь не могу ни как войти
record222 вне форума Ответить с цитированием
Старый 29.12.2010, 17:12   #8
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

Работает, вроде.
Я правда получение картинки на кнопку перенес...
Вложения
Тип файла: zip 1.zip (358.1 Кб, 16 просмотров)
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно
Mifody вне форума Ответить с цитированием
Старый 29.12.2010, 18:34   #9
record222
Форумчанин
 
Регистрация: 23.09.2009
Сообщений: 127
По умолчанию

Вход работает согласен.
А вот когда переходиш на другую страницу на сайте получается (к примеру profitcentr.com/sites.php и ищем строку record222), что не авторизировались....
record222 вне форума Ответить с цитированием
Старый 29.12.2010, 19:34   #10
Mifody
Форумчанин
 
Регистрация: 12.02.2009
Сообщений: 215
По умолчанию

полные исходники программы либо сюда либо smw1975(гав)gmail.com
попробую помочь
Помог с вопросом - тыркаем в весы, Вам не сложно, а мне приятно
Mifody вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Авторизация на сайте Areostar Общие вопросы .NET 3 03.11.2010 17:22
Авторизация на сайте Kengie Помощь студентам 2 23.03.2010 21:28
Авторизация на сайте Niklan Общие вопросы Delphi 1 07.11.2009 00:39
Авторизация на сайте gusluk Работа с сетью в Delphi 3 20.11.2008 14:40
Авторизация на сайте vladimirzzz Работа с сетью в Delphi 7 28.09.2008 21:59