Flash es producido por Macromedia y se utiliza para generar ondas de choque dinámicas e interactivas en Internet. es
La ventaja es que es de tamaño pequeño y se puede reproducir mientras se descarga, evitando así que los usuarios tengan que esperar mucho tiempo.
FLASH se puede utilizar para generar animaciones y agregar sonidos a páginas web. De esta manera puede generar interfaces y gráficos multimedia manteniendo el tamaño del archivo pequeño.
Aunque FLASH no se puede programar como un lenguaje, puede usar sus declaraciones integradas combinadas con
Con javaSCRipE, también puedes crear una página de inicio altamente interactiva.
¡Otra característica de FLASH es que el complemento PLUG-IN debe estar instalado para que el navegador lo acepte! Por supuesto esto también es
¡Evita las diferencias entre navegadores y trátalos por igual!
¿Pero sabes qué? En Delphi, puede abrir directamente la animación flash y controlarla para que se reproduzca y se detenga. tu todavía
¿Puedo obtener su número total de cuadros? ¿Sabes cómo lograrlo? sígame por favor.
Seleccione "Shockwave" en Componente|Importar controles ActiveX... en Delphi
Flash (Versión 1.0)" y haga clic en Instalar, aparecerá una ventana de instalación.
Si desea agregarlo a un paquete existente, en el cuadro de diálogo "en el paquete existente"
Seleccione la ruta que desea instalar en la ventana "Nombre de archivo:" y haga clic en "Aceptar"; aparecerá un cuadro de diálogo de confirmación.
Le preguntará "El paquete dclusr50.bpl será reconstruido. ¿Continuar?", haga clic en "Sí" en la ventana emergente;
Simplemente haga clic en "instalar" y se instalará el complemento.
Si desea agregarlo a un nuevo paquete, haga clic en "Archivo" en el cuadro de diálogo "en un nuevo paquete".
nombre:", seleccione la ruta que desea instalar y cree un nuevo paquete, si se llama prueba, y haga clic en "Aceptar";
Le preguntará "Se creará el paquete test.bpl. ¿Continuar?", haga clic en "Sí". Orden en la ventana emergente
Haga clic en "instalar" y el complemento estará instalado.
En este momento, encontrará un nuevo control bajo ActiveX en la barra de control llamado ShockwaveFlash.
Haga clic en él y colóquelo en el formulario, coloque un control OpenDialog y un panel en el formulario, y coloque
Cuatro botones, sus atributos de título se denominan "Openfile", "Play", "Stop", "Close" respectivamente.
panel1, las propiedades de alineación de ShockwaveFlash son Alleft y AlClient respectivamente en estos cuatro;
Escriba el siguiente código en el evento OnClick del botón:
Procedimiento TForm1.Button1Click(Remitente: TObject);
comenzar
si OpenDialog1.Execute entonces
ShockwaveFlash1.Película:=
OpenDialog1.FileName;
fin;
procedimiento TForm1.Button2Click (Remitente: TObject);
comenzar
ShockwaveFlash1.Play;
fin;
procedimiento TForm1.Button3Click(Remitente: TObject);
comenzar
ShockwaveFlash1.StopPlay;
fin;
procedimiento TForm1.Button4Click (Remitente: TObject);
comenzar
ShockwaveFlash1.FreeOnRelease;
cerca;
fin;
Puede obtener el número total de fotogramas de la imagen flash abierta, agregar una etiqueta en el panel1 y agregar una etiqueta en el formulario1.
Escribe el siguiente código en el evento OnClick
procedimiento TForm1.FormCreate(Remitente: TObject);
comenzar
label1.caption:=shockwaveflash.totalframes;
fin;
También puede controlar la imagen flash abierta para comenzar a reproducir desde ese cuadro.
Agregue un botón y un control Editar en el panel1,
Agregue el siguiente código al evento OnClick del botón.
Si ShockwaveFlash1.está reproduciéndose, entonces
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
Complete el cuadro al que desea saltar en la edición y haga clic en el botón para implementar esta función.
¿Qué te parece? Pruébalo, el efecto es bastante bueno, ¿verdad?