Beispiel für das Hinzufügen von Audio- oder Videoclips (nur VCL)

Aus RAD Studio
Wechseln zu: Navigation, Suche

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:

  1. Doppelklicken Sie in der Kategorie System der Tool-Palette auf das Symbol TMediaPlayer.
  2. Geben Sie im Objektinspektor für die Eigenschaft Name den Text VideoPlayer1 ein.
  3. Wählen Sie die Eigenschaft DeviceType aus, und klicken Sie in der Dropdown-Liste auf dtAVIVideo.
  4. 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.
  5. Setzen Sie AutoOpen auf True und Visible auf False.
  6. 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.
  7. 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.
  8. 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.
  9. 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();
    
  10. 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.

Siehe auch