Hallo,
zu Übungszwecken wollte ich mal ein kleines Programm zum Login ins Delphi-Forum erstellen.
Allerdings klappt dies nicht trotz des Studiums von sehr vielen Foren-Beiträgen.
Hier der Code :
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.Button1Click(Sender: TObject);
var
params: TStringList;
begin
params := TStringList.Create;
with params do
begin
Add('username=jocke');
Add('password=xxxxx');
end;
Try
idHTTP1.Post('www.delphi-forum.de/login.php', params);
except
showmessage('hat nicht geklappt')
end;
params.free;
end; |
Auf der HTML-Seite sind allerdings auch noch mehr "inputs" vorhanden. Darum habe ich auch noch zusätzliche Parameter hinzugefügt, wie z.B.
Quelltext
1:
2:
| Add('autologin=0');
Add('redirect=0'); |
allerdings ohne Erfolg.
Bitte helft mir.
