O Flash é produzido pela Macromedia e é usado para ondas de choque dinâmicas e interativas na Internet. isso é
A vantagem é que ele é pequeno e pode ser reproduzido durante o download, evitando assim a longa espera dos usuários.
FLASH pode ser usado para gerar animações e adicionar sons a páginas da web. Desta forma você pode gerar gráficos e interfaces multimídia enquanto mantém o tamanho do arquivo pequeno.
Embora o FLASH não possa ser programado como uma linguagem, ele pode usar suas instruções integradas combinadas com
Com javaSCRipE, você também pode criar uma página inicial altamente interativa.
Outra característica do FLASH é que o plug-in PLUG-IN deve estar instalado para ser aceito pelo navegador! Claro que isso também é
Evite diferenças entre navegadores e trate-os igualmente!
Mas você sabe o que? No Delphi, você pode abrir diretamente a animação em flash e controlá-la para reproduzir e parar. Você ainda
Posso obter o número total de frames. Você sabe como conseguir isso? PLZ me siga.
Selecione "Shockwave" em Componente | Importar controles ActiveX... em delphi
Flash (versão 1.0)" e clique em Instalar, uma janela de instalação será exibida.
Se você quiser adicioná-lo a um pacote existente, na caixa de diálogo "no pacote existente"
Selecione o caminho que deseja instalar na janela "Nome do arquivo:" e clique em "OK"; uma caixa de diálogo de confirmação aparecerá.
Pergunte "O pacote dclusr50.bpl será reconstruído. Continuar?", clique em "Sim" na janela pop-up;
Basta clicar em “instalar” e o plug-in será instalado.
Se você quiser adicioná-lo a um novo pacote, clique em “Arquivo” na caixa de diálogo “no novo pacote”.
name:", selecione o caminho que deseja instalar e crie um novo pacote, se for chamado de teste, e clique em "OK"; ele
Pergunte "O pacote test.bpl será construído. Continuar?", clique em "Sim". Faça o pedido na janela pop-up
Clique em "instalar" e o plug-in será instalado.
Neste momento, você encontrará um novo controle em ActiveX na barra de controle chamado ShockwaveFlash.
Clique nele e coloque no formulário, coloque um controle OpenDialog e um painel no formulário, e coloque
Quatro botões, seus atributos de legenda são denominados "Openfile", "Play", "Stop", "Close" respectivamente.
panel1, as propriedades Align do ShockwaveFlash são Alleft e AlClient respectivamente nestes quatro;
Escreva o seguinte código no evento OnClick do Button:
Procedimento TForm1.Button1Click(Remetente: TObject);
começar
se OpenDialog1.Execute então
ShockwaveFlash1.Filme:=
OpenDialog1.NomeArquivo;
fim;
procedimento TForm1.Button2Click(Remetente: TObject);
começar
ShockwaveFlash1.Play;
fim;
procedimento TForm1.Button3Click(Remetente: TObject);
começar
ShockwaveFlash1.StopPlay;
fim;
procedimento TForm1.Button4Click(Remetente: TObject);
começar
ShockwaveFlash1.FreeOnRelease;
fechar;
fim;
Você pode obter o número total de quadros da imagem flash aberta, adicionar um rótulo no painel1 e adicionar um rótulo no formulário1
Escreva o seguinte código no evento OnClick
procedimento TForm1.FormCreate(Remetente: TObject);
começar
label1.caption:=shockwaveflash.totalframes;
fim;
Você também pode controlar a imagem flash aberta para começar a reproduzir a partir desse quadro.
Adicione um botão e um controle de edição no painel1,
Adicione o seguinte código ao evento OnClick do botão.
se ShockwaveFlash1.playing então
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
Preencha o quadro para o qual deseja pular na edição e clique no botão para implementar esta função.
Que tal, experimente, o efeito é muito bom, certo?