Programowanie w języku Delphi » Gotowce

Jak zrobić odtwarzacz filmów na pulpicie

  • 2006-08-29 23:13
  • 10 komentarzy
  • 683 odsłony
  • Oceń ten tekst jako pierwszy
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

Jojersztajner 2006-08-30 10:23

<quote=szopenfx>Wszystko ładnie pięknie tylko to działa pod Internet Explorer a np. pod Netscape 7.1  nie ma mowy :/</quote>
Windows nie umożliwia renderowania pulpitu Active Desktop przy pomocy silnika Netspape'a :P

szopenfx 2004-07-12 09:52

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

Wirek 2003-06-30 01:24

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

lofix 2003-05-15 12:08

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

Spine 2003-05-10 23:46

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

lofix 2003-05-10 22:53

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

Drajwer 2003-05-10 21:26

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

Drajwer 2003-05-10 20:58

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

lofix 2003-05-10 11:57

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

Drajwer 2003-05-10 09:58

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