POST / Get проблема

[mr_xxx]

Добрый день уважаемые програмисты
у меня проблема прошу помоч
но очен прошу пишите конкретный выход из этой ситуации
не дайте линки на какието статьи

значет так

unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, sSkinManager, Vcl.StdCtrls, sMemo,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, sEdit,
  Vcl.OleCtrls, SHDocVw, Vcl.ExtCtrls, sButton;

type
  TForm2 = class(TForm)
    sSkinManager1: TsSkinManager;
    IdHTTP1: TIdHTTP;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    Timer1: TTimer;
    WebBrowser1: TWebBrowser;
    sButton1: TsButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
var
post:tstringlist;
result:string;
begin
post:=tstringlist.create;
idhttp1.handleredirects:=true;

post.add('username='+sedit1.text);
post.add('password='+sedit2.text);
post.add('submit=loginbtn');
post.add('redirect_to=http://localhost/login/index.php');

result:=idhttp1.post('http://localhost/login/index.php',post);

if pos('logout.php' , result)>0 then

begin


 webbrowser1.Navigate('http://localhost');
webbrowser1.Align:=alclient;
sedit1.visible:=false;
sedit2.Visible:=false;
sbutton1.Visible:=false;
webbrowser1.Show;
timer1.Enabled:=true;

   end
else

messagedlg ('Not ready  ' , mtinformation ,[mbOK] ,0)


end;

procedure TForm2.FormCreate(Sender: TObject);
begin
webbrowser1.Hide;
end;

procedure TForm2.sButton1Click(Sender: TObject);
var
post:tstringlist;
result:string;
begin
post:=tstringlist.create;
idhttp1.handleredirects:=true;


post.add('username='+sedit1.text);
post.add('password='+sedit2.text);



result:=idhttp1.post('http://localhost/login/index.php',post);

if pos('logout.php' , result)>0 then

begin


 webbrowser1.Navigate('http://localhost');
webbrowser1.Align:=alclient;
sedit1.visible:=false;
sedit2.Visible:=false;
sbutton1.Visible:=false;
webbrowser1.Show;
timer1.Enabled:=true;
showmessage('ready') ;

   end
else

messagedlg ('Not Ready ' , mtinformation ,[mbOK] ,0)

end;

procedure TForm2.Timer1Timer(Sender: TObject);
var
......
......
.....
 end;
end.

все получается удачно но потом на этом же браузере смотрю не авторизован
а программа если вводит правилный логин пароль пишет ready а если нет not ready
тогла почему на браузере показывает не авторизованным ?

Заранее всем огромное спасибо

[Lardes]

mr_xxx, браузер не будет авторизован до тех пор, пока ему не присвоить cookie, которые Вы получаете программно при авторизации.

конкретный выход из этой ситуации

Присвоить cookie браузеру

[eval]

вот у меня в сарае стоит хамер, а дома я ключом поворачиваю, все прекрасно поворачивается, но почему же хамер не реагирует?

[mr_xxx]

Lardes

Спасибо за ответ
можеш помоч как я могу достать куки и засунуть в браузер ?

[bakanaev]

Тебе легче авторизоваться через webbrowser1, нежели через idhttp

[Lardes]

mr_xxx , к IdHTTP1 привязываете IdCookieManager. Это нужно для того, чтобы Вы могли вытащить куки, а после назначить куки для WebBrowser'а. Кодом помочь не смогу

[mr_xxx]

Lardes

THANK you