nDiki : イベントハンドラ

Perl エラー ランチャ SWF::DisplayItem SWF::Movie HTTP コマンド プロンプト SWF::TextField イベント ActionScript Pod GUI wxPerl Linux Windows Ming SWF Macromedia Flash

■ Ming でいきなりハマる

一昨日インストールしたMing 0.3 beta 1 + Perl でいろいろ実験。 Ming 関連は資料が少ない。

@ SWFバージョンの設定

SWF::setVersion(6) をしても吐き出されるバージョンは5。 SWF::Movie の Pod に書いてある

 new SWF::MovieWithVersion(6)

はエラー。

結局 xs ファイルを見て、

 SWF::Movie::newSWFMovieWithVersion(6);

なら呼べてバージョン6形式で吐けることを確認。

@ テキストフィールドのインスタンス名? 変数名?

テキストフィールドの onChanged イベント処理のテスト。

SWF::TextField インスタンスに setName で名前を設定して ActionScript から onChanged イベントハンドラを設定するも、ウンともスンとも言わない。 設定した名前に文字列を代入すると表示が書き換えられるはする。 はて。

どうやらMacromedia Flash ではテキストフィールドにインスタンス名と変数名があるようだ。 setName で設定した名前はどっちだったのか? どうやら変数名っぽいのだが。

また手元の本によると onChanged はインスタンス名を指定するらしい。 Ming ではどうする?

いろいろいじったところ、SWF::Movie に add した後の返り値である SWF::DisplayItemオブジェクトに対して setName し、ActionScript でこの名前のインスタンスに対して onChanged にハンドラを与えたところうまく動くようになった。 ということはこれがインスタンス名なのか?

• ActivePerl で Ming (2005-02-23)
• wxPerl で daemon モニタ (2005-03-11)
• ドキュメンテーション大全 (2006-02-15)
• Perl で CR/LF/CRLF 全対応の1行毎読み込み処理 (2006-07-28)
• Ming 0.3 beta 1 を Debian に (2005-02-18)

■ wxPerl で daemon モニタ

Perl で書いた HTTP daemon 形式のシステムがあるのだが、Windows ユーザにとってはコマンド プロンプトからコマンドラインオプションを指定しての起動は繁雑でよろしくないらしい。

以前から管理用のGUIをつけようと思っていたのだが、現在の daemon プログラムにGUIをつけるとするとマルチスレッド化にしなければならないとか、そういう頭があって後まわしにしていた。

今回、まずはランチャと daemon のログモニタというレベルでGUIを作ってみることにした。 wxPerl でランチャを作ってそこから子プロセスとして daemon を起動するという形式。 ランチャ側のアイドルループで、daemon の標準出力・標準エラー出力を読み出して表示するというもの。Linux 上ではうまく動いた。

• Wx::Process でプロセスオブジェクトを生成
• Wx::Process::Redirect() で、I/Oを取れるようにする。
• Wx::ExecuteCommand() や Wx::ExecuteArgs() で daemon を起動。Wx::Process のインスタンスに結びつける。
• EVT_IDLE でアイドルイベントハンドラの中で Wx::Process::GetInputStream、Wx::Process::GetErrorStream からの読み出しを行い defined ならば、UI側で表示。
• daemon の終了がしたかどうかは EVT_END_PROCESS で捕捉。

といった感じ。

• 私的10大ニュース2004 [ comp ] (2004-12-31)
• ActivePerl で Ming (2005-02-23)
• JSmooth で Win32 上でのJava プログラム起動ファイル作成 (2004-12-06)
• ソフトウェア技術者御用達のプロジェクトマネジメントツール TaskJuggler (2007-04-23)
• 第13回 社内 Perl 勉強会 (2006-08-07)