Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 29.08.2013, 18:33   #1
4ipolino
 
Регистрация: 21.05.2011
Сообщений: 7
Репутация: 10
По умолчанию Vk api

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

Возникла проблема с 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('Не удалось получить адрес для загрузки файла!');


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

буду благодарен за ответы
4ipolino вне форума   Ответить с цитированием
Старый 29.08.2013, 18:40   #2
Человек_Борща
Модератор
Заслуженный модератор
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Адрес: Республика Беларусь, г. Минск
Сообщений: 11,478
Репутация: 2769
По умолчанию

Цитата:
подскажите что может быть не так
Наверняка дуров что-то поменял в VK API и теперь ссылки живут в другом месте.
Открываем VK.com переплываем в раздел разработчиков, там ищем инфу.
Человек_Борща вне форума   Ответить с цитированием
Старый 29.08.2013, 18:47   #3
4ipolino
 
Регистрация: 21.05.2011
Сообщений: 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Наверняка дуров что-то поменял в VK API и теперь ссылки живут в другом месте.
Открываем VK.com переплываем в раздел разработчиков, там ищем инфу.
перед постом думаете не хватило мозгов посмотреть документацию?
4ipolino вне форума   Ответить с цитированием
Старый 29.08.2013, 19:37   #4
Человек_Борща
Модератор
Заслуженный модератор
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Адрес: Республика Беларусь, г. Минск
Сообщений: 11,478
Репутация: 2769
По умолчанию

Тогда попробуйте получать ответ в JSON.
Человек_Борща вне форума   Ответить с цитированием
Старый 31.08.2013, 17:13   #5
4ipolino
 
Регистрация: 21.05.2011
Сообщений: 7
Репутация: 10
По умолчанию

куплю реализацию данных процедур (загрузки файла в вк)
4ipolino вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Vk.com api 4ipolino Работа с сетью в Delphi 3 24.05.2013 19:56
API Taup Win Api 3 07.12.2012 09:36
API TotKtoNado Win Api 8 05.08.2011 07:06
Cи++ API Taracan Фриланс 24 24.07.2011 15:36
VK API Furyon JavaScript, Ajax 0 15.05.2011 17:44


04:47.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru