Beispiel für das Hinzufügen von Audio- oder Videoclips (nur VCL)
Nach oben zu Einer Anwendung Audio- oder Videoclips hinzufügen
Im folgenden Beispiel wird ein AVI-Videoclip mit Hilfe einer TMediaPlayer-Komponente abgespielt.
Erstellen Sie zuerst ein neues Projekt. Speichern Sie die Datei Unit1.pas unter dem Namen FrmAd.pas und die Datei Project1.dpr unter DelphiAd.dpr. Führen Sie dann Folgendes aus:
- Doppelklicken Sie in der Kategorie System der Tool-Palette auf das Symbol TMediaPlayer.
- Geben Sie im Objektinspektor für die Eigenschaft Name den Text VideoPlayer1 ein.
- Wählen Sie die Eigenschaft DeviceType aus, und klicken Sie in der Dropdown-Liste auf dtAVIVideo.
- Klicken Sie neben der Eigenschaft FileName auf die in der Wertespalte angezeigte Ellipsen-Schaltfläche. Suchen Sie eine .AVI-Datei, und wählen Sie sie aus. Klicken Sie auf Öffnen.
- Setzen Sie AutoOpen auf True und Visible auf False.
- Doppelklicken Sie in der Kategorie Win32 der Tool-Palette auf das Symbol TAnimate. Setzen Sie AutoSize auf False, Height auf 175 und Width auf 200. Ziehen Sie das Steuerelement in die linke obere Ecke des Formulars.
- Klicken Sie auf die MediaPlayer-Komponente, um sie wieder zu aktivieren. Wählen Sie für die Eigenschaft Display aus der Dropdown-Liste Animate1 aus.
- Aktivieren Sie nun das Formular. Geben Sie für die Eigenschaft Name Delphi_Ad ein. Passen Sie anschließend die Größe des Formulars an die Größe des Animate-Steuerelements an.
- Doppelklicken Sie auf das Formularereignis OnActivate. Nehmen Sie in die Ereignisbehandlungsroutine die folgende Anweisung auf, die das AVI-Video abspielt, wenn das Formular den Fokus erhält:
VideoPlayer1.Play;
VideoPlayer1->Play();
- Wählen Sie Start > Start, um das AVI-Video zu starten.
Hinweis: Bei Windows Vista und Windows 7 müssen Sie für die korrekte Ausführung der CommonAVIs (wie z.B. Vcl.ComCtrls.TAnimateParams.CommonAVI) der
uses
-Klausel (Delphi) oder der#include
-Anweisung (C++) ShellAnimations hinzufügen. Damit werden Windows XP-ähnliche AVI-Ressourcen eingebunden.