1. Fotka Pl Nago
2. Fotka Pl Nago
3. Fotka Pl Logowanie

Fotka.com at Press About Us. Www.Fotka.pl.Adternative » Mody robi biznes w sieci – weblog Tomka Tomaszewskiego o biznesie, projektowaniu, produktywnoci i.Fotka. Fotka.com at Press About Us. Www.Fotka.pl.Adternative » Mody robi biznes w sieci – weblog Tomka Tomaszewskiego o biznesie, projektowaniu, produktywnoci i.Fotka.

Mam problem odnosnie szukania. Loguje sie poprawnie. A juz wyszukiwanie nie dziala. Wywala mnie do logowania.

Fotka Pl Nago

Czyzby idHTTp nie trzyma sesji? Var Params: TStringList; i: integer; begin WebBrowser. Navigate ( 'about:blank' ); Params: = TStringList. Create; Params. Values 'backurl' : = '/'; Params. Values 'login' : = '; Params.

Fotka Pl Nago

Values 'pass' : = '; //Params.Values'save':='on'; IdHTTP1. ContentType: = 'application/x-www-form-urlencoded'; IdHTTP1. Useragent: = 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)'; WebBrowser. Silent: = true; // logowanie. Text: =IdHTTP1. POST ( ',params ); // WriteText(WebBrowser,AdvMemo1.Lines.Text); //IdHTTP1.CookieManager.CookieCollection.Clear; add ( IntToStr (IdHTTP1. Flashpoint emperor aquaman.

ResponseCode ) ); for i: = 0 to IdHTTP1. Count - 1 do begin memo1. Add (IdHTTP1. CookieText ); end; // szukanie Params. Clear; Params.

Values 'e' : = 's'; Params. Values 'fkm' : = '20'; Params. Values 'fmiejscowosc' : = 'Kielce'; Params. Values 'fmiejscowoscid' : = '9850'; Params. Values 'fplec' : = 'k'; Params.

Fotka Pl Logowanie

Values 'fwiekdo' : = '22'; Params. Values 'fwiekod' : = '18'; AdvMemo1. Text: =IdHTTP1. POST ( ',params ); WriteText (WebBrowser,AdvMemo1. Text ); //IdHTTP1.CookieManager.CookieCollection.Clear; add ( IntToStr (IdHTTP1.

ResponseCode ) ); end.