Indy Login+Cookies

[viper3001]

Also ich hatte mal so ein ähnliches Problem.
Versuch mal Folgendes: Die seite zuerst mit get aufrufen. Da schau dir mal das RecvPacket an. Bei dir stand genau drin Set-Cookie: PHPSESSID=ca753b5f460588c3e9ac1174beae51b0; path=/

->

Code:

temp_sh:='PHPSESSID=ca753b5f460588c3e9ac1174beae51b0';
HTTP.AllowCookies:=true;
HTTP.Cookiemanager.addCookie(temp_sh,loginURL);

Hoffe es hilft evtl.

MfG

[-187-]

Zitat von viper3001:

Code:

temp_sh:='PHPSESSID=ca753b5f460588c3e9ac1174beae51b0';
HTTP.AllowCookies:=true;
HTTP.Cookiemanager.addCookie(temp_sh,loginURL);

Mein IdCookieManager kennt kein AddCookie sondern nur AddCookies. Da ist aber kein String erlaubt:
IdCookieManager1.AddCookies(Cookie,'domain.com');
E2010 Inkompatible Typen: 'TIdCookieManager' und 'string'

Edit, ok so funktioniert das:

Code:

      cookieURL:=TIdURI.Create('http://www.domain.com/');
      HTTP.CookieManager.AddServerCookie(Cookie,cookieURL);

Melde mich gleich wieder obs mich weiter bringt

Edit, Nein..hat mich noch nicht weiter gebracht :/

[viper3001]

ich editiere mal kurz meinen quelltext rein mom.

Code:

procedure TForm1.Button1Click(Sender: TObject);
var uri:TidUri;
temp_sh,url:String;
begin
HTTP.CookieManager:=IdCookieManager1;
HTTP.AllowCookies:=true;
HTTP.CookieManager.GenerateCookieList(uri);
HTTP.CookieManager.addCookie(temp_sh,url);
end;

so müsste das normal funktionieren. temp_sh kannste aus dem RecvPacket vom http.get(url) rausfiltern da stand ja schon setCookie: usw...
und die url wird halt mit eingetragen. Danach kannste dann http.post(); mit den daten machen.

Achja benutzte indy10 kA ob das da nen unterschied macht.

MfG

[-187-]

Hmm ich benutzte auch Indy 10 (10.5.7) und da gibt es kein AddCookie()...

Du hast da scheinbar auch was anderes gemacht. Ich möchte zuerst den Login posten und dann die HTML Seite runterladen.

1. Log-In Paramter senden: HTTP.Post('http://www.my-domain.com/login.php',lParams);
2. "Logged In" HTML Seite runterladen: ResponseCode.Text:=HTTP.Get('http://www.my-domain.com/');

Delphi-Quellcode:

begin
  HTTP:=TIdHTTP.Create(nil);
  HTTP.AllowCookies:=True;
  HTTP.CookieManager:=IdCookieManager1;
  lParams:=TStringList.Create;
  ResponseCode:=TStringList.Create;
  try
    try
      lParams.Values['username']:='Username';
      lParams.Values['password']:='Password';
      lParams.Values['submit']:='Login';
      HTTP.Post('http://www.my-domain.com/login.php',lParams);

      Cookie:=HTTP.Response.RawHeaders.Values['Set-Cookie'];
      Cookie:=Copy(Cookie,1,Pos(';',Cookie)-1);
      cookieURL:=TIdURI.Create('www.my-domain.com');
      HTTP.CookieManager.AddServerCookie(Cookie,cookieURL);

      ResponseCode.Text:=HTTP.Get('http://www.my-domain.com/');
      Memo1.Text:=ResponseCode.Text;
    except
      on Exception do
        ShowMessage('Fehler..');
    end;

//Edit, macht auch eigentlich kein Sinn den Cookie nochmals in den Manager einzufügen. Die Ausgabe hat gezeigt das der Cookie bereits vorhanden ist.

[viper3001]

hmm schade dann weiß ich momentan auch nicht weiter sry =) müsste es evtl direkt an der page noch probieren sonst kA.

[geskill]

Huhu,
die Cookies wurden von einigen Wochen komplett überarbeitet/vereinfacht und sind nun viel alltagstauglicher, deswegen empfehle ich dir erstmal dringend ein Indy Update.

Dateien:
http://indy.fulgan.com/ZIP/

Anleitung (thx @ Apfelteig):
http://www.herrotto.de/delphiindy/

Grüße

PS: Mit WireShark kannst du prima deinen kompletten Datenverkehr überwachen, hat mir schon unzählige male geholfen den Fehler zu finden.

PPS: Für die Parameterliste empfehle ich dir TStringStream oder TIdMultiPartFormDataStream

PPPS: Wenn du eine Abfrage sendest nimm bitte immer TStringStream um an die Antwort zu kommen á la:

Delphi-Quellcode:

ReplyData := TStringStream.Create('', CP_UTF8); // wenn Webseite in utf-8 kodiert ist
try
  Get('http://www.deinewebseite.com/', ReplyData);
finally
  ReplyData.Free;
end;

Weil Indy wandelt, wenn du dort String's benutzt gzip kodierte Daten nicht automatisch um und bei normalen String's und utf-8 kodierten Seiten kommen u.a. die Umlaute falsch rüber.

[-187-]

Hey! Danke für deine Tipps!

Zurzeit teste ich Delphi XE (Profil noch nicht updated) -> Welches Package ist das = ...150 oder ...160 ? (Delphi 2010 ist ...140)

Greetings