Vk api

[4ipolino]

Доброго времени суток.

Возникла проблема с Vk api загрузкой документов

  try
      secret:=sLabel4.Caption;
      XMLDocument1.XML.Text:=IdHTTP1.Get(
                          'https://api.vk.com/method/docs.getUploadServer.xml?&access_token=' +
                          secret);
      XMLDocument1.Active:=true;

      s:=XMLDocument1.DocumentElement.ChildNodes['upload_url'].Text;
  except
      ShowMessage('Не удалось получить адрес для загрузки файла!');
      Exit;
  end;

  try
      MultiPart := TIdMultiPartFormDataStream.Create;
      Stream:= TStringStream.Create;
      MultiPart.AddFile('file',PathFile, 'image/pjpeg');
      IdHTTP1.Post(s, MultiPart, Stream);
      Memo1.Lines.text:=Stream.DataString;
      if IdHttp1.ResponseCode <> 200 then Exception.Create('');
  except
      ShowMessage('Could not upload file');
      exit;
  end;
  s:=copy(memo1.Text,pos('{"file":"',Memo1.text)+9,pos('|"}',Memo1.Text) - pos('{"file":"',Memo1.text) - 9);
  XMLDocument1.XML.Text:=IdHTTP1.Get(
                          'https://api.vk.com/method/docs.save.xml?' +
                          '&file=' + s +
                          '&access_token=' + secret
                          );
        XMLDocument1.Active:=true;
       memo1.text:=XMLDocument1.XML.Text;
  if (XMLDocument1.DocumentElement.CloneNode(false).NodeName = 'error') then
      begin
          ShowMessage('Clould not save uploaded document');
          exit;
      end;

XMLDocument1.DocumentElement.ChildN odes['upload_url'].Text;
не возвращает адрес для загрузки файла, каждый раз получаю ShowMessage('Не удалось получить адрес для загрузки файла!');


подскажите что может быть не так, или подкиньте работающею процедуру загрузки документа

буду благодарен за ответы

[Человек_Борща]

подскажите что может быть не так

Наверняка дуров что-то поменял в VK API и теперь ссылки живут в другом месте.
Открываем VK.com переплываем в раздел разработчиков, там ищем инфу.

[4ipolino]

Сообщение от Человек_Борща

Наверняка дуров что-то поменял в VK API и теперь ссылки живут в другом месте.
Открываем VK.com переплываем в раздел разработчиков, там ищем инфу.

перед постом думаете не хватило мозгов посмотреть документацию?

[Человек_Борща]

Тогда попробуйте получать ответ в JSON.

[4ipolino]

куплю реализацию данных процедур (загрузки файла в вк)