Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.11.2013, 18:07   #1
Rakim4ik
Пользователь
 
Регистрация: 04.12.2012
Сообщений: 26
По умолчанию Загрузить изображение в вк, с помощью API

Пытаюсь сделать это в 3 шага.

1 - С помощью метода photos.getWallUploadServer узнаю http-адрес для загрузки фотографии:

PHP код:
silurl:=http.Get('https://api.vk.com/method/photos.getWallUploadServer.xml?group_id=*****&v=5.3&access_token=************');
silurl:=StringReplace(silurl'amp;''', [rfReplaceAll]);
url:=ParseStr(silurl'<upload_url>''</upload_url>'); 
2 - Формирую POST-запрос на полученный адрес:

PHP код:
data := Tidmultipartformdatastream.Create;
data.AddFile('file1''D:\1.jpg''image/jpeg');
infoimg:=http.post(url,data); 
3 - Сохраняю фотографию после успешной загрузки на URI



PHP код:
server:=ParseStr(infoimg'"server":'',"photo":"');
photo:=ParseStr(infoimg'"photo":"''","hash"');
hash:=ParseStr(infoimg'"hash":"''"}');
http.Get('https://api.vk.com/method/photos.saveWallPhoto?server='+server+'&photo='+photo+'&hash='+hash+'&group_id=*****'); 

3-ий шаг не получается. Проблема на сколько я понял из-за 2-го. Потому что ответ параметра photo километровый и 3-ый шаг просто отказывается его принимать.
Ну это всего лишь мои догадки. Где я мог накосячить ? Помогите пожалуйста

P.S. Вот что приходит в параметре photo, после 2-го шага:

PHP код:
"photo":"[{\"photo\":\"d38e5353b3:x\",\"sizes\":[[\"s\",\"613518528\",\"2903\",\"PalQefUeB10\",75,75],[\"m\",\"613518528\",\"2904\",\"vck5nrVz1rw\",130,130],[\"x\",\"613518528\",\"2905\",\"fY70ICF9nl0\",500,500],[\"o\",\"613518528\",\"2906\",\"FxMI-kTo2HQ\",130,130],[\"p\",\"613518528\",\"2907\",\"Ny6DeXY-FsY\",200,200],[\"q\",\"613518528\",\"2908\",\"grqc94dnKp4\",320,320],[\"r\",\"613518528\",\"2909\",\"S6bUJh047mI\",500,500]],\"kid\":\"8c6f6ca1177753309b315b0e636680b0\"}]" 

Последний раз редактировалось Rakim4ik; 19.11.2013 в 18:12.
Rakim4ik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как загрузить изображение в нейросеть? andrejf92 Общие вопросы C/C++ 6 05.02.2017 17:21
Как прочитать и загрузить в paintBox изображение? NickForm Мультимедиа в Delphi 4 05.12.2011 12:31
Загрузить изображение zont_11 Microsoft Office Excel 3 15.02.2011 12:24
Загрузить изображение и текст larin1974 Помощь студентам 2 21.12.2009 17:17
загрузить файл на сервер с помощью ftp andrey4623 PHP 3 29.06.2008 20:29