ab.com コミュニティ

'定義
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")

ローカルにあるファイルの再生に成功しました。
(ファイル名を「test.swf」とします。)
[code]
'定義
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")

[/code]
で、出来ました。とりあえずは、これでフラッシュを表示できたので、良しとします。

ありがとうございました。

> IEコンポーネントを使ってしまえばよいかと思います。
> こちらにABでIEコンポーネントを使う例があります。
> [url]http://www.noppi.jp/diary/?date=20041220[/url]
> アドレスの移動にNavigate2メソッドを使っているそうなので，
> ここにフラッシュファイルのパスを指定すればできると思います。

ありがとうございます。おかげさまで無事、フラッシュを表示することが出来ました。

でもまだ、ローカルにあるフラッシュの表示の方法がわかりません。
さらに、この方法だと他の機能と組み合わせづらいです。
わがまま言って申し訳ないのですが、もうちょっとお知恵をお貸しください。

IEコンポーネントを使ってしまえばよいかと思います。
こちらにABでIEコンポーネントを使う例があります。
[url]http://www.noppi.jp/diary/?date=20041220[/url]
アドレスの移動にNavigate2メソッドを使っているそうなので，
ここにフラッシュファイルのパスを指定すればできると思います。

ActiveBasicでフラッシュ(swfファイル)を画面に表示することは可能でしょうか？

また、可能でしたらヒント（ or 簡単なサンプル）をください。
どうか、お願いします。