Article View: pl.comp.lang.pascal
Article #93173Re: Logowanie na stronie http, błąd 301
From: Łukasz 'Maly' Ostrowski
Date: Wed, 06 Apr 2011 15:02
Date: Wed, 06 Apr 2011 15:02
53 lines
2596 bytes
2596 bytes
On Wed, 06 Apr 2011 01:28:04 +0200, Sławek wrote:
> Witam,
>
> Napisałem program, który loguje mi się na różne witryny,
> po czym automatycznie pobiera mi z tych witryn pliki cennika.
> Problem w tym, że na jedną z witryn nie mogę się zalogować.
> Program jest trochę rozbudowany, więc napiszę skrótowo
> czego użyłem:
>
>
> IdHTTP.CookieManager := IdCookie;
> // IdHTTP.IOHandler := IdSSL;
> IdHTTP.HandleRedirects := True;
> IdHTTP.AllowCookies := True;
> IdHTTP.ReadTimeout := 5000;
> IdHTTP.Request.UserAgent := 'Mozilla/5.0 (X11; U; Linux i686; pl-PL;
> rv:1.9.2.16) Gecko/20110322 Fedora/3.6.16-1.fc14 Firefox/3.6.16';
>
> //pobranie strony logowania
> adres := 'http://nowe.yamo.pl/'
> IdHTTP.Request.Host := adres;
> UstawCookies();
> strona := IdHTTP.Get(adres);
> OdbierzCookies();
>
> frData := TIdMultiPartFormDataStream.Create;
> try
> frData.AddFormField('l_login', moj_login);
> frData.AddFormField('l_pass', moje_haslo);
> frData.AddFormField('sf', 'l_login');
> UstawCookies();
> strona := IdHTTP.Post(adres, frData); //WYSYŁANIE FORMULARZA
> OdbierzCookies();
> finally
> FreeAndNil(frData);
> end;
Zakładająć że w ukrytych fragmentach nie ma żadnych robaczków,
to całość wygląda sprawnie.
1. Jaki jest Request.ContentType?
2. Debug log z Indy będzie wielce pomocny + porównanie z
outputem Fiddler'a, jeżeli Kolega nie zna narzędzia,
to radzę się zapoznać. Wklej Debug Log'a w miare
możliwosći, zanonimizuj dane logowania.
P.S. Trudno sprawdzać takie coś bez danych logowania,
a jestem leniwy na tyle, że się rejestrował nie będę ;-).
--
Pozdrawiam,
Łukasz 'Maly' Ostrowski. http://l3v.eu/
Technical Details
Message-ID:
<w1qptqtkubrc$.bv7tb1we2umw.dlg@40tude.net>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mailReferences:
<ing8m9$2aok$1@news.mm.pl>Show Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!news.gazeta.pl!newsfeed.pionier.net.pl!news.dialog.net.pl!not-for-mail From: Łukasz 'Maly' Ostrowski <maly@USUNnemo.pl> Newsgroups: pl.comp.lang.pascal Subject: Re: Logowanie na stronie http, błąd 301 Date: Wed, 6 Apr 2011 17:02:43 +0200 Organization: Acme Lines: 53 Message-ID: <w1qptqtkubrc$.bv7tb1we2umw.dlg@40tude.net> References: <ing8m9$2aok$1@news.mm.pl> NNTP-Posting-Host: static-78-9-71-129.ssp.dialog.net.pl Mime-Version: 1.0 X-Trace: news.dialog.net.pl 1302102168 4201 78.9.71.129 (6 Apr 2011 15:02:48 GMT) X-Complaints-To: abuse@dialog.net.pl NNTP-Posting-Date: Wed, 6 Apr 2011 15:02:48 +0000 (UTC) User-Agent: 40tude_Dialog/2.0.15.1 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit