JSON kod parselleme

S.a Arkadaşlar ufacık bir sorunum var yardımcı olurmusunuz
Aşağıdaki kodun (delphi dilinde)


{"status":"ok","id":"pSBYjYi1-Zo","title":"Leyla ile Mecnun En Guzel Sarkilari","thumbnail_url":"http:\/\/i.ytimg.com\/vi\/pSBYjYi1-Zo\/default.jpg","length":1140,"progress":0,"downloadU rl":"http:\/\/cb4db047.aclst.com\/dl.php\/pSBYjYi1-Zo\/Leyla%20ile%20Mecnun%20En%20Guzel%20Sarkilari.mp3? video_id=pSBYjYi1-Zo&t=cFNCWWpZaTEtWm8tODM5MzgyNTQ2LTEzNTUxNzMzMjgtN DU4MzYz&exp=13-12-2012&","ready":1,"artist":"Leyla ile Mecnun En Guzel Sarkilari","song":""}


Şurasını


http:\/\/cb4db047.aclst.com\/dl.php\/pSBYjYi1-Zo\/Leyla%20ile%20Mecnun%20En%20Guzel%20Sarkilari.mp3? video_id=pSBYjYi1-Zo&t=cFNCWWpZaTEtWm8tODM5MzgyNTQ2LTEzNTUxNzMzMjgtN DU4MzYz&exp=13-12-2012&


nasıl parse edebilirim teşekurler.

merhaba,

hangi programlama dilinde parse etmek istiyorsunuz?

saygilar.

hocam pardon yazmayı unutmuşum delphi dili.

merhaba,

teamviewer id pass PM gonderin baglanip yardimci olayim.

saygilar.

şöyle bir çözum buldum sağol hocam ilgilendigin için

memo1.text:=idhttp1.get('http://www.**********.com/api/request.php?id='+ListBox2.Items[ListBox2.ItemIndex]+'&quality=128');
memo1.text:=copy(memo1.text,pos('"downloadUrl":"', memo1.text)+15);
memo1.text:=copy(memo1.text,1,pos('","',memo1.text )-1);