Делфи вопрос

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by aydar, 25 May 2010.

  1. aydar

    aydar Member

    Joined:
    12 Nov 2009
    Messages:
    259
    Likes Received:
    6
    Reputations:
    -2
    Немогу авторизоваться на сайте ucoz

    Code:
    cod := idHttp1.Get('http://sacred2-zone.ru/');
    rndResult:= copy (cod,pos('input type="hidden" name="rnd" value="',cod)+38,3);
    
       params:=tstringlist.create;
       params.Add('user=test');
       params.Add('password=Test');
       params.Add('rem=1');
       params.Add('a=2');
       params.Add('ajax=1');
       params.Add('rnd=' + rndResult);
       cod:=IdHTTP1.Post('http://sacred2-zone.ru/', params);
       cod:=memo1.Text;
         if pos ('Вы вошли как',cod)<>0 then showmessage ('ok');
    
        params.Free;
    может куки надо сохранять, если да то как?
     
    #1 aydar, 25 May 2010
    Last edited: 25 May 2010
  2. RedFern.89

    RedFern.89 Member

    Joined:
    20 Jan 2010
    Messages:
    557
    Likes Received:
    45
    Reputations:
    0
    надо, idHTTP1.AllowCookies := True;
     
  3. aydar

    aydar Member

    Joined:
    12 Nov 2009
    Messages:
    259
    Likes Received:
    6
    Reputations:
    -2
    Куки были вкл, все равно не получаеться

     
  4. aydar

    aydar Member

    Joined:
    12 Nov 2009
    Messages:
    259
    Likes Received:
    6
    Reputations:
    -2
    все проблема решена, всем спасибо
     
  5. lamer811

    lamer811 Elder - Старейшина

    Joined:
    8 Nov 2009
    Messages:
    132
    Likes Received:
    39
    Reputations:
    12
    ТС выложи пожалуйста решение своей проблемы
     
  6. aydar

    aydar Member

    Joined:
    12 Nov 2009
    Messages:
    259
    Likes Received:
    6
    Reputations:
    -2
    Не откажусь от +
     
    #6 aydar, 25 May 2010
    Last edited: 25 May 2010