Авторизация на сайте

[record222]

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

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;

Я думаю, что проблема в куках.
Вот примеры с снифера

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



Программа:



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




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

[dosha]

data.Add('username=record222');
data.Add('password=123456');
пасс и логин не верный

[record222]

Переправил.

[dosha]

вся твоя проблема http://profitcentr.com/logincap.php сделай вывод этой картинки, и на инди сделай IdHTTP1.HandleRedirects:=True;

[record222]

Так картинка выводится при создании формы

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;

[dosha]

стукни в асю 631694469

[record222]

Может кто знает решение данной проблемы Уже неделю бьюсь не могу ни как войти

[Mifody]

Работает, вроде.
Я правда получение картинки на кнопку перенес...

[record222]

Вход работает согласен.
А вот когда переходиш на другую страницу на сайте получается (к примеру profitcentr.com/sites.php и ищем строку record222), что не авторизировались....

[Mifody]

полные исходники программы либо сюда либо smw1975(гав)gmail.com
попробую помочь