Exemple d'ajout de clips audio ou vidéo (VCL seulement)

De RAD Studio
Aller à : navigation, rechercher

Remonter à Ajout de clips audio ou vidéo à une application


Cet exemple exécute un clip vidéo AVI pour une publicité multimédia.

Pour exécuter cet exemple, créez un nouveau projet et enregistrez le fichier Unit1.pas sous FrmAd.pas, et le fichier Project1.dpr sous DelphiAd.dpr. Puis :

  1. Double-cliquez sur l'icône du lecteur multimédia dans la catégorie Système de la Palette d'outils.
  2. A l'aide de l'inspecteur d'objets, définissez la propriété Name du lecteur multimédia sur VideoPlayer1.
  3. Sélectionnez sa propriété DeviceType et choisissez dtAVIVideo dans la liste déroulante.
  4. Sélectionnez sa propriété FileName, cliquez sur le bouton points de suspension (...), localisez et choisissez un fichier AVI. Cliquez sur Ouvrir dans la boîte de dialogue Ouvrir.
  5. Définissez sa propriété AutoOpen sur True et sa propriété Visible sur False.
  6. Double-cliquez sur l'icône animation dans la catégorie Win32 de la Palette d'outils. Définissez sa propriété AutoSize sur False, sa propriété Height sur 175 et sa propriété Width sur 200. Cliquez sur le contrôle animation et faites-le glisser sur le coin supérieur gauche de la fiche.
  7. Cliquez sur le lecteur multimédia pour lui donner la focalisation. Sélectionnez sa propriété Display et choisissez Animate1 dans la liste déroulante.
  8. Cliquez sur la fiche pour lui attribuer la focalisation, sélectionnez sa propriété Name et entrez Delphi_Ad. Redimensionnez maintenant la fiche pour lui donner la taille du contrôle animation.
  9. Double-cliquez sur l'événement OnActivate de la fiche et écrivez le code suivant pour exécuter la vidéo AVI quand la fiche détient la focalisation :
    VideoPlayer1.Play;
    
    VideoPlayer1->Play();
    
  10. Choisissez Exécuter > Exécuter pour exécuter la vidéo AVI.

Remarque : Si vous utilisez Windows Vista ou Windows 7, vous devez ajouter ShellAnimations à votre clause uses (Delphi) ou utiliser #include ShellAnimations (C++) afin que les CommonAVIs (tels que Vcl.ComCtrls.TAnimateParams.CommonAVI) fonctionnent correctement. Cet ajout relie les ressources AVI similaires à celles de Windows XP.

Voir aussi