Jak odtworzyć film z YouTube

Witam, jest to mój pierwszy artykuł, ale mam nadzieje, że napisałem go zrozumiale. Jest on kierowany głównie do początkujących programistów :). Przejdźmy do rzeczy … odtwarzanie filmików YouTube z poziomu Delphi jest bardzo proste - Tworzymy formę, nazywamy ją jak tam sobie chcemy ,następnie wstawiamy :

Shockwave1 (ActiveX)
Panel1 (Standard)

Na Panel1 wstawiamy:

Edit1 (Standard)
Button1 (Standard)

Potem możemy ustawić wartość Align na alClient komponentu Shockwave1, następnie w OnClick Buttona wstawiamy procedurę :

Shockwave1.Movie := 'http://www.youtube.com/v/' + Edit1.Text + 
'&color1=0xb1b1b1&color2=0xcfcfcf&hl=en&fs=1';

Uwaga ! Powyższa procedura zapewnia jedynie odtwarzanie filmiku podczas, gdy w Edit1 wpisane zostanie ID filmiku. Na przykład : http://pl.youtube.com/watch?v=yZIummTz9mM
To tylko ‘yZIummTz9mM ‘ musi zostać wpisane. Można oczywiście pobawić się w usuwanie danych członów linku za pomocą procedury …