YOUTUBE delphi (парсинг)

[DjDram]

тоесть из img.src = взять данные не получиться брать только из url_encoded_fmt_stream_map

сейчас с данными из img.src = поигрался

http://o-o.preferred.rds-omr1.v18.lscache4.c.youtube.com/videoplayback?sparams=id
%2Cexpire%2Cip%2Cipbits%2Citag%2Cratebypass%2Coc%3AU0hQSlJOVl9FSkNOMF9KSFpF
&fexp=901318%2C907605%2C903116&itag=43
&ip=0.0.0.0&signature=3739A2A156F59494C373FC6A7CDBABC89DC8B3.17AE1A45FC409C634D0ECAF9B067635A96A1B8B2
&sver=3&ratebypass=yes&expire=1315238400
&key=yt1&ipbits=0&id=01ea97963604f9c9&title=1.mp4

предлагает скачать только не понятно добавляет расширение к файлу указанному в title 1.mp4 добавляет 1.mp4.webm

[DjDram]

вопрос тогда если брать из img.src = по ссылке приведёной в посте выше в каком качестве качается он же выбирает какой то файл

как эту ссылку привести в надлежаший вид что можно было открыть её в VLC

http://o-o.preferred.rds-omr1.v18.lscache4.c.youtube.com/videoplayback?sparams=id
%2Cexpire%2Cip%2Cipbits%2Citag%2Cratebypass%2Coc%3AU0hQSlJOVl9FSkNOMF9KSFpF
&fexp=901318%2C907605%2C903116&itag=43
&ip=0.0.0.0&signature=3739A2A156F59494C373FC6A7CDBABC89DC8B3.17AE1A45FC409C634D0ECAF9B067635A96A1B8B2
&sver=3&ratebypass=yes&expire=1315238400
&key=yt1&ipbits=0&id=01ea97963604f9c9&title=1.mp4

[WorldMaster]

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

вопрос тогда если брать из img.src = по ссылке приведёной в посте выше в каком качестве качается он же выбирает какой то файл

Вот поэтому я думаю стоит брать из тега map. там сссылок больше.

[DjDram]

а случаем нету исходника подмены символов аски кода в строке

функции или процедурки а то все символы вбивать долго

[WorldMaster]

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

а случаем нету исходника подмены символов аски кода в строке

функции или процедурки а то все символы вбивать долго

Дома валяется.. вечером приду выложу. Только там все коды то не нужны.
Я сделал всего штук 5 - 7 этого хватило для пары случаев, хотя конечно надо будет сделать для всех.

[DjDram]

ок ну я тогда вечером допишу под большую часть кодов мне просто все нужны потому что VLC я его через ActiveX привязал открывает файл только если title прописан а название роликов может быть какое угодно

P.S. о нет вру отркрывает и без title но мне всё равно для плэй листа нужно чтоб отображалось название а не путь

[DjDram]

вообщем столкнулся с проблемой продолжения поиска позиции в DataString

ищу позицию начала ссылки
X1 := fAnsiPos('"', WebDoc.DataString, Pos('url_encoded_fmt_stream_map=url =', WebDoc.DataString) + 34);
затем ищем конец
X2 := fAnsiPos('"', WebDoc.DataString, Pos('%2Bcodecs', WebDoc.DataString) - 1);
присваевываем данныю ссылку стороковой переменной
URLFile := copy(WebDoc.DataString, X1, X2);
делаем её транлитезацию
FullURLFile:=TranslateUrl(URLFile);

и тут интересное на не которых роликах первой ссылкой после url_encoded_fmt_stream_map идёт ссылка на плэйр например вот

http://o-o.preferred.arn06s03.v7.lsc...pe=video/webm;

в конце видим что это &type=video/webm;

соответственно данная ссылка откроется только в браузере так как формат webm значит нужно брать следующую ссылку

ну как узнать позицию следующего урла, надо начать искать занова но уже не "url_encoded_fmt_stream_map=url =" а "%2Curl%3Dhttp" начать поиск позиции именно с позиции X2.

как бы это сделать, тоесть получается поиск позиции с уже определённой позиции а не с начала.

[DjDram]

возможно это делается так

Result := fAnsiPos(FullURLFile, '&type=video/webm');
if (Result = nil) then
загружаем;
else
X3 := fAnsiPosEx(WebDoc.DataString, '%2Curl%3Dhttp',X2)-9);
X4:=fAnsiPosEx(WebDoc.DataString, '%2Bcodecs',X3)-1);
NewURLFile := copy(WebDoc.DataString, X3, X4);
FullURLFile:=TranslateUrl(NewURLFil e);

[DjDram]

Загрузить

Как то так загрузку сделал на quality=medium видео формат mp4

[SkOle]

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