Flash est produit par Macromedia et est utilisé pour créer une onde de choc dynamique et interactive sur Internet. c'est
L'avantage est qu'il est de petite taille et peut être joué pendant le téléchargement, évitant ainsi aux utilisateurs d'attendre longtemps.
FLASH peut être utilisé pour générer des animations et ajouter des sons aux pages Web. De cette façon, vous pouvez générer des graphiques et des interfaces multimédias tout en conservant une petite taille de fichier.
Bien que FLASH ne puisse pas être programmé comme un langage, il peut utiliser ses instructions intégrées combinées avec
Avec javaSCRipE, vous pouvez également créer une page d'accueil hautement interactive.
Une autre particularité de FLASH est que le plug-in PLUG-IN doit être installé pour être accepté par le navigateur ! Bien sûr, c'est aussi
Évitez les différences entre les navigateurs et traitez-les de la même manière !
Mais tu sais quoi ? Dans Delphi, vous pouvez directement ouvrir l'animation flash et la contrôler pour la lire et l'arrêter. Tu es toujours
Puis-je obtenir son nombre total d’images ? Savez-vous comment y parvenir ? Veuillez me suivre.
Sélectionnez "Shockwave" dans Composant | Importer les contrôles ActiveX... dans Delphi
Flash (Version 1.0)" et cliquez sur Installer, une fenêtre d'installation apparaîtra.
Si vous souhaitez l'ajouter à un package existant, dans la boîte de dialogue "dans un package existant"
Sélectionnez le chemin que vous souhaitez installer dans la fenêtre « Nom du fichier : » et cliquez sur « OK » ; une boîte de dialogue de confirmation apparaîtra.
Demandez-vous « Le package dclusr50.bpl sera reconstruit. Continuer ? », cliquez sur « Oui » dans la fenêtre contextuelle ;
Cliquez simplement sur « installer » et le plug-in sera installé.
Si vous souhaitez l'ajouter à un nouveau package, cliquez sur "Fichier" dans la boîte de dialogue "dans un nouveau package".
name:", sélectionnez le chemin que vous souhaitez installer, créez un nouveau package, s'il est nommé test, puis cliquez sur "OK" ; il
Demandez-vous "Le package test.bpl sera construit. Continuer ?", cliquez sur "Oui". Commandez dans la fenêtre pop-up
Cliquez sur "installer" et le plug-in est installé.
A ce moment, vous trouverez un nouveau contrôle sous ActiveX dans la barre de contrôle nommé ShockwaveFlash.
Cliquez dessus et mettez-le dans le formulaire, mettez un contrôle OpenDialog et un panneau dans le formulaire, et mettez
Quatre boutons, leurs attributs de légende sont respectivement nommés « Openfile », « Play », « Stop », « Close ».
panel1, les propriétés Align de ShockwaveFlash sont respectivement Allleft et AlClient dans ces quatre ;
Écrivez le code suivant dans l'événement OnClick de Button :
PRécédure TForm1.Button1Click(Expéditeur : TObject);
commencer
si OpenDialog1.Execute alors
ShockwaveFlash1.Movie :=
OpenDialog1.FileName ;
fin;
procédure TForm1.Button2Click(Expéditeur : TObject);
commencer
ShockwaveFlash1.Play ;
fin;
procédure TForm1.Button3Click(Expéditeur : TObject);
commencer
ShockwaveFlash1.StopPlay ;
fin;
procédure TForm1.Button4Click(Expéditeur : TObject);
commencer
ShockwaveFlash1.FreeOnRelease ;
fermer;
fin;
Vous pouvez obtenir le nombre total d'images de l'image flash ouverte, ajouter une étiquette sur le panneau 1 et ajouter une étiquette sur le formulaire 1.
Écrivez le code suivant dans l'événement OnClick
procédure TForm1.FormCreate(Expéditeur : TObject);
commencer
label1.caption:=shockwaveflash.totalframes;
fin;
Vous pouvez également contrôler l'image flash ouverte pour commencer la lecture à partir de cette image.
Ajoutez un bouton et un champ Edit sur panel1,
Ajoutez le code suivant à l'événement OnClick du bouton.
si ShockwaveFlash1.playing alors
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play ;
Remplissez le cadre auquel vous souhaitez accéder dans l'édition et cliquez sur le bouton pour implémenter cette fonction.
Et si, essayez-le, l'effet est plutôt bon, non ?