Login mit IdHTTP

[Kharlanki]

Ich habe es jetzt mal mit einem Login hier in der DP ausprobiert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Ergebnis : TStringList;
  tmpString: String;
  oldct: string;
  FResult: String;
  ParamData : TStringStream;

begin
  oldct := http.Request.ContentType;
  http.Request.ContentType := 'application/x-www-form-urlencoded';
  try
    Ergebnis := TStringList.Create;
    http.HTTPOptions := http.HTTPOptions - [hoKeepOrigProtocol];
    Ergebnis.Clear;
    try
      try
        ParamData := TStringStream.Create('');
        ParamData.WriteString('username=bla');
        ParamData.WriteString('password=fasel');
        ParamData.WriteString('redirect=');
        try
          FResult := HTTP.post('http://www.delphipraxis.net/login.php', Paramdata);
        finally
          ParamData.Free;
        end;
      finally
        try
          if (HTTP.Connected) then
            HTTP.DisconnectSocket;
        except
        end;
      end;
    except
    end;
    Ergebnis.Add (AdjustLineBreaks(FResult));
  finally
    http.Request.ContentType := oldct;
  end;
  memPage.Lines.Clear;
  memPage.Lines.Text := Ergebnis.Text;
  Ergebnis.Free;
end;

Auch hier erhalte ich bei falschen Zugangsdaten noch nicht einmal den Hinweis, dass die Daten falsch sind, sondern einfach nur wieder die Seite login.php...