Ich komem einfach nicht weiter kann mir bitte wer helfen:
Ich möchte mich über Delphi auf einer Seite einloggen mitttels idhttp folgendes:
php Code
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
| <form action="" method="post" name="login">
Benutzername (Login):
<input type="text" name="username" maxlength="30" size="30" value="" >
Passwort (Login):
<input type="password" name="passwort" maxlength="30" size="30" value="" >
Länge der Loginzeit?</b></td>
<input type="Submit" name="login" value="Einloggen">
<input type="Reset" value="Formulardaten löschen">
</form> |
DelphiCode:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| var
lParams: TStringList;
ErgenbisQuelltext:string;
begin
lParams := TStringList.Create();
lParams.Add('action=login');
lParams.Add('retard_protection=1');
lParams.Add('username=' + Edit1.Text);
lParams.Add('passwort=' + Edit2.Text);
lParams.Add('login=Einloggen');
ErgenbisQuelltext := IdHttp1.Post('http://www.localhost/test.php', lParams);
Memo1.Text:=ErgenbisQuelltext;
end; |
Aber wenn der Quelltext im Memofeld angezigt wird sehe ich nur das ich nicht eingeloggt bin !
