ページ 1 ／ 1
フラッシュを･･･
Posted: 2006年2月07日(火) 16:35
by No kidding !
ActiveBasicでフラッシュ(swfファイル)を画面に表示することは可能でしょうか？
また、可能でしたらヒント（ or 簡単なサンプル）をください。
どうか、お願いします。
Posted: 2006年2月07日(火) 17:40
by イグトランス
IEコンポーネントを使ってしまえばよいかと思います。
こちらにABでIEコンポーネントを使う例があります。
http://www.noppi.jp/diary/?date=20041220
アドレスの移動にNavigate2メソッドを使っているそうなので，
ここにフラッシュファイルのパスを指定すればできると思います。
Posted: 2006年2月07日(火) 20:08
by No kidding !
> IEコンポーネントを使ってしまえばよいかと思います。
> こちらにABでIEコンポーネントを使う例があります。
>
http://www.noppi.jp/diary/?date=20041220
> アドレスの移動にNavigate2メソッドを使っているそうなので，
> ここにフラッシュファイルのパスを指定すればできると思います。
ありがとうございます。おかげさまで無事、フラッシュを表示することが出来ました。
でもまだ、ローカルにあるフラッシュの表示の方法がわかりません。
さらに、この方法だと他の機能と組み合わせづらいです。
わがまま言って申し訳ないのですが、もうちょっとお知恵をお貸しください。
Posted: 2006年2月08日(水) 14:48
by ゲスト
ローカルにあるファイルの再生に成功しました。
(ファイル名を「test.swf」とします。)
コード: 全て選択
'定義
Declare Function PathRemoveFileSpec Lib "shlwapi.dll" Alias "PathRemoveFileSpecA" (pszPath As *Char) As Long
Declare Function PathRenameExtension Lib "shlwapi.dll" Alias "PathRenameExtensionA" (ByVal pszPath As String, ByVal pszExt As String) As Long
'紹介してくれたページのソースのMainWnd_CommandButton1_Click内の最初の部分を以下のように改良
Dim ModulePath[MAX_PATH] As Byte
If GetModuleFileName(0, ModulePath, MAX_PATH) = 0 Then Exit Sub
If PathRemoveFileSpec(ModulePath) = FALSE Then Exit Sub
Dim szAddressA[MAX_PATH] As Byte
lstrcpy(szAddressA, "file:///" & MakeStr(ModulePath) & "/" & "test.swf")
で、出来ました。とりあえずは、これでフラッシュを表示できたので、良しとします。
ありがとうございました。