Ansich ist der Ansatz richtig. Ich vermute es klappt nicht weil du einige Felder nicht mit postest. Du solltest auch die "hidden"-Felder mit posten. So hast du zum beispiel
Code:
<input type='hidden' name='referer' value="http://www.cncgamer.com/forums/index.php?" />
und
Code:
<input type="submit" name='submit' value="Log me in" class='forminput' />
nicht mit gepostet (Sehr selten das beim submit auch ein value ist, aber soll vorkommen)
versuch mal (falls nicht schon geschehen da ich mir ja ziemlich viel zeit mit der antwort gelassen hab)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
const
url:
string = '
http://www.cncgamer.com/forums/index.php?act=Login&CODE=01';
var
SL: TStringList;
begin
SL := TStringList.Create;
SL.Add('
referer=http://www.cncgamer.com/forums/index.php?');
SL.Add('
CookieDate=1');
SL.Add('
UserName=' + Edit1.Text);
SL.Add('
PassWord=' + Edit2.Text);
SL.Add('
submit=Log me in');
Memo1.Text := idHTTP1.Post(
url, SL);
SL.Free;
end;
ganz dolles sorry nochmal das ich erst so spät poste, aber hatte den thread wohl damals übersehen