Отображение результата поиска музыки на сайте vkontakte

[Flexoid2]

Существует вопрос как искать музыку через программу, что бы результат выводился в листбокс. Вот я кое-что нарыл , но как это пристроить к программе с одним едитам кнопке и листбоксам?

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&coun t= 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;

Основной вопрос как это реализовать? Просто кое-что я накидал на форму но как это всё связать не доумеваю

[Пепел Феникса]

про музыку в контакте уже много выложено, я лично писал исходники(парсинга), можете сделать с помощью WB, или же с помощью ИнДи(авторизация есть на форуме)

короче все что вам нужно уже есть, нужно просто поискать и собрать все воедино.

[Flexoid2]

Что-то я не нашёл, но ладно, как оно должно искать без авторизации, если к примеру мне просто надо найти песню ,вывести результаты в лист бокс и при нажатии в лист бокс на результат получить на неё ссылку?

[Пепел Феникса]

а как вы без авторизации зайдете в контакт?

[Flexoid2]

Ну просто я видел дополнение к плееру которое без захода вконтакт искало и скачивало песни, вот теперь и мне стало интересно как это сделать

[grafgrial]

скорее всего через подставное лицо авторизуется

[Пепел Феникса]

не скорее всего а точно, или какие то поисковики что делают это за нас.

вот ссыль http://programmersforum.ru/showthrea...F3%E7%FB%EA%E0

[Flexoid2]

Что-то в теме не нашол какой именно алгоритм поиска, помогите плиз

Может есть у кого исходник программы подобного типа?

[Пепел Феникса]

а какой вам алгоритм нужен?
делаем GET запрос на нужный адрес, и получаем ответ.

а вообще берите сниффер и смотрите как браузер получает данные эти.
по этому уже писано переписано.

[Flexoid2]

Просто я вверху указал код, может посоветуете что там нужно исправить?