IdHTTP1.Request.Username IdHTTP1.Request.Password

[newuser01]

Hallo

Ich versuch mich die ganze Zeit auf einer Webseite anzumelden um dann die Formulardaten als angemeldeter User auszufüllen und diese dann abzuschicken. Unangemeldet (eUnregUser) funktioniert das ganze auch, nur auf manche Formulare hat man nur als angemeldeter User Zugriff und da liegt das Problem.

Ein bischen Code

Delphi-Quellcode:

 //Loginversuch
 IdHTTP1.Request.Username := eUsername.Text;
 IdHTTP1.Request.Password := ePasswort.Text;
 IdHTTP1.Get(sLOGINurl);


 sl := TStringList.Create;
 
 //Prüfen ob Formulardaten mit (unregistered User) oder mit angemeldeten User ausgefüllt werden solln
 if CheckBox1.Checked = true then
 begin
  sl.Add('from='+ eUnregUser.Text); //wenn sich nicht angemeldet wurde (unregistered User) benutzen
 end
    else
        begin
        sl.Add('from='+ eUsername.Text); //wenn sich angemeldet wurde angemeldeten User benutzen
 end;//if

 //Hier ist das Formular (Gästebuch) was abgeschickt werden soll. 
//Als (unregistrierte User) funktioniert das ganze aber als (registrierte User) nach dem Login halt nicht

 sl.Add('p=MakeGuestbookEntry798');
 sl.Add('a=send');
 sl.Add('text=' + RichEdit1.Text);
 sl.Add('submit=senden');
 IdHTTP1.Post(sURL,sl);

Ich hab hier mal den Quelltext der Webseite um die es sich handelt und wo der Login funktionieren muss mit angehängt.


so hab ich es auch schon versucht leider auch ohne Erfolg

Delphi-Quellcode:

  slLogin := TStringList.Create;

  slLogin.Add('unickname='+ eUsername.Text);
  slLogin.Add('password='+ ePasswort.Text);
  slLogin.Add('submit=login');