スキップしてメイン コンテンツに移動

ActionScript 3.0 でのSoundのメモリリーク解消方法

ActionScript 3.0のSoundクラスを用いてメモリ上にロードしたサウンドの開放方法が分からなかったので、Google先生で調べてみました。いくつか有用な記事が見つかりました。
Arrayの要素としてSoundオブジェクトを生成、deleteおよびnull代入によって開放を行うようです。

Memory Optimization Flash Action Script 3
AS3 - Working with Sound.

2010/3/25 追記
私もロードされたデータを開放できるSoundクラスを書いてみました。ご自由に利用してください。むむむ、余計な部分があって長過ぎですね。。。

package utils.sound
{
import flash.errors.IOError;
import flash.events.Event;
import flash.events.IOErrorEvent;
import flash.media.ID3Info;
import flash.media.Sound;
import flash.media.SoundChannel;
import flash.media.SoundTransform;
import flash.net.URLRequest;

public class SoundCacheCore
{
public static const LOADING:int = 0;
public static const LOAD_COMPLETE:int = 1;
public static const NO_LOAD:int = 2;

private var _url:String;
private var sound:Array;
private var sndChannel:SoundChannel;
private var _duration:Number;
private var _loadStatus:int = NO_LOAD;
private var _isPlaying:Boolean;
private var _pauseTime:Number;
private var _initialSoundVolume:Number;


public function SoundCacheCore(initialSoundVolume:Number=0.5)
{
this._initialSoundVolume = initialSoundVolume;
}

public function get resourceURL():String {
return _url;
}

protected function playBody():void {
sndChannel = sound[0].play(_pauseTime);
if (sndChannel == null) {
soundVolume = _initialSoundVolume;
}
sndChannel.addEventListener(Event.SOUND_COMPLETE, sndComplete);
_isPlaying = true;
}

public function loadAndPlay(url:String):void {
if (this._url == url) {
if (loadCompleted) {
if (_isPlaying) {
return;
}
else {
playBody();
}
}
}
else {
loadBody(url, completeHandlerForPlay);
}

}

public function play():void {
if (loadCompleted && !_isPlaying) {
playBody();
}
}

protected function loadBody(url:String, completeHandler:Function):void {
if (_loadStatus != NO_LOAD ) {
unload();
}
this._url = url;
this._loadStatus = LOADING;
sound = new Array(1);
sound[0] = new Sound();
sound[0].load(new URLRequest(url));
sound[0].addEventListener(Event.OPEN, sndOpenHandler);
sound[0].addEventListener(IOErrorEvent.IO_ERROR, sndIOErrorHandler);
sound[0].addEventListener(Event.COMPLETE, completeHandler);
}

public function load(url:String):void {
if (this._url == url) {
if (loadCompleted) {
return;
}
}
else {
loadBody(url, completeHandler);
}
}

public function stop():void {
if (sndChannel != null) {
sndChannel.stop();
}

_pauseTime = 0;
_isPlaying = false;
}

// !!KEY PART!!
public function unload():void {
if (_loadStatus == LOADING) {
try{ sound[0].close(); } catch (err:IOError) {}
return;
}
stop();
sndChannel = null;
sound[0].removeEventListener(Event.OPEN, sndOpenHandler);
sound[0].removeEventListener(IOErrorEvent.IO_ERROR, sndIOErrorHandler);
sound[0].removeEventListener(Event.COMPLETE, completeHandler);
delete sound[0];
sound.length = 0;
_loadStatus = NO_LOAD;
this._url = null;
}

protected function sndOpenHandler(evt:Event):void {
_pauseTime = 0;
}

protected function sndIOErrorHandler(evt:IOErrorEvent):void {
this._loadStatus = NO_LOAD;
sound[0].removeEventListener(Event.OPEN, sndOpenHandler);
sound[0].removeEventListener(IOErrorEvent.IO_ERROR, sndIOErrorHandler);
sound[0].removeEventListener(Event.COMPLETE, completeHandler);
}

protected function completeHandler(evt:Event):void {
updateToComplete();
}

protected function completeHandlerForPlay(evt:Event):void {
updateToComplete();
playBody();
}

protected function updateToComplete():void {
_loadStatus = LOAD_COMPLETE;
_duration = sound[0].length;
_pauseTime = 0;
_isPlaying = false;
}

private function get loadCompleted():Boolean {
return _loadStatus == LOAD_COMPLETE;
}

protected function sndComplete(evt:Event):void {
_isPlaying = false;
}

public function get duration():Number {
if (!loadCompleted) {
return 0;
}
return _duration;
}

public function seek(value:Number):void {
_pauseTime = value;
}

public function pause():void {
if(loadCompleted && sndChannel != null){
_pauseTime = sndChannel.position;
sndChannel.stop();
_isPlaying = false;
}
}

public function togglePause():void {
if(loadCompleted){
if (_isPlaying) {
pause();
}
else {
playBody();
}
}
}

public function get time():Number {
if (sndChannel == null) return 0;
return sndChannel.position;
}

public function get loadedBytesPercentage():Number {
if (sound[0] != null) {
return sound[0].bytesLoaded / sound[0].bytesTotal;
}
else {
return 0;
}
}

public function get soundVolume():Number {
if (sndChannel == null) {
return _initialSoundVolume;
}
return sndChannel.soundTransform.volume;
}

public function set soundVolume(value:Number):void {
if (sndChannel == null) return;
var stf:SoundTransform = sndChannel.soundTransform;
stf.volume = value;
sndChannel.soundTransform = stf;
}

public function get id3():ID3Info {
if ( sound[0] == null ) {
return null;
}
return sound[0].id3;
}

public function get isBuffering():Boolean {
if ( sound[0] == null ) {
return false;
}
return sound[0] .isBuffering;
}

public function get loadStatus():int { return _loadStatus; }

public function get isPlaying():Boolean { return _isPlaying; }

}

}

