|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.11.2010, 21:38 | #1 |
Новичок
Джуниор
Регистрация: 07.11.2010
Сообщений: 17
|
Ссылка на mp3 вконтакта
Народ как формируется запрос на поиск музыки vkontakte, а то чёт понять не могу,и как результат вывести в лист-бокс?
|
12.11.2010, 21:53 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
А ты достань сниффер, натрави его и посмотри как.
I'm learning to live...
|
13.11.2010, 13:13 | #3 |
Новичок
Джуниор
Регистрация: 07.11.2010
Сообщений: 17
|
Код:
|
13.11.2010, 13:15 | #4 |
Старожил
Регистрация: 28.01.2009
Сообщений: 21,000
|
делаем запрос на адрес, и далее парси(кстати там может подзапрос есть, уточни)
ЗЫ: кодом помочь не могу, я не дома...а тут ни компилятора, ни снифера... Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел. Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите. |
13.11.2010, 16:51 | #5 |
Новичок
Джуниор
Регистрация: 07.11.2010
Сообщений: 17
|
Да ладно буду пробовать, но если что когда дома будешь помоги мне написать
|
17.11.2010, 16:26 | #6 |
Новичок
Джуниор
Регистрация: 07.11.2010
Сообщений: 17
|
Блин нифига не вышло плиз помогите как это сделать
|
15.12.2010, 02:12 | #7 |
Регистрация: 15.12.2010
Сообщений: 5
|
Парсинг вконтакте
var data:tstringlist;
PageProfile:string; error:boolean; begin IdHTTP1.AllowCookies:=true; IdHTTP1.HandleRedirects:=true; data:=tstringlist.create; data.Add('email=почта@почта'); // логин для авторизации data.Add('pass=вбей_свой_пароль'); // пароль для авторизации data.Add('expire='); data.Add('vk='); error:=false; try PageProfile:=IdHTTP1.Post('http://login.vk.com/?act=login', data); except error:=true; end; if not(error) then begin data.Clear; data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56)); data.Add('op=slogin'); data.Add('redirect=1'); data.Add('expire=0'); data.Add('to='); IdHTTP1.HandleRedirects:=true; try PageProfile:=IdHTTP1.Post('http://vkontakte.ru/login.php', data); memo1.text:=idhttp1.get('http://vkontakte.ru/audio.php'); except end; begin Memo1.Lines.Add('Авторизация удалась'); end; end else Memo1.Lines.Add('Авторизация не удалась'); Data.Free; end; Не могу понять что сложного!
Достичь можно любой цели! Главное правильно мыслить!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Клиент Вконтакта на Java | Selince | Общие вопросы по Java, Java SE, Kotlin | 1 | 10.10.2009 22:49 |
Ссылка | joojle | Microsoft Office Excel | 3 | 26.05.2009 14:25 |
MediaPlayer - как сделать последовательное воспроизведение mp3 файлов (именно mp3) | Kashp | Компоненты Delphi | 13 | 28.09.2007 08:38 |