Flash は Macromedia によって作成され、インターネット上の動的でインタラクティブな衝撃波に使用されます。その
サイズが小さく、ダウンロードしながら再生できるため、長時間待たされることがないのがメリットです。
FLASH を使用すると、アニメーションを生成したり、Web ページにサウンドを追加したりできます。この方法により、ファイル サイズを小さく保ちながら、マルチメディア グラフィックスとインターフェイスを生成できます。
FLASH は言語のようにプログラムすることはできませんが、組み込みステートメントを次の言語と組み合わせて使用できます。
javaSCRipE を使用すると、非常にインタラクティブなホームページを作成することもできます。
FLASH のもう 1 つの特徴は、ブラウザで受け入れられるようにプラグイン PLUG-IN をインストールする必要があることです。もちろんこれも
ブラウザ間の違いを避け、同等に扱います。
でも、知っていますか？ Delphi では、Flash アニメーションを直接開いて、再生と停止を制御できます。あなたはまだ
総フレーム数を取得することはできますか?こちらです。
Delphiのコンポーネント| ActiveXコントロールのインポート...で「Shockwave」を選択します
Flash (バージョン 1.0)」を選択して「インストール」をクリックすると、インストールウィンドウが表示されます。
既存のパッケージに追加する場合は、「既存のパッケージに追加」ダイアログボックスで
[ファイル名:] ウィンドウでインストールするパスを選択し、[OK] をクリックすると、確認ダイアログ ボックスが表示されます。
「パッケージ dclusr50.bpl が再構築されます。続行しますか?」と尋ねられたら、ポップアップ ウィンドウで「はい」をクリックします。
「インストール」をクリックするだけでプラグインがインストールされます。
新しいパッケージに追加する場合は、「新しいパッケージへ」ダイアログボックスの「ファイル」をクリックします。
name:」ウィンドウで、インストールするパスを選択し、test という名前の場合は新しいパッケージを作成して、「OK」をクリックします。
「パッケージtest.bplがビルドされます。続行しますか?」と聞かれるので、「はい」をクリックします。 ポップアップウィンドウで注文する
「インストール」をクリックするとプラグインがインストールされます。
この時点で、コントロール バーの ActiveX の下に ShockwaveFlash という名前の新しいコントロールが表示されます。
それをクリックしてフォームに配置し、OpenDialog コントロールとパネルをフォームに配置して、
4 つのボタンのキャプション属性は、それぞれ「Openfile」、「Play」、「Stop」、「Close」という名前です。
パネル 1 では、ShockwaveFlash の Align プロパティはそれぞれ、これら 4 つの Alleft と AlClient です。
Button の OnClick イベントに次のコードを記述します。
手順 TForm1.Button1Click(送信者: TObject);
始める
OpenDialog1.Execute の場合
ショックウェーブフラッシュ1.ムービー:=
OpenDialog1.ファイル名;
終わり;
プロシージャ TForm1.Button2Click(送信者: TObject);
始める
ShockwaveFlash1.Play;
終わり;
プロシージャ TForm1.Button3Click(送信者: TObject);
始める
ShockwaveFlash1.StopPlay;
終わり;
プロシージャ TForm1.Button4Click(送信者: TObject);
始める
ShockwaveFlash1.FreeOnRelease;
近い;
終わり;
開いているFlash画像の総フレーム数を取得し、panel1にラベルを追加し、form1にラベルを追加できます。
OnClick イベントに次のコードを記述します。
プロシージャ TForm1.FormCreate(送信者: TObject);
始める
label1.caption:=shockwaveflash.totalframes;
終わり;
開いたフラッシュ画像をそのフレームから再生を開始するように制御することもできます。
パネル1にボタンと編集コントロールを追加します。
次のコードをボタンの OnClick イベントに追加します。
ShockwaveFlash1.playing の場合
ShockwaveFlash1.GotoFrame(SpinEdit1.Value);
ShockwaveFlash1.Play;
編集内でジャンプしたいフレームを記入し、ボタンをクリックしてこの機能を実装します。
どうですか、試してみてください、効果はかなり良いですよね？