🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: pl.comp.lang.pascal
Article #93173

Re: Logowanie na stronie http, błąd 301

#93173
From: Łukasz 'Maly' Ostrowski
Date: Wed, 06 Apr 2011 15:02
53 lines
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-mail
References: <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