Страницы: 1
RSS
Отправка изображения на сайт через POST
 
Добрый день.
Пытаюсь загрузить картинку на vk.com с помощью VBA. описание контакта :
1. С помощью метода photos.getUploadServer приложение узнает http-адрес для загрузки фотографий в зависимости от альбома, в который их необходимо загрузить.
2. Приложение формирует POST-запрос на полученный адрес.
Запрос должен содержать поля file1-file5, которые содержат файлы с изображениями (JPG, PNG, BMP или GIF).

В ответ приложение получает следующие данные в формате JSON:{"server": '1', "photos_list": '2,3,4', "album_id": '5', "hash": '12345abcde'}

Обратите внимание, что ответ сервера всегда приходит в формате JSON, а поля server, photos_list, album_id и hash в нем содержат строки, внутренний формат которых может изменяться со временем. В частности, строка photos_list может содержать другой json-объект, который не следует декодировать, разбирать на части или иным образом модифицировать.
3. С помощью метода photos.save приложение передает серверу полученные данные (server, photos_list, album_id и hash) и получает данные о загруженных изображениях.

И на втором пункте я туплю. картинку беру с сайта, в бинарном виде
Код
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP";)'
oXMLHTTP.Open "GET", "[URL=http://shop.april-group.ru/filesext/photo/foto1c/000021098.jpg]http://shop.april-group.ru/filesext/photo/foto1c/000021098.jpg[/URL]", 0 '
oXMLHTTP.send
Set oADOStream = CreateObject("ADODB.Stream";)
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
GetFilere = oXMLHTTP.responseBody

'потом пытаюсь ее отправить ,Upload_URL_post ,беру из ответа первого этапа
'Post the file data
    Set XMLHTTP = CreateObject("Msxml2.XMLHTTP.4.0";)
   
    XMLHTTP.Open "Put", Upload_URL_post, False
'    xmlhttp.setRequestHeader "Content-Length", adoStream.Size
    XMLHTTP.setRequestHeader "Content-Type", "content=multipart/form-data"
   XMLHTTP.send "[B]file1="[/B]oXMLHTTP.responseBody

запрос проходит без ошибки , но картинка не загружается, в ответ получаю {"server":621920,"photos_list":"[]","aid":214749192,"hash":"b90adbd3726bd4bec243ff0db9aa3fca","gid":92833340}. Уже нет светлых идей что делать, прошу вашей помощь.

Заранее спасибо,
С уважением Влад
Страницы: 1
Наверх