Передайте файлы на адрес upload_url, полученный в предыдущем пункте, сформировав POST-запрос с полями file1-file5. Эти поля должны содержать изображения в формате multipart/form-data. После успешной загрузки сервер возвращает в ответе JSON-объект с полями server, photos_list, hash, aid Как можно это реализовать?
{global var} Token, UserID, Otvet, Response,ID_ALBUM, UPLOAD_URL, VK_SERVER, VK_PHOTOS_LIST, VK_HASH, VK_AID: string; FormData := TIdMultiPartFormDataStream.Create; FileName_S := form1.EDIT_PATH.Text + Form1.PREFIX.Text + IntToStr(0) + '.JPG'; // путь картинки FormData.AddFile('file1', FileName_S , 'image/jpeg' ); RESPONSE:= IDHTTP1.Post(UPLOAD_URL, FORMDATA); SMEMO1.Text := RESPONSE; FormData.Free; VK_SERVER := SO(smemo1.text).S['server']; VK_PHOTOS_LIST := SO(smemo1.text).S['photos_list']; VK_AID := SO(smemo1.text).S['aid']; VK_HASH := SO(smemo1.text).S['hash']; smemo1.Clear; Response := send('GET','https://api.vk.com/method/photos.save?album_id='+ ID_ALBUM +'&server=' + VK_SERVER + '&photos_list=' + VK_PHOTOS_LIST +'&hash=' + VK_HASH +'&' + token+'&v=5.87'); sMemo1.Text := MyUtf8ToAnsi(Response);