Сохранение кук для контакта

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by scroyler, 2 Mar 2012.

  1. scroyler

    scroyler Banned

    Joined:
    23 Oct 2011
    Messages:
    24
    Likes Received:
    0
    Reputations:
    0
    здравствуйте.
    я авторизируюсь вк. с помощью регэкспр.

    Code:
    	Enter:=TStringList.Create;
    	Enter.add('act=login');
    	Enter.Add('al_test=3');
    	Enter.Add('email='+edit1.text);
        Enter.Add('pass='+edit2.Text);
        uri:=TIdUri.Create('http://vkontakte.ru');
        idhttp1.RedirectMaximum:=2;
        reg:=TRegExpr.create;
        reg.Expression:='[0-9a-z]{60}';
        temp:=idhttp1.post('http://login.vk.com', Enter);
        temp:=idhttp1.response.RawHeaders.GetText;
        reg.Exec(temp);
        if reg.Match[0]<>'' then
    		begin
    			application.processmessages ;
    			idcookiemanager1.AddCookie('remixsid='+reg.Match[0],'http://vk.com/');
    			messageDlg('yes', mtInformation, [mbOk], 0);
    		end
        else
        	begin
          		messageDlg('no', mtInformation, [mbOk], 0);
        	end;
    end;
    это на одной кнопке. все пашет норм!
    потом на другой кнопки есть код
    Code:
    memo1.text:=idhttp1.get('HTTP://vk.com');
    смотрю хтмл а там он не авторизирован.
    что делать? надо куки поставить? подскажите плз
     
  2. cheater_man

    cheater_man Member

    Joined:
    13 Nov 2009
    Messages:
    651
    Likes Received:
    44
    Reputations:
    7
    используй wininet
    пс при использовании wininet, я забыл что такое куки!
     
  3. scroyler

    scroyler Banned

    Joined:
    23 Oct 2011
    Messages:
    24
    Likes Received:
    0
    Reputations:
    0
    можешь на примере подсказать?
     
  4. ChymeNik

    ChymeNik Member

    Joined:
    31 Aug 2010
    Messages:
    30
    Likes Received:
    7
    Reputations:
    9
    uri:=TIdUri.Create('http://vkontakte.ru');
    memo1.text:=idhttp1.get('HTTP://vk.com');

    Вход на одной версии сайта а проверка на другой.