Indy Login+Cookies

[-187-]

So ich habe jetzt mit geskill 2,5 Stunden hin und her probiert und wir sind zu dem Ergebnis gekommen das der Code mit seiner Delphi 2010 Architect funktioniert und mit meinem Delphi XE Architect nicht funktioniert. Wir benutzen beide Indy 10.5.8.

Bei ihm klappt der Login, bei mir nicht!

Hat jemand ne Idee woran es liegen könnte?

PS: Am Code sicherlich aber trotzdem hiermal eine Rohfassung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  lParams: TStringList;
  ResponseData: TStringStream;
begin
  IdHTTP1.Request.Accept:='text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1';
  IdHTTP1.Request.AcceptCharSet:='iso-8859-1, utf-8, utf-16, *;q=0.1';
  IdHTTP1.Request.AcceptEncoding:='deflate, gzip, identity, *;q=0';
  IdHTTP1.Request.Connection:='Keep-Alive';
  IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
  IdHTTP1.Request.UserAgent:='Opera/9.80 (Windows NT 6.1; U; de) Presto/2.5.22 Version/10.51';
  lParams:=TStringList.Create;
  ResponseData:=TStringStream.Create('',CP_UTF8);
  try
    try
      lParams.Values['username']:='Username';
      lParams.Values['password']:='Password';
      lParams.Values['submit']:='Login';
      IdHTTP1.Post('http://www.my-domain.com',lParams, ResponseData);
      Memo1.Text:=ResponseData.DataString;
      ResponseData.Clear;
    except
      on Exception do
        ShowMessage('Exception');
    end;
  finally
    lParams.Free;
    IdHTTP1.Free;
    ResponseData.Free;
  end;