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

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

насчет того кода, я не знаю что делает SignRequest(хоть и догадываюсь)
и естественно не знаю что нужно вашему коду чтоб работать.
а вообще надо б еще посмотреть api vkontakte, ибо меня смущает параметр secret/sid.

http://vkontakte.ru/developers.php?id=-1_21239305&s=1
а насчет реализации, если надо то учите сетевой кодинг, все за вас писать никто бесплатно не будет.

[Flexoid2]

Ok буду разбираться , но мне надо чтобы нашлась песня, а ссылка на неё отправилась в лист-бокс

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

как парсить примеров масса, или вам опять готовое подавай?
пока кроме того куска кода я не вижу телодвижений с вашей стороны к вашей же цели.

[Flexoid2]

Ну я уже дописал под свои нужды процедуру авторизации, вот теперь делаю процедуру для скачки файла из интернета

Народ как вывести результат в listbox ? просто при выводе мне пишет

ncompatible types: 'TStrings' and 'string'

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

ListBox.Items.Add('bla');

[Flexoid2]

Теперь вот, что пишет

[DCC Error] Unit1.pas(101): E2035 Not enough actual parameters

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

так, показывай что и как делаешь)

[Flexoid2]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, IdHTTP, IdCompressorZLib, StrUtils, ComCtrls, Menus;

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Edit3: TEdit;
    Button2: TButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  VKAS = 'Подключены: %s';



var
  Form1: TForm1;
  http: TIdHTTP;
  comp: TIdCompressorZLib;

implementation

{$R *.dfm}




procedure VKAudioLink(s:string;Strings:TStrings);
var link:string;
    i,j:Integer;
begin
 i:=Pos('operate',s);
 while i<>0 do
  begin
   i:=PosEx('(',s,i);
   i:=PosEx(',',s,i+1);
   j:=PosEx(',',s,i+1);
   link:='http://cs'+Copy(s,i+1,j-i-1);
   i:=PosEx(',',s,j+1);
   link:=link+'.vkontakte.ru/u'+Copy(s,j+1,i-j-1);
   j:=PosEx(',',s,i+1);
   link:=link+'/audio/'+Copy(s,i+2,j-i-3)+'.mp3';
   //послежний параметр в operate это длина трека в секундах
   //суда можно добавить парсинг названия/исполнителя
   Strings.Add(link);
   i:=PosEx('operate',s,j+1);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 VKAudioLink(ListBox1.Items.add);//применение
end;

function VK_Auth(login, password : string): Boolean;
var
  s:string;
  remixchk, remixsid : string;
  i : integer;
begin
  Result := False;

  try
    http.Get('http://vkontakte.ru/login.php?m=1&email='+login+'&pass='+password);
  except
    Result := True;
    s := http.Response.RawHeaders.Text;
    i := Pos('remixchk',s);
    remixchk := Copy(s,i,PosEx(';',s,i)-i+1);
    i := Pos('remixsid',s);
    remixsid := Copy(s,i,PosEx(';',s,i)-i+1);
    http.Request.CustomHeaders.Text := 'Cookie:' +
    remixchk + remixsid;
    Exit;
  end;
end;



procedure TForm1.Edit1Click(Sender: TObject);
begin
  Edit1.SelectAll;
end;

procedure TForm1.Edit2Click(Sender: TObject);
begin
  Edit2.SelectAll;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Label1.Caption := Format(VKAS,['Нет']) ;

  http := TIdHTTP.Create;
  comp := TIdCompressorZLib.Create;
  http.Compressor := comp;
  http.AllowCookies := False;
  http.HandleRedirects := False;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if VK_Auth(Edit1.Text,Edit2.text) then
    Label1.Caption := Format(VKAS,['Да'])
  else
    Label1.Caption := Format(VKAS,['Нет'])
end;


end.

Во что вышло,но я просто решил чтоб в первую строку ввести ссылку и посмотреть выдаст или нет, прога прямую ссылку на mp3, но как связать код в самом начале темы c этим просто не знаю...