Jak zrobić odtwarzacz filmów na pulpicie

lofix

Windows oferuje nam zamiast standardowej tapety możliwość umieszczenia pliku HTML czyli ActiveDesktop
Mając do dyspozycji technologię ActiveX możemy napisac własny program, który będzie "siedział" na pulpicie :-)

Zaczniemy oczywiście od odpalenia Delphi..
Następnie zamykamy nowy projekt i wybieramy z menu FILE | NEW |zakładkę ACTIVEX i nowy projekt ActiveX form

Pojawi się okienko Active Form Wizard nie zmieniamy nic i klikamy ok.

Naszym oczom ukaże się standardowa forma.
Teraz trochę zwykłego standardowego kodu..

Tworzymy pusty folder, do ktorego bedziemy zapisywac pliki.
Ja stworzyłem katalog TEST
Następnie w Delphi wybieramy z menu Project | WEB DEVELPOMNET OPTIONS

Mamy tam 3 pola na wpisanie ścieżek.

Ja wpisałem tak:

Target DIR
C:\Test

TargetURL
http://lofix

HTML DIR
C:\Test

Do tego katalogu zapiszemy też nasz projekt..

Na formę wrzucamy TMediaPlayer (oraz pare Buttonów - kwestia gustu).

Nie będę tu pisał kodu do odtwarzania muzyczki przez TMediaPlayer bo to za łatwe..

Gdy już wszystko wpiszemy, czas na skompilowanie projektu.
Wybieramy z menu Project | WEB DEPLOY
Jeżeli wyskoczy nam błąd związany z plikiem OCX to w ustawieniach wskażmy ścieżkę do niego w innym katalogu niz nasz projekt np:
C:TestOCX

Potem z menu RUN wybieramy Register ActiveX Server
Po skompilowaniu możemy ten plik HTMLa edytować jakimś edytorem HTML.
Potem już tylko wejść we właściwości ekranu i zamiast tapety wskazać naszą kontrolkę.

Ten artykuł jest tylko rozwinięciem artykułu autorstwa Adama

10 komentarzy

Ja na swoim zrobilem sisko Ram, miejsce na dysku, uzycie CPU, skroty do programow, poczta i obsluga winampa. Screen pod adresem: http://wacki.pozyton.net.pl/~wirek/desktop.jpg
Szkoda tylko ze ActiveX jest tak bardzo okrojone, oferuje w sumie mało f-cji. Nie można obsłużyć komunikatów nie mówiąc juz o odwoływaniu się do Active Form. Albo ja nie umiem albo nie można

szopenfx napisał(a)

Wszystko ładnie pięknie tylko to działa pod Internet Explorer a np. pod Netscape 7.1 nie ma mowy :/

Windows nie umożliwia renderowania pulpitu Active Desktop przy pomocy silnika Netspape'a :P

Wszystko ładnie pięknie tylko to działa pod Internet Explorer a np. pod Netscape 7.1 nie ma mowy :/

Ja mialem problem z wykonaniem bramki SMS (ICQ servers) na pulpicie, z ActiveForm mi się nie łączył, nie sprawdzałem POP3...

bo Professional ma AcitiveX form, można nawet wtedy w Delphi pisać progsym klienty email i inne na stronach www

To masz pecha. Ubierz się i idż na spacer z psem (chomikiem), Możesz też sklejać kartonowe modele..

No jak nie ma ActiveX to niestety, ale nie to Delphi

yyyyy a jak niema zakładki ActiveX w New ?:|

ale skoro to proste... dobra nieczepiam sie tylko pisze se to

ikony sa :) sheiti pewnie je tylko pochowal :))
a co do kodu to szczerze nie chce pisac tego co mozna znależć wszedzie..

4... dodaj kod odtwarzacza ;)... a na screnie sheitara zdaje sie ze niebylo ikon :/