Hallo,
ich möchte mich gerne ein Programm schreiben mit dem ich beim Browsergame Inselkampf (
http://inselkampf.de) die Rohstoffe auslese und nachseh, welche Gebäude ich momentan mit den resourcen bauen kann.
Leider scheitert es schon am Login.
Delphi-Quellcode:
var sURL:String; slEintrag:TStringList;
begin
slEintrag := TStringList.Create;
sURL:='http://inselkampf.de/index.php?controller=sessions&action=create';
with
slEintrag do
begin
Add('player=mynick');
Add('&password=asdf3g');
Add('&world=9');
Add('&remember=1');
end;
try
Memo1.Text:=IdHTTP1.Post(sURL,slEintrag);
except
MessageDlg('Senden fehlgeschlagen', mtError, [mbOK], 0);
end;
slEintrag.Free;
end;
Ist der Spielername und das Passwort gültig kriege ich eine EIdHTTPProtocolException mit message 'HTTP/1.1 302 Found'.
Sind beide ungültig zeigt das Memo den Quelltext. Inhalt: Username oder Pw ungültig.
Das Ergebnis ist das gleiche, wenn ich die Amps "&" weglasse:
Delphi-Quellcode:
begin
Add('player=mynick');
Add('password=asdf3g');
Add('world=9');
Add('remember=1');
end;
Verwende ich statt
Delphi-Quellcode:
begin
Add('player=mynick');
Add('&password=asdf3g');
Add('&world=9');
Add('&remember=1');
end;
das ganze in einem Add:
Delphi-Quellcode:
begin
Add('player=mynick&password=asdf3g&world=9&remember=1');
end;
dann sagt er mir per Quelltext, dass keine Welt gewählt wurde.
Was mach ich bei der Anmeldung falsch?