|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.11.2010, 16:57 | #1 |
Новичок
Джуниор
Регистрация: 07.11.2010
Сообщений: 17
|
Поиск музыки vkontakte
Существует вопрос как искать музыку через программу, что бы результат выводился в листбокс. Вот я кое-что нарыл , но как это пристроить к программе с одним едитам кнопке и листбоксам?
procedure Audio_Search(const Query: string; ATarget: TStrings); var Req : string; Sign : string; Host : string; AXML : TStringList; AQ : string; iDur : Integer; I : Integer; arts, url, titles : TStringList; dur : TStringList; begin AQ := Query; AQ := StringReplace(AQ, ' ', '%20', [rfReplaceAll]); AXML := TStringList.Create; Arts := TStringList.Create; Titles := TStringList.Create; Dur := TStringList.Create; urls.Clear; Host := 'api.vkontakte.ru'; Req := 'q=' + AQ + '&sort=0&method=audio.search&count= 100&offset=0&api_id=1931178&v=3.0&f ormat=XML'; Sign := SignRequest(Req, mid, secret); Req := Req + '&sig=' + sign + '&sid=' + sid; AXMl.Text := http.Get('http://' + Host + '/api.php?' + Req); For I := 0 To AXMl.Count -1 do begin If Pos('<url>', AXML[i]) <> 0 Then Urls.Add(Parse('<url>', AXML[i], '</url>')); If Pos('<artist>', AXML[i]) <> 0 Then Arts.Add(Parse('<artist>', AXML[i], '</artist>')); If Pos('<title>', AXML[i]) <> 0 Then Titles.Add(Parse('<title>', AXML[i], '</title>')); If Pos('<duration>', AXML[i]) <> 0 Then begin iDur := StrToInt(Parse('<duration>', AXML[i], '</duration>')); Dur.Add(FormatMSec(iDur * 1000, False)); end; end; |
08.11.2010, 17:02 | #2 |
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Читаем правила раздела:
Темы с вложениями вместо исходного кода, а также с неправильно оформленным кодом будут мгновенно закрываться, а нарушитель - получать нарушение №6 - "Нарушение правил форума" и штраф 6 очков. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Авторизация vkontakte | [koyot] | Работа с сетью в Delphi | 24 | 11.02.2011 15:14 |
C# vs vkontakte.ru | Cpluser | Фриланс | 1 | 28.03.2010 20:06 |
Объем музыки | FCShadow | Помощь студентам | 2 | 24.02.2010 00:34 |
SID vkontakte | SmiLy93 | Работа с сетью в Delphi | 0 | 11.02.2010 15:49 |
delphi vkontakte | yurii_malevannyi | Работа с сетью в Delphi | 11 | 31.05.2009 23:01 |