2010/3/13 追記
Flash Playerのガーベッジコレクションについてテストしてみました。
Duke Software: ActionScript 3.0 Garbage Collectionのテスト
2012年7月15日追記:Flash自体、徐々にフェードアウトしていますので、もう改めて購入する必要はないかもしれません。ただ、以下の書籍のうち、ActionScript 3.0 アニメーションAdvanced ActionScript 3.0 Animationは、言語に依存しない話になっていますので、アニメーションに興味がある方は買って損はないと思います。

ActionScript 3.0 逆引きクイックリファレンス
すでに購入困難ですが、網羅的にサンプルが解説されており、非常に便利です。素晴らしい書籍です!何で絶版にしてしまったんでしょうか。。。このSoundのメモリーリークを解決するための記事を書くのに非常に参考になりました。


ActionScript 3.0 アニメーション
アニメーションを勉強するなら、最強の本。ActionScript 3.0以外の言語でも役立ちそうです。懇切丁寧に解説されているので、数学が苦手な人でも十分に理解できると思います。ここから本の中で使われているプログラムをダウンロードできます。筆者のKeith PetersさんのブログはFlashやActionScript 3を使った作品やアイデアが数多く公開されています。必見です!(しかしこれもお値段が高いです。。。)


Advanced ActionScript 3.0 Animation
Keith Petersさんが2008年に執筆された書籍です。内容はゲーム開発の一般知識として必須なものが満載です。邦訳はO'reillyから詳解 ActionScript 3.0アニメーション――衝突判定・AI・3DからピクセルシェーダまでFlash上級テクニックとして出版されています。A*アルゴリズムやらキャラクタの行動方法の実装などがコード付で丁寧に解説されています。これは買いです!

コメント

このブログの人気の投稿

Eclipseでコードカバレッジのハイライトを削除する方法

Eclipseには便利なコードカバレッジ表示機能が搭載されていますが、コード内に緑、赤、黄の色付けがされて煩く感じるときもあると思います。 1度カバレッジの色付けが出てしまった後に消す方法の紹介です(方法は簡単)。 下記のキャプチャの青いマーカーで示した「Remove All Sessions」のボタンを押せばすべて消えます。

「特定の文字から始まらない文字列」にマッチする正規表現

