Erstes Ergebniss bei Youtube Suche automatisch auswählen

[Larsi]

Hi,

habt ihr eine Idee wie ich wenn ich bei Youtube nach einem Video suche das erste automatisch auswählen lassen kann mit Delphi.Also das ich in einem Edit Feld etwas eingebe, sich dann ein Browser öffnet und gleich das Video abspielt? Ich versuche im Moment die Html Datei mit Pos und Copy und so auszulesen für die URL des ersten Ergebnisses aber gibts da nicht auch eine Api von Youtube? (Ich weiß das es sie gibt kann aber nichts damit anfangen :) ) Hat schonmal jemand sowas gemacht?

MFG Larsi

[SirThornberry]

könntest du bitte deinen Beitragstitel korrigieren damit es andere bei der Suche leichter haben. :)

[Micha88]

Ich würds so machen:

Suchen, ("Die schlümpfe"),
http://www.youtube.com/results?searc...ie+schl%C3%BCm

Dann würde ich mit Pos folgenden Tag im HTML-Code suchen:
"<div class="video-short-title">"
(Oder irgentetwas, das unmittelbar vor dem Link steht, aber welches das einziges Vorkommen bis zum href-Tag des ersten Videos ist)

Also mit Pos nach "<div class="video-short-title">" suchen,
nach diesesm Tag kommt das Tag "<a id="video-short-title-6t2gv7akZBU" href=" "
und da einfach mit Copy und Pos den HREF rauskopieren.

Keine wunderbare Lösung (gebe ich zu) aber es geht.

[Larsi]

Ich schrieb doch, dass ich soweit auch schon war :)

[Micha88]

Ich würds ungefähr so machen: (UNgetestet, nur so aufgeschrieben)

Delphi-Quellcode:

uses 
 StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
 pPos1, pPos1Ex, pPos2Ex: Integer;
 sMyHTML, videoCode: String;
begin
 // sMyHTML zuvor den HTML-Source von URL zuweisen
 // mit idHTTP glaube ich so:
 sMyHTML := idHTTP1.Get('http://www.youtube.com/results?search_query=' + Trim(findEdit.Text) + '&search_type=&aq=f');
 pPos1 := Pos('<div class="video-short-title">', sMyHTML {subStr: 31 Zeichen}

 pPos1Ex := PosEx('href="', sMyHTML, pPos1+1)+6;
 pPos2Ex := PosEx('"', sMyHTML, pPos1Ex+1);
 
 videoCode := Trim(Copy(sMyHTML, pPos1+31, (pPos2Ex-pPos1Ex)));

 // Browser mit URL öffnen
 ShellExecute(Handle,'open','http://www.youtube.com/watch?v=' + videoCode, 0,0,SW_SHOWNORMAL) 
end;

[Matze]

Ist das seitens YouTube erlaubt? Ich vermute nicht, könnte mir aber vorstellen, dass Google dafür eine API bereit stellt. Vielleicht geht das damit.

[SirThornberry]

so weit ich weiß ist es nicht erlaubt, wird aber geduldet.

[Die Muhkuh]

Zitat:

Zitat von Matze

Ist das seitens YouTube erlaubt? Ich vermute nicht, könnte mir aber vorstellen, dass Google dafür eine API bereit stellt. Vielleicht geht das damit.

DataAPI

Zitat:

The Data API allows a program to perform many of the operations available on the YouTube website. It is possible to search for videos, retrieve standard feeds, and see related content. A program can also authenticate as a user to upload videos, modify user playlists, and more.