VK API и Delphi

[theLunik]

Если ещё кому актуально.
Всё товарищи, к ночи решил вопрос - во всей сией строке

[{\"photo\":\"1e5c5663ab:x\",\"sizes \ ":[[\"s\",\"10826869\",\"a1e\",\"DMT QuI gCsZU\",75,62],[\"m\",\"10826869\",\"a1f\",\"xpZ jbG Ulb2U\",130,108],[\"x\",\"10826869\",\"a20\",\"zns CSf 6jwgc\",180,150],[\"o\",\"10826869\",\"a21\",\"E84 Xn_ Pkwxw\",130,108],[\"p\",\"10826869\",\"a22\",\"SQR Juu FFGUk\",180,150],[\"q\",\"10826869\",\"a23\",\"J1v afC Z4f7o\",180,150],[\"r\",\"10826869\",\"a24\",\"jSw q2P tv-tg\",180,150]],\"kid\":\"70c5e27bd59a545eacbbde 47 3d60713b\"}]

удаляем слэши и её подставляем куда надо..

[Ruslasy]

Зачем JSON ? Пользуйся XML.

[Daniil-den]

Доброе время суток.
Никак у меня не получается получить значение “photo” для сохранения фото на стене
Вывод или из серии
{"server":402625,"photo":"[{\"photo\":\"a41bf70088:x\",\"sizes \":[[\"s\",\"402625418\",\"28ed\",\"xgsx sXYypf8\",75,23],[\"m\",\"402625418\",\"28ee\",\"awfu M3bU7C4\",109,34],[\"x\",\"402625418\",\"28ef\",\"8q8y uPE1x1g\",109,34],[\"o\",\"402625418\",\"28f0\",\"yMgZ LiBuVvk\",109,34],[\"p\",\"402625418\",\"28f1\",\"9vRh lnIYvS4\",109,34],[\"q\",\"402625418\",\"28f2\",\"zuPJ W5N1NCM\",109,34],[\"r\",\"402625418\",\"28f3\",\"McnX FMkJw0E\",109,34]],\"kid\":\"3ffaa09e661bb640c30f8007 0d800059\"}]","hash":"b61f23a193b8828fdd127cc11 12149ea"}
Или
{"server":402625,"photo":"[]","hash":"f151dd5194d8013e169687e2e 2e88f57"}
В мануале «вконтакте» написано, что должно выдавать в формате {"server": '1234', "photos": '1234', "hash": '12345abcde'}, но поле photo у меня пустое!!! Что делаю я не так??? Может фото не так посылаю??
procedure TForm1.Button1Click(Sender: TObject);
Var
photo: TIdMultiPartFormDataStream;
saa, s, main: string;
begin
…
XMLDocument.LoadFromFile('https://api.vk.com/method/photos.getWallUploadServer.xml?uid& access_token='+tmp);
s:=VarToStr(XMLDocument.DocumentEle ment.ChildValues['upload_url']);
photo:= TIdMultiPartFormDataStream.Create;
photo.AddFile('photo','D:\avz\files .png','image/png');
saa:= IdHTTP1.Post(s, photo) ;
a:=IdHTTP1.Get(s);
Memo1.Lines.Add(a);
Memo1.Lines.Add(saa);
End;
Ну мемо понятно что используя для вывода результата!
Заранее спасибо!!!!