少し、簡単なテスト用のサンプルを書いて見ました。
まず、YOYOさんが提示したjw_flv_player.zipをダウンロードして
下さい。そして、そのファイルの中で必要となるのは、flvplayer.swf
だけです。flvファイルを選択したら、playlistのxmlファイルを生成
させます。そして、COMを使ってflvplayer.swfを再生し、その再生したプレーヤー
上でflvを再生させます。こんな感じでしょうか?
#define DEF_WIDTH 300
#define DEF_HEIGHT 170
sdim Sendxml,300
dialog "flv", 16, "flv ファイル"
if stat = 0 : end
Sendxml = "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n"
Sendxml += "<playlist version=\"1\" xmlns=\"http://xspf.org/ns/0/\">\n"
Sendxml += " <trackList>\n"
Sendxml += " <track>\n"
Sendxml += " <title>samples</title>\n"
Sendxml += " <creator></creator>\n"
Sendxml += " <location>"+getpath(refstr,8)+"</location>\n"
Sendxml += " </track>\n"
Sendxml += " </trackList>\n"
Sendxml += "</playlist>\n"
notesel Sendxml
notesave dir_cur+"\\playlist.xml"
sdim sFile,260 : sFile = dir_cur+"\\flvplayer.swf"
axobj flash, "ShockwaveFlash.ShockwaveFlash.1", DEF_WIDTH, DEF_HEIGHT
flash -> "LoadMovie" 0, sFile
flash -> "Play"
delcom flash
stop