Registriert seit: 4. Jun 2007
Ort: Sachsen
20 Beiträge
Delphi XE Architect
|
HTTP und Cookies
5. Aug 2008, 04:07
Grüß euch!
Aufgabestellung:
Man muss 2 Linkclicken zu emulieren...
1. http://softonet.com/index.php?pin=4123
2. http://softonet.com/index.php?do=cat&category=soft
http://smages.com/i/d3/3b/d33b3c8d6b...db351160ee.png
Für 2. Link 1. sollte als "Refer" sein...
Ich habe so gemacht:
Delphi-Quellcode:
// am Form liegt IdHTTP1, IdCookieManager1
// IdHTTP1.CookieManager:=IdCookieManager1;
// IdHTTP1.AllowCookies:=True;
// IdHTTP1.HandleRedirects:=True;
S1:='http://softonet.com/index.php?pin=4123';
// Memo1.Lines.Append(S1);
S2:=IdHTTP1.Get(S1);
// Memo1.Lines.Append(IdHTTP1.Response.Server+': '+IdHTTP1.Response.ResponseText);
S2:='http://softonet.com/index.php?do=cat&category=soft';
// Memo1.Lines.Append(S2);
IdHTTP1.Request.Referer:=S1;
S1:=IdHTTP1.Get(S2);
// For A:=0 To IdHTTP1.CookieManager.CookieCollection.Count-1 Do
// Memo1.Lines.Append(IdHTTP1.CookieManager.CookieCollection.Items[A].CookieText);
Funktioniert aber nicht
Wo ist mein Fehler?
|