Получение ссылки скачивания видео с контакта

[cargo29]

Приветствую всех, хотелось бы осуществить следующее, используя компонент idHTTP и ссылку видео из контакта например

http://vkontakte.ru/smirnovsany#/video7916453_160185597

Получить ссылку на скачивание этого видео
(на форме 2 edit, 1 button)

нашел примерный код но он не работает (старый видимо)

 function Parse(str, str2, ob: string): string; 
var 
  s1, s2: string; 
begin 
  s1 := Copy(ob, pos(str, ob) + length(str), length(ob)); 
  s2 := Copy(s1, 1, pos(str2, s1) - 1); 
  result := s2; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
var  v,video,l, li, lin, vkid, vtag ,ndd :string; 
begin 

// пример   http://vkontakte.ru/video23017580_147973140?noiphone 
// для начала при помошщи сниффера узнаём как выглядит ссыль при просмотре видео 
//  мы узнали  http://217.gt2.vkadre.ru/assets/videos/cafde3edd00a-43319217.vk.flv 

       //  получаем содержимое html страницы 

      v:= HTTP.Get('http://vkontakte.ru/video23017580_147973140?noiphone'); 

      //   нас интересует кусок от "loadFlashPlayer" и до "hash2" 
       v:=Parse(' loadFlashPlayer', ',"hash2":"', v); 

      //   вырезаем в переменную v 
       Memo1.Lines.Text:= v; 
     //  и дальше режем на различные переменные из 
     //  которых состоит ссылка на скачивание 

        li:=Parse('http:\/\/', '\/', v);     //  217.gt2.vkadre.ru 
        Memo2.Lines.Add('li='+li); 

        lin:=parse(li+'\/','\/',v);          //  assets 
        Memo2.Lines.Add('lin='+lin); 

        vtag:= Parse('"vtag":"', '"', v);     //  cafde3edd00a- 
        Memo2.Lines.Add('vtag='+vtag); 


        vkid:= Parse('vkid":"','","' ,v);      //  43319217 
        Memo2.Lines.Add('vkid='+vkid); 

        //  и из того что получили - собираем в ссылку 
        video:= 'http://'+li+'/'+lin+'/videos/'+vtag+vkid+'.vk.flv' ; 

         Memo2.Lines.Add('http://+li+/lin/videos/+vtag+vkid+.vk.flv') ; 
         Memo2.Lines.Add(video); 
       // Вот собствено и всё  ничего сложного 


end;

[Voody]

Устанавливайте плагин для вашего браузера, который позволяет скачивать с ВК, и смотрите прямую ссылку.
В данном случае я с помощью плагина увидел такую:

http://cs12429.vkontakte.ru/u21278096/video/b77c8c0fa5.flv

И в исходном коде страницы увидел такой текст:

\"host\":\"http:\\\/\\\/cs12429.vkontakte.ru\\\/\",\"vtag\":\"b77c8c0fa5\",\"ltag\":\"l_db23f101\",\"vkid\":\"142826320\"

и

\"thumb\":\"http:\\\/\\\/cs12429.vkontakte.ru\\\/u21278096\\\/video\\\/l_db23f101.jpg\"

Думаю, не трудно сопоставить всё и написать свой код)

[cargo29]

Сообщение от Voody

Устанавливайте плагин для вашего браузера, который позволяет скачивать с ВК, и смотрите прямую ссылку.
В данном случае я с помощью плагина увидел такую:

http://cs12429.vkontakte.ru/u21278096/video/b77c8c0fa5.flv

И в исходном коде страницы увидел такой текст:

\"host\":\"http:\\\/\\\/cs12429.vkontakte.ru\\\/\",\"vtag\":\"b77c8c0fa5\",\"ltag\":\"l_db23f101\",\"vkid\":\"142826320\"

и

\"thumb\":\"http:\\\/\\\/cs12429.vkontakte.ru\\\/u21278096\\\/video\\\/l_db23f101.jpg\"

Думаю, не трудно сопоставить всё и написать свой код)

а какой браузер???? а то я не мог найти вот это в коде страницы vkid

[cargo29]

даже близко нигде нету этого кода страницы

"host\":\"http:\\\/\\\/cs12429.vkontakte.ru\\\/\",\"vtag\":\"b77c8c0fa5\",\"ltag\" :\"l_db23f101\",\"vkid\":\"14282632 0\"

и

\"thumb\":\"http:\\\/\\\/cs12429.vkontakte.ru\\\/u21278096\\\/video\\\/l_db23f101.jpg\"

[cargo29]

у меня опера не находит а хром нашел vkid почему так??

[Voody]

Опера. Просто перешел по вашей ссылке, в контекстном меню выбрал "Исходный код" и сделал поиск по слову "b77c8c0fa5"

[cargo29]

Сообщение от Voody

Опера. Просто перешел по вашей ссылке, в контекстном меню выбрал "Исходный код" и сделал поиск по слову "b77c8c0fa5"

Ладно это не суть важно я и с хромом поработаю, но вот проблема,

function Parse(str, str2, ob: string): string; 
var 
  s1, s2: string; 
begin 
  s1 := Copy(ob, pos(str, ob) + length(str), length(ob)); 
  s2 := Copy(s1, 1, pos(str2, s1) - 1); 
  result := s2;
end;




procedure TForm1.Button1Click(Sender: TObject);
var  v,video, li, lin, vkid, vtag :string;
begin
v:= HTTP.Get(edit1.Text);

 v:=Parse('box.setOptions','"hash2', v);

Memo1.Lines.Text:= v;

li:=Parse('"host\":\"', '\",\', v);     //  217.gt2.vkadre.ru
        Memo2.Lines.Add('li='+li);

        lin:=parse(li+'\\\/','\\\/',v);          //  assets
        Memo2.Lines.Add('lin='+lin); 

        vtag:= Parse('"vtag\":\"', '\",\"ltag\', v);     //  cafde3edd00a-
        Memo2.Lines.Add('vtag='+vtag);


        vkid:= Parse('\"vkid\":\"','\",\"md' ,v);      //  43319217
        Memo2.Lines.Add('vkid='+vkid);


      video:= 'http://'+li+'/'+lin+'/videos/'+vtag+vkid+'.vk.flv' ; 

         Memo2.Lines.Add('http://+li+/lin/videos/+vtag+vkid+.vk.flv') ; 
         Memo2.Lines.Add(video); 
       // Вот собствено и всё  ничего сложного


end;

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