Отправить сообщение Вконтакте API

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by Farcar, 10 Dec 2011.

  1. Farcar

    Farcar Banned

    Joined:
    6 Nov 2011
    Messages:
    55
    Likes Received:
    0
    Reputations:
    0
    Хочу отправить сообщение Вконтакте через API

    Авторизуюсь таким кодом:

    PHP:
    webbrowser1.navigate('http://api.vk.com/oauth/authorize?client_id=2712421&redirect_uri=http://api.vk.com/blank.html&response_type=token&display=wap');
    затем вытягиваю оттуда access_token, и отправляю сообщение таким кодом:

    PHP:
    function UrlEncode(const sAnsiString): string;
    var
      
    Iinteger;
    begin
      Result 
    := '';
      for 
    := 1 to Length(S) do
        case 
    S[iof
          
    '%'' ''&''=''@''.'#13, #10, #128..#255: Result := Result + '%'
            
    IntToHex(Ord(S[i]), 2);
        else
          
    Result := Result S[i];
        
    end;
    end;

    procedure TForm1.Button1Click(SenderTObject);
    begin
    memo1
    .Text:=idhttp1.Get('https://api.vkontakte.ru/method/messages.send.JSON?uid='+edit1.text+'&message='+URLEncode(ansitoutf8(edit2.Text)))+'&access_token='+edit3.Text;
    end;

    В ответ получаю:

    PHP:
    User authorization failedno access_token passed.
    ПОЧЕМУ??? Подскажите что сделал не правильно?
     
  2. 090808

    090808 Member

    Joined:
    15 Mar 2009
    Messages:
    171
    Likes Received:
    46
    Reputations:
    10
    Всё, начиная от TWebBrowser...