「特定の文字から始まらない文字列」 にマッチする正規表現の例です。  以下の例では、Aから始まらない文字列にマッチする正規表現を示しています。 ^(?!A).*$ 私も正規表現の組み方で四苦八苦することがあります。以下の書籍は実践的に様々な正規表現のパターンを例示してくれているので、重宝しています。

ダイソーで買った200円のドライバーセットでHDDを分解

HDDの処分 最近は個人情報の問題もあって、HDDを処分する前にちゃんとデータの消去を気にすることも多くなってきました。消去方法としては大きく分けて下記の3つがあります。 データ消去ソフトでフォーマット HDD内部のプラッタを物理破壊 データ消去を行ってくれる専門の業者や家電量販店(Sofmapやビックカメラで実施していると思います。費用発生。)に持ち込み。 データ消去ソフトでのフォーマットは簡単ですが、欠点として「フォーマットに時間がかかる」「セクタ破損などで中途半端に壊れたディスクのフォーマットができない」などがあります。 またHDD内部のプラッタの物理破壊については、HDDを分解するために、通常のプラスやマイナスドライバーではなく、星形ネジに対応したトルクスドライバーが必要とのこともあって、少し面倒です。 筆者は今回、今後もHDDの廃棄をするだろうなあと思い、思い切って自分で分解して廃棄することにチャレンジしてみました。(家電量販店に持って行くよりも安くできないかというどケチ丸出しですw) HDDの星形ネジ こんなやつです。ちなみに写真はSeagateのST2000DL003というHDDで撮影しました。 トルクスドライバー というわけで、分解のために Amazonでトルクスドライバー を探しました。 調べると T8のもだと使えそう とのことで、いろいろと物色。 セットのものとか T8一本で立派なやつとか 色々あったのですが、HDD壊すだけで800円かぁ(←どケチ)、と思って購入を躊躇。 ネット上で調べると100円ショップのダイソーでも、トルクスドライバーを販売しているとの情報をキャッチ!近所のダイソーに行って、探したところ星形のヘッド交換に対応した精密ドライバーセットがありました。 プラスが10種類、マイナスが8種類、六角が6種類、星形が6種類(今回ほしかったもの)のセットで、何とお値段税抜き200円!、税抜き200円!と安かったので、ダメもとで購入しました。 結論から言うと 買って大正解 でした。 ダイソーの精密ドライバーセット こんな商品です! 星形対応のヘッドを装着するとこんな感じ。ドライバーのグリップもゴムで滑らない様になっていて使いやす

SQLで特定の文字を組み合わせたランダムな文字列を生成

簡易的な方法として「指定した文字列からランダムに1文字選ぶ」を必要な文字の長さ分concat関数でつなげれば実現できます。 1文字ずつ文字を選ぶので、あまり性能もよくない上、セキュリティ的な観点からのランダム性も担保されていないので、あくまで開発中に必要になった時に使う程度が無難だと思います。 下記に英数字大文字小文字を含んだランダムな3文字の文字列を生成するクエリを示します。 # RAND関数で指定した文字列からランダムに1文字選択。 # 下記の例の62の部分はa~z、A~Z、1~9の文字数の合計値を入れた結果 SELECT CONCAT( SUBSTRING('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ123456789', FLOOR(RAND() * 62 + 1), 1), SUBSTRING('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ123456789', FLOOR(RAND() * 62 + 1), 1), SUBSTRING('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ123456789', FLOOR(RAND() * 62 + 1), 1) ) AS random_string;

PHPの配列(array)のメモリ使用量の考察

