Музыка вконтакте

[fezilk24]

Переписываю функцию, наткнулся на ошибку при компиляции

s:=sourse;
 //удаляем лишюю часть в operate
 bpos:=pos('operate',s);
 endpos:=posex(',',s,bpos+8);
 delete(s,bpos+8,length(copy(s,bpos+8,endpos-(bpos+8))));

[DCC Error] Unit3.pas(133): E2066 Missing operator or semicolon
[DCC Error] Unit3.pas(133): E2014 Statement expected, but expression of type 'string' found

Туплю сегодня, поэтому найти сам не могу


действительно затупил, извиняюсь, нашел ошибку: переменную 'delete' случайно назвал)

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

<img class="playimg" onclick="return operate(93113035,5007,86541345,'db6 32ccba843',283);" id="imgbutton93113035" nosorthandle="true" src="images/play.gif"/>

по такой строке отменно все выдало, проверьте верно ли все передается, там иногда через JS грузится

на какой именно строке ошибка?

вечером, как вернусь домой, напишу оптимизированный вариант.

[fezilk24]

В функции ошибки не было, но не передавалась ссылка
написал сам, но ф-ия огромная, надо её как-нибудь сжать) и вообще, пол-программы сжать.

function TForm3.AudioLink(sourse:string):string;
var s,link,p1,p2,p3,audio:string;
bpos,endpos:integer;
begin
 s:=sourse;
 //удаляем лишюю часть в operate
 bpos:=pos('"audio',s);
 endpos:=posex('"',s,bpos+6);
 audio:=copy(s,bpos+6,endpos-(bpos+6));
 delete(s,bpos,length(audio));
 delete(s,pos(audio,s),length(audio));
 //получаем первую часть ссылки
 bpos:=pos(',',s);
 endpos:=posex(',',s,bpos+1);
 p1:=copy(s,bpos+1,endpos-(bpos+1));
 delete(s,bpos,length(p1));
 //вторую
 bpos:=pos(',',s);
 endpos:=posex(',',s,bpos+1);
 p2:=copy(s,bpos+1,endpos-(bpos+1));
  delete(s,bpos,length(p2));
 //и третью
 bpos:=pos(',',s);
 endpos:=posex(',',s,bpos+1);
 p3:=copy(s,bpos+1,endpos-(bpos+1));
 //удаляем кавычки в 3 части
 delete(p3,1,1);
 delete(p3,length(p3),1);
 link:='http://cs' +p1+ '.vkontakte.ru/u' +p2+ '/audio/' +p3+ '.mp3';
 Result:=link;
end;

PS. Если напишите, выложите, пожалуйста, программа ужасно тупит из-за таких неоптимизированных функций. А у меня программа грузит только первую найденную песню =) И еще, каким образом русские символы преобразовать в html-код, который пишеться в url'е? (решено, нашел ф-ию urlencode)

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

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(Memo1.Text,ListBox1.Items);//применение
end;

оптимизированей наверно уже не куда(можно одну строку убрать, но мне не хочется)

[fezilk24]

Благодарю Дописал ф-цию, добавил исполнителя и название

[Flexoid2]

Можете мне дать исходник вашей программы?

[барон]

function WB_AudioLinkMP3(sourse:string):string;
var s:string;
begin
 s:=sourse;
 if Pos('operate',s)=0 then exit;
 Delete(s,1,PosEx('(',s,Pos('operate',s)));
 Delete(s,1,Pos(',',s));
 sourse:='http://cs'+Copy(s,1,pos(',',s)-1);
 Delete(s,1,Pos(',',s));
 sourse:=sourse+'.vkontakte.ru/u'+Copy(s,1,pos(',',s)-1);
 Delete(s,1,Pos(',',s));
 sourse:=sourse+'/audio/'+Copy(s,2,pos(',',s)-3)+'.mp3';
 Result:=Sourse;
end;

Как эту функцию вызвать?

[fezilk25]

Edit1.Text := WB_AudioLinkMP3(Memo1.Text);

Edit1 - это куда запишется ссылка
Memo1 - содержит html-код страницы

[Flexoid2]

Так сможете дать свой исходник?