Guten Tag,

ich will mich einloggen bei diesem Formular :

markieren

Delphi-Quellcode:

<form action="login" method="post" name="formular">

<input type="text" class="login_user" name="user" value="Username" onblur="if(this.value=='') this.value='Username';" onfocus="if(this.value=='Username') this.value='';" />
<input type="password" class="login_pw" name="pass" value="Passwort" onblur="if(this.value=='') this.value='Passwort';" onfocus="if(this.value=='Passwort') this.value='';" padding-top:10 px/>
<div class="login_func">
   <div class="log">
   <input type="submit" name="submit" value="Einloggen" style="padding-left:5px;font-size: 11px; font-weight: bold; color: #FFFFFF; text-decoration: none;background: transparent; border: 0px;" />
   </div>

Und versuche es mit

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
stream: TIdMultiPartFormDataStream;
s:string;

begin
  try
    try
      stream := TIdMultiPartFormDataStream.Create;
       Stream.AddFormField('user','testuser');
      Stream.AddFormField('pass','test');
      s := idhttp1.Post('http://www.internetseite.de',stream);
      memo1.Lines.add(s);
      if (Pos('Ihr aktueller',s) > 0) then //Erfolgreich eingeloggt?
        ShowMessage('Du bist Eingeloggt.');
      if (Pos('Falscher Username',s) > 0) then //Fehler!
        ShowMessage('Leider ist die E-Mail-Adresse oder das Passwort falsch.');
    finally
      Stream.Free;
    end;
  except on E: Exception do
    ShowMessage(E.Message);
  end;
end;

In Memo1 wird nur der Quelltext von www.internetseite.de angezeigt

Was ist daran falsch?

Mit freundlichen Grüßen,
Eistee

Hi,
versuche mal
submit=Einloggen mitzusenden. Also:
Stream.AddFormField('submit','Einloggen'); ~stift

Danke funktioniert

Mit freundlichen Grüßen,
Eistee