Witam..
Mam problem odnosnie szukania.. loguje sie poprawnie. a juz wyszukiwanie nie dziala.. wywala mnie do logowania.. czyzby idHTTp nie trzyma sesji?
var
Params : TStringList;
i: integer;
begin
WebBrowser.Navigate('about:blank');
Params := TStringList.Create;
Params.Values['back_url'] :='/';
Params.Values['login'] :='';
Params.Values['pass'] :='';
//Params.Values['save'] :='on';
IdHTTP1.Response.ContentType:='application/x-www-form-urlencoded';
IdHTTP1.request.useragent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)';
WebBrowser.silent:=true;
// logowanie..
AdvMemo1.Lines.Text:=IdHTTP1.POST('http://www.fotka.pl/login.php?form_login=1',params);
// WriteText(WebBrowser,AdvMemo1.Lines.Text);
//IdHTTP1.CookieManager.CookieCollection.Clear;
add(IntToStr(IdHTTP1.ResponseCode));
for i:=0 to IdHTTP1.CookieManager.CookieCollection.Count-1
do begin
memo1.Lines.Add(IdHTTP1.CookieManager.CookieCollection.Items[i].CookieText) ;
end;
// szukanie
Params.Clear;
Params.Values['e'] :='s';
Params.Values['f[km]'] :='20';
Params.Values['f[miejscowosc]'] :='Kielce';
Params.Values['f[miejscowosc_id]'] :='9850';
Params.Values['f[plec]'] :='k';
Params.Values['f[wiek_do]'] :='22';
Params.Values['f[wiek_od]'] :='18';
AdvMemo1.Lines.Text:=IdHTTP1.POST('http://www.fotka.pl/szukaj.php',params);
WriteText(WebBrowser,AdvMemo1.Lines.Text);
//IdHTTP1.CookieManager.CookieCollection.Clear;
add(IntToStr(IdHTTP1.ResponseCode));
end;