はじめに 最近PHP上に大量のデータをメモリ上に展開していたのですが、配列(array)の形式(連想配列 or 単純な配列)や配列の要素のデータ構造(数字、配列、文字列など)で大きくメモリ使用量に差が出てくることに気づき、簡単なプログラムを組んで調べてみました。 あくまで筆者の環境での結果なので、細かい数値は参考程度に見てください。 測定環境と方法 OS: Windows 10 PHP 7.4.5 (php-7.4.5-nts-Win32-vc15-x64) 配列に要素を追加するプログラムを書いて、PHPのmemory_get_usage(true)関数を使って実メモリ使用量を計測しました。 計測結果 No. 方式 1MB当たり作成できる 要素数 プログラム 補足 1 キーも値も整数の配列 (整数IDを想定) 28571 // 2,000,000 / 70MB $row = []; for($i = 0; $i < 2000000; $i++) { $row[] = $i; } No.2~6でテストしたプログラム中の要素数は200,000。これだけ一桁多い! 2 キーが文字列、値が整数の連想配列 8333 // 200,000 / 24MB $row = []; for($i = 0; $i < 200000; $i++) { $row[$i.'_key_string'] = $i; } キーの文字列が長い方がメモリ使用量多くなる。 3 キーが整数、値が連想配列の配列 DBから取得してきたデータを想定 2325 // 200,000 / 86MB $row = []; for($i = 0; $i < 200000; $i++) { row[] = ['id' => $i]; } 4 キーが整数、値が連想配列の配列(配列に複数の値を保持) DBから取得してきたデータを想定 2127 // 200,000 /

ADODB.streamオブジェクトを使って文字列とByte配列を相互変換(Excel VBA)

ADODB.streamオブジェクトを使って文字列をByte配列に変換するコードのサンプルです。 ExcelVBAでADODB.streamを使う際には、 1. ExcelのMicrosoft Visual Basic エディタのメニューバーから「ツール->参照設定」とたどる。 2. 表示されたダイアログからMicrosoft ActiveX Data Objectsにチェックを入れる。 という手順が必要です。 文字列からByte配列へ Private Function ADOS_EncodeStringToByte(ByVal cset As String, ByRef strUni As String) As Byte() On Error GoTo e Dim objStm As ADODB.stream: Set objStm = New ADODB.stream objStm.Mode = adModeReadWrite objStm.Open objStm.Type = adTypeText objStm.Charset = cset objStm.WriteText strUni objStm.Position = 0 objStm.Type = adTypeBinary Select Case UCase(cset) Case "UNICODE", "UTF-16" objStm.Position = 2 Case "UTF-8" objStm.Position = 3 End Select ADOS_EncodeStringToByte = objStm.Read() objStm.Close Set objStm = Nothing Exit Function e: Debug.Print "Error occurred while encoding characters" & Err.Description If objStm Is No

MySQLのSQL_CALC_FOUND_ROWS使用上の注意

MySQLのSQL_CALC_FOUND_ROWSを使用する際の無駄なメモリ消費に注意 ページング機能の実装などのために、ヒットした全件数を取得する必要のある場合があるかと思います。 その場合、下記のようにSQL_CALC_FOUND_ROWSを使うと、検索結果に加えて、そのクエリの全ヒット件数が取得できます。 SELECT SQL_CALC_FOUND_ROWS table.column1, table.column2 ...(途中省略)... FROM table WHERE (条件) しかし、SQL_CALC_FOUND_ROWSを使うと、「絞り込んだ結果にヒットする全べての行の結果のセットを作成する」という大きな欠点があります。 これは、LIMIT, OFFSETを指定していても実行されてしまうので、 SELECTで指定するカラム数やデータ量が多い SELECTの結果返ってくる行数が多い 場合、無駄に領域(≒メモリ)を消費してしまうので注意が必要です。 例えば、100万行検索対象としてヒットするクエリの場合、仮にLIMIT 20と指定して最初の20行を取得するようにクエリを書いても、その100万行分の結果セットが作成されてしまうということになります。 対応策 根本的な対応策としては、SQL_CALC_FOUND_ROWSを使わない(結果行数の取得はCOUNTを用いた別クエリで取得する、結果行数をあらかじめサマリーテーブルに保持しておく)ことですが、 SQL_CALC_FOUND_ROWSをどうしても使う必要がある場合は、 SELECT SQL_CALC_FOUND_ROWS primary_id のように最低限のカラムを指定して結果行セットを取得 (LIMIT OFFSET指定前提) 取得したprimary_idを使って必要なデータを取得 して、SQL_CALC_FOUND_ROWSで使用する領域をできるだけ減らすことで、対応するしかないと思います。 世の中ではLIMIT, OFFSETは使わない方がよいとよく書かれていますが、 SQL_CALC_FOUND_ROWSは、書いてしまえばどんなときも検索にヒットする全結果行セットを作成するので、同じくらい使用する際には注意が必要です。

