Ваш ключ: необходима авторизация | MyProxy - бесплатный обменник валидных прокси между пользователями форума.

[Delphi] Учимся парсить | Token

Тема в разделе Delphi, создана пользователем 7.UP, 18 июн 2016.

Войдите для ответа
  1. 7.UP Заблокирован

    7.UP
    Статус:
    Вне сети
    Сообщения:
    72
    Симпатии:
    21
    Регистрация:
    06.11.15
    Привет дорогой пользователь
    Сейчас я тебя научу - парсить информацию с сайтов)
    [Нам нужна библиотека - Synapse]
    *******************************
    Что нам нужно?
    1.Delphi, немного знаний и всё)
    2.Сайт с которого будем парсить)
    ************************
    Добавим в uses HTTPSend,ssl_openssl;
    Добавляем кнопку + sMemo на форму)
    Вставляем функцию парса:

    её нужно вставить ниже этой строчки)

    implementation

    {$R *.dfm}

    *********************
    function Pars(T_, ForS, _T: string): string;
    var
    a, b: integer;
    begin
    Result := '';
    if (T_ = '') or (ForS = '') or (_T = '') then Exit;
    a := Pos(T_, ForS);
    if a = 0 then Exit
    else a := a + Length(T_);
    
    ForS := Copy(ForS, a, Length(ForS) - a + 1);
    b := Pos(_T, ForS);
    if b > 0 then Result := Copy(ForS, 1, b - 1);
    end;
    ***********************

    3.Кликаем на sButton [Button] 2 раза
    Должно открыться окошко.


    procedure sButton1Click(Sender: TObject);
    var
    HTTP: THTTPSend;
    HTML : TStringList;
    begin
    HTTP:= THTTPSend.Create;
    HTML := TStringList.Create;
    //Например взял | WarFrame :)
    if HTTP.HTTPMethod('GET','https://warframe.com/ru') then
    begin
    HTML.LoadFromStream(HTTP.Document);
    info :=Pars('"theme_token":"',Utf8ToAnsi(html.Text),'","'); // 'Откуда' и 'До куда'
    sMemo1.Lines.Add(info);
    end;
    
    //Ещё нужно добавить в global var : info : string; вот тут
    end;
    var
    Form5: TForm5;
    info : string;
     
    18 июн 2016 #1
    Последнее редактирование: 18 июн 2016
    Kennyx, mstr, WINE и ещё 1-му нравится это.
  2. WingsNight Заблокирован

    WingsNight
    Статус:
    Вне сети
    Сообщения:
    21
    Симпатии:
    46
    Регистрация:
    17.06.16
    Авторизация socialclub.rockstargames
     
    19 июн 2016 #2
    Последнее редактирование: 19 июн 2016
  3. 7.UP Заблокирован

    7.UP
    Статус:
    Вне сети
    Сообщения:
    72
    Симпатии:
    21
    Регистрация:
    06.11.15
    не у всех сайтов cloudflare многие сайты через токины
     
    19 июн 2016 #3
  4. 7.UP Заблокирован

    7.UP
    Статус:
    Вне сети
    Сообщения:
    72
    Симпатии:
    21
    Регистрация:
    06.11.15
    Как оно вообще у тебя работает ?
         data:=tstringstream.create;
         data.WriteString('&login='+login+'&password='+pass+'__RequestVerificationToken='+token);
         http.Document.LoadFromStream(data);
         scr:=tstringlist.Create;
         http.MimeType:='application/x-www-form-urlencoded';
         if http.HTTPMethod('POST','https://ru.socialclub.rockstargames.com/profile/signin') then begin
         scr.LoadFromStream(http.Document);
         if pos('Location: https://socialclub.rockstargames.com/member/signin/', http.headers.text)<>0 then
        begin http.Clear;
         if http.HTTPMethod('GET', 'https://socialclub.rockstargames.com/member/signin/signin') then begin
         if http.ResultCode=200 then
         begin
         scr.LoadFromStream(http.Document);
         scr.text:=ansitoutf8(scr.text);
         Token:=Pars('__RequestVerificationToken" type="hidden" value="', scr.Text , '"');
    
         end;
    
     
    21 июн 2016 #4
    Последнее редактирование: 21 июн 2016
    Zoren228 и Hangman666 нравится это.
Загрузка...
Похожие темы
  1. Грач
    Ответов:
    2
    Просмотров:
    463
  2. 7.UP
    Ответов:
    2
    Просмотров:
    203
  3. Грач
    Ответов:
    0
    Просмотров:
    172
  4. MGMT
    Ответов:
    0
    Просмотров:
    534
Top