am Webserver (PHP) anmelden

[DieDolly]

Zitat:

wie sende ich ein btn-login über params?

So wie du auch die anderen Sachen mitsendest.

[strom]

Fehlermeldung

HTTP/1.1 302 Moved Temporaily.

[strom]

jetzt geht es! Danke

[strom]

hallo, habe doch noch ein problem wie fange ich die request Ok 200 ab?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  params: TStringList;
  url: string;
begin
  url:='http://192.168.0.85/index.php?action=login';
  params := TStringList.Create;
  try
    params.Add('btn-login=btn-login');
    params.Add('email='+ Edit1.Text);
    params.Add('password='+ Edit2.Text);

    idHTTP1.Post(url, params);

except
  on E: EIdHTTPProtocolException  do
    if (idhttp1.ResponseCode = 200) then
      Showmessage('Test');
    else
     Showmessage('Fehler');

    params.free;
  end;
end;

[DieDolly]

Das HTTP Objekt hat eine Property dafür. Kleiner Tipp: Integer.

[strom]

ok,

wieso wird immer der code 200 zurückgegeben? auch wenn die logindaten falsch sind?

Delphi-Quellcode:

var
  params: TStringList;
  url: string;
  code: integer;
begin
  url:='http://192.168.0.39/index.php?action=login';
  params := TStringList.Create;
  try
    params.Add('btn-login=btn-login');
    params.Add('email='+ Edit1.Text);
    params.Add('password='+ Edit2.Text);

    idHTTP1.Post(url, params);



    finally

     code := idhttp1.ResponseCode;
    ShowMessage(IntToStr(code));
    params.free;

[Schokohase]

Das musst du den Programmierer des Webservers fragen.