Visual Studio 2010 SP1のアンインストール

Visual Studio 2013に乗り換えるためにVisual Studio 2010をアンインストールしようとしたところで問題発生。。。 先にVisual Studio 2010本体をアンインストールした後、Visual Studio 2010 SP1をアンインストールできなくて困っていました。 Google先生で調べたところ、以下の情報が見つかり、書かれていた通り実施したところ無事Visual Studio 2010 SP1のアンインストールに成功しました。 How to uninstall/remove Visual Studio SP1 アンインストール手順は以下の通りです。 http://www.microsoft.com/en-gb/download/details.aspx?id=23691 からMicrosoft Visual Studio 2010 Service Pack 1 (Installer)をダウンロード VS10sp1-KB983509.exeというファイル名でダウンロードされる(はず)。 コマンドプロンプトから以下のコマンドを実行 (以下の例は、c:\tempにVS10sp1-KB983509.exeがある場合) c:\temp\VS10sp1-KB983509.exe /uninstall /force ダイアログが立ち上がるので、アンインストールを選択して次へ進めばOK!

WinHttp.WinHttpRequestを使ってHttp PostでByte配列やString配列を送信するプログラム(Excel VBA)

WinHttp.WinHttpRequestオブジェクトを使って使ってHttp PostでByte配列のデータを送信するExcel VBAプログラムです。 WinHttp.WinHttpRequestを使う際には、 1. ExcelのMicrosoft Visual Basic エディタのメニューバーから「ツール->参照設定」とたどる。 2. 表示されたダイアログからMicrosoft WinHTTP Serviceにチェックを入れる。 という手順が必要です。 Byte配列をPOST Private Const BOUNDARY As String = "SOMETHING" Private Function httpPostServletByte(url As String, data() As Byte) As Byte() On Error GoTo e Dim WinHttpReq As WinHttp.WinHttpRequest If (WinHttpReq Is Nothing) Then Set WinHttpReq = New WinHttpRequest End If WinHttpReq.Open "POST", url, False WinHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; boundary=" & BOUNDARY WinHttpReq.send data Dim response() As Byte: response = WinHttpReq.ResponseBody httpPostServletByte = response Set WinHttpReq = Nothing Exit Function e: Set WinHttpReq = Nothing Debug.Print "httpPost Error:" & Err.

MySQL: SELECTの結果をUNIONして ORDER BYする際の最適化方法

SELECTの結果をUNIONして ORDER BY する際には下記の点に注意する必要があります。 無駄なメモリ消費 ソートにINDEXが利かない (≒CPU負荷増大) 対応策 可能であればPush-down Condition (各サブクエリ内でORDER BY, LIMIT, OFFSETを適用してからUNION, ORDER BYを実行する)を利用することで、 パフォーマンスを改善できる場合があります。 下記に例を示します。 もともとのクエリ SELECT tmp.* FROM ( SELECT tableA.column1, tableA.column2 FROM tableA WHERE (条件) UNION ALL SELECT tableB.column1, tableB.column2 FROM tableB WHERE (条件) ) AS tmp ORDER BY tmp.column1, tmp.column2 LIMIT 100, 20 Push-down Conditionを用いて書き直したクエリ SELECT tmp.* FROM ( SELECT tableA.column1, tableA.column2 FROM tableA WHERE (条件) ORDER BY tableA.column1, tableA.column2 LIMIT 30 # <- 10 (offset) + 20 (limit) UNION ALL SELECT tableB.column1, tableB.column2 FROM tableB WHERE (条件) ORDER BY tableB.column1, tableB.column2 LIMIT 30 # <- 10 (offset) + 20 (limit) ) AS tmp ORDER BY tmp.column1, tmp.column2 LIMIT 10, 20 ただしこのPush-down Conditionの手法も下記の場合は、効果が半減しますので注意が必要です。 OFFSETの値が大きい場合は、結局全結果セットUNIONと変わらない サブクエリ内のソートで、INDEXが効かない場合