Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

Загрузка документа через VK API

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы
Старый 06.08.2014, 04:38   #1
 Разведчик
Аватар для RamDigga
 
RamDigga неизвестен в этих краяхRamDigga неизвестен в этих краях
Регистрация: 27.10.2012
Сообщений: 24
Популярность: -183
Сказал(а) спасибо: 35
Поблагодарили 23 раз(а) в 14 сообщениях
Отправить сообщение для RamDigga с помощью Skype™
 
По умолчанию Загрузка документа через VK API

Загружаю:

Код:
FormData := TIdMultiPartFormDataStream.Create;
   FormData.AddFormField('fileldname', 'value');
   FormData.AddFile('file', 'log.txt', 'multipart/form-data');
   zapros:=HTTP.Post('https://api.vk.com/method/docs.getUploadServer?access_token=******',FormData);
   FormData.Free;
   Edit1.Text:=zapros;

Получаю ответ :

Цитата:
{"response":{"upload_url":"http:\/\/cs539618.vk.com\/upload.php?act=add_doc&mid=145530528&aid=0&gid=0&h ash=7156cb 8bec61a71516e0ea5a15c60b95&rhash=9e9217690ebadc57e dcbcb73f66 be3cf&api=1"}}


Сохраняю:

Код:
zapros:='https://api.vk.com/method/docs.save';
log:=TstringList.Create;
log.Add('file='+Edit1.Text);
log.Add('title=log');
log.Add('tags=log');
log.Add('access_token=******');
StrPage:=HTTP.Post(zapros,log);
memo1.text:=StrPage;

Получаю ответ:

Цитата:
{"error":{"error_code":5,"error_msg":"User authorization failed: no access_token passed.","request_params":[{"key":"oauth","value":"1"},{"key":"method","value ":"docs.sa ve"}]}}


Я уже понятия не имею что делать... Помогите Please.

P.S.
Загрузка: [Ссылки могут видеть только зарегистрированные пользователи. ]
Сохранение: [Ссылки могут видеть только зарегистрированные пользователи. ]

Добавлено через 10 часов 25 минут
Они чутка приврали...
Загрузка и сохранение происходит в 3 шага, а не в 2...

Код:
sil:=http.Get('https://api.vk.com/method/docs.getUploadServer.xml?access_token=******');
sil:=ParseStr(sil, '<upload_url>', '</upload_url>');
sil:=StringReplace(sil, 'amp;', '', [rfReplaceAll]);
FormData := TIdMultiPartFormDataStream.Create;
FormData.AddFile('file', 'D:\log.txt', 'text/plain');
load:=HTTP.Post(sil,FormData);
FormData.Free;
Load:=ParseStr(load, '{"file":"', '"}');
http.Get('https://api.vk.com/method/docs.save?file='+load+'&title=godlal&tags=godnob&access_key=3&access_token=******');
Щас всё норм работает, только вот не понятно как поменять доступ к файлу ? Всмысле что бы был не личный документ, а что бы все смогли его найти.

Добавлено через 20 часов 14 минут
Знает кто как поменять тип файла при сохранении ? (Личный документ, Учебный документ, Книга, Другой документ)

Последний раз редактировалось RamDigga; 07.08.2014 в 00:52. Причина: Добавлено сообщение
  Ответить с цитированием
Пользователь сказал cпасибо:
NebesaBag (06.08.2014)
Ответ


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

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

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

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Программа] Загрузка чита через asi c любым кол-вом dll из любого места orion319 Прочий софт для Counter-Strike 7 10.03.2014 12:15
[Помогите!] загрузка пб pen-oleg2011 Общение и обсуждение, архив Point Blank 1 16.03.2012 12:30
Печать документа MaximusRS Вопросы и ответы, обсуждения 3 07.12.2011 14:26

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 08:32.

Пишите нам: forum@zhyk.ru
Copyright © 2025 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net