idhttp1 access token (решение)

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by udman, 12 Jan 2012.

  1. udman

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

    Joined:
    21 Apr 2009
    Messages:
    224
    Likes Received:
    105
    Reputations:
    25
    Мож кому пригодится)

    Вобщем многие пытались добыть аксес токен через
    idhttp1.URL.URI
    в результатет получали
    http://api.vkontakte.ru/blank.html
    а все что после # было тяжело достать или невозможно

    чуть подолбив idhttp1 сделал такую штуку
    открываем idhttp1

    PHP:

    После
        FURI
    TIdURI;
    Добавляем
        FRed
    :String;


    После 
        property URL
    TIdURI read FURI;
    Добавляем
        property Red
    String read FRed;


    После
        Inc
    (FHTTP.FRedirectCount);
    Добавляем
        FHTTP
    .FRed:=FHTTP.FRed+LLocation+#13#10;
    Ну и собственно теперь в любом куске кода можно вывести весь список редиков

    Memo1.Lines.Add(idhttp1.Red); :)