Delphi еще немного помощи с авторизацией

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Anifuck, 6 Sep 2013.

  1. Anifuck

    Anifuck Member

    Joined:
    12 Nov 2010
    Messages:
    95
    Likes Received:
    7
    Reputations:
    0
    не получается авторизация на бет сити( проверить автаризован или нет можно тут http://betcityru.com/history.php
    Code:
    var
    PostData:TStringList;
    S:string;
    begin
    PostData:=TStringList.Create;
    PostData.Clear;
    PostData.Add('login=g 6720168');
    PostData.Add('pwd=793542');
    PostData.Add('x=2');
    PostData.Add('y=7');
    IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
    s:=IdHTTP1.Post('http://betcityru.com/top.php',PostData);
    //s:=IdHTTP1.get('http://betcityru.com/history.php');
    memo1.Lines.Add(s);
    PostData.Free;
    end;
    
     
  2. 1n0y

    1n0y Active Member

    Joined:
    9 May 2009
    Messages:
    268
    Likes Received:
    266
    Reputations:
    2
    а теперь загугли idhttp как подключить куки
     
  3. Anifuck

    Anifuck Member

    Joined:
    12 Nov 2010
    Messages:
    95
    Likes Received:
    7
    Reputations:
    0
    Code:
    var
    S,l,p:string;
    PostData:TStringList;
    begin
    PostData:=TStringList.Create;
    PostData.Clear;
    PostData.Add('login=g 6720168');
    PostData.Add('pass=793542');
    IdHTTP1.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)';
    idhttp1.AllowCookies:=true;
    idhttp1.HandleRedirects:=true;
    s:=IdHTTP1.Post('http://wap.betcityru.com/login.php',PostData);
    memo1.Lines.Add(s);
    PostData.Free;
    end;
    подключил но не получается все же...
     
  4. 1n0y

    1n0y Active Member

    Joined:
    9 May 2009
    Messages:
    268
    Likes Received:
    266
    Reputations:
    2
    еще нужно юзать TIdCookieManager. подключать его както так:
    idhttp1.cookeymanager:=IdCookieManager1;
     
  5. antichar

    antichar New Member

    Joined:
    11 Sep 2013
    Messages:
    34
    Likes Received:
    2
    Reputations:
    0
    Чтобы не гадать, что не получается и нужны ли куки или нет, надо использовать сниффер.
     
    1 person likes this.
  6. TopRus

    TopRus New Member

    Joined:
    15 May 2011
    Messages:
    8
    Likes Received:
    0
    Reputations:
    0
    Чего не получаеться?
    входит же всё..

    в мемо у тя текс с главной страницы..
    где в вверху..
    Номер счёта: 4088013 (Выйти)
    Баланс: 14635.30 руб
     
Loading...