【HSP3】GOM PlayerをHSPで操作してみるサンプル | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
    tt = "GOM PlayerをHSPで操作してみるサンプル"
    // GomXの設置
    axobj GomX, "{632CC9D6-5602-4854-AFD2-6EFC59177DE5}", 640, 480
    // イベントの登録
    comevent GomXEvent, GomX, "{46899D92-473E-413E-9F47-8D0765860AE9}", *event
    // プログラム情報のダイアログ表示
        ;GomX->"AboutBox"
        
    // バージョン取得
        ;dialog GomX("Version")
        
    // 表示スタイル
        ; -mode:normal  デフォルト、コントロールあり
        ; -mode:nude    コントロールなし
        ;GomX("UiMode") = "-mode:nude"
    
    // 0 にすると右クリックメニューを無効にする
        ;GomX("EnableContextMenu") = 0
    
    // 操作を有効にするかどうか？ 0 だと操作できなくなる
        ;GomX("Enabled") = 0
    
    // （詳細不明）メッセージを有効にするかどうか？ デフォルト 0
        ;GomX("EnableMessage") = 1
    
    // 開いたら自動再生するかどうか？ 1 で自動再生
        GomX("AutoStart") = 1
    
    // レンダラーモード
        ;0 = システム既定
        ;1 = Overlay Mixer(指定しないとデフォはこちら？)
        ;2 = Video Renderer
        ;3 = VMR7 Windowed mode
        ;4 = VMR9 Windowed mode
        ;5 = VMR7 Renderless mode
        ;6 = VMR9 Renderless mode
        ;7 = Enhanced Video Renderer
        GomX("RenderMode") = 0
    
    // アスペクト比の維持 1だと無視する 再生中にやるとうまくいかない？
        ;GomX("StretchToFit") = 1
    
    // ファイル名の指定(http、rtspとかでもOKみたい)
        dialog "*", 16
        if stat == 0 : end
        GomX("Url") = refstr
        
    // 用途不明
        ;GomX("SubUrl") = "ファイルのパス"
    // ファイルの再生
        GomX->"play"
    
    // ファイルフォーマット取得
        ;dialog GomX("GetMediaFormat")  // GomX->"GetMediaFormat" を実行し comresで変数に返却
    
    // 停止
        ;GomX->"stop"
    
    // 一時停止
        ;GomX->"pause"
    
    // 再生速度 1.0 を基準とする
        ;GomX("Rate") = 2.0 ; 2倍速で再生
    
    // ミュート設定 1 でミュートする
        ;GomX("Mute") = 1
        
    // 左右スピーカーバランス？ デフォルトが50
        ;GomX("Balance") = 0
    
    // 音量 デフォルトが50 0～100 まで指定
        ;GomX("Volume") = 50
    
    // フルスクリーンモード 1 でフルスクリーンになる
        ;GomX("FullScreen") = 1
        
    // (用途不明) サブタイトルを有効にするかどうか？
        ;GomX("EnableSubtitle") = 0
        
    // (用途不明) サブタイトルのサイズを指定？
        ;GomX("SubtitleSize") = 0
    // (用途不明) サブタイトルのモードを指定？
        ;GomX("SubtitleMode") = 0
        
    // (用途不明) ロゴの指定？
        ;GomX("LogoUrl") = "画像ファイルのパス？"
    
    // (用途不明) スピーカーモード？ スピーカーのチャンネル数と思われる
        ;GomX("SpeakerMode") = 1
    
    // ビデオの幅を取得
        ;dialog GomX("GetVideoWidth")   // もしくは GomX->"GetVideoWidth" を実行し comresで変数に返却
        
    // ビデオの高さを取得
        ;dialog GomX("GetVideoHeight")  // もしくは GomX->"GetVideoHeight" を実行し comresで変数に返却
    
    // 10秒先送りする
        ;GomX->"fastForward"
        
    // 10秒巻き戻す
        ;GomX->"fastRewind"
    
    // 30秒の位置にシークする
        ;GomX("CurrentPosition") = 30.0
    
    // 動画の静止画キャプチャを保存 保存するファイルのパスを指定
    // BMPとJPEG形式に対応している模様
        ;GomX->"CapImageFile" "C:\\dump.jpg"
    
    // （キャプチャ関連のようだが用途不明）
    // AsyncCapture(BSTR sSrcPath,BSTR sDstPath, long dSec)
        ;GomX->"AsyncCapture" "入力パス？", "出力パス？", 0 // 整数値
    
    // （用途不明）コマンド？
        ;GomX->"Command" "何が指定できるか不明"
        
    repeat
    
        // 現在時間を文字列で取得
            ;GomX("CurrentPositionString")
            
        // 合計時間を文字列で取得
            ;GomX("DurationString")
            
        // 現在時間を小数(秒)で取得
            ;GomX("CurrentPosition")
            
        // 合計時間を小数(秒)で取得
            ;GomX("Duration")
            
        // 再生状態を取得 4 = 再生中, 3 = 一時停止, 2 = 停止, 1 = 不明, 0 = クローズ状態
            ;GomX("GetPlayState") // もしくは GomX->"GetPlayState" を実行し comresで変数に返却
            switch GomX("GetPlayState")
                case 0
                    st = "クローズ" : swbreak
                case 1
                    st = "不明(1)" : swbreak
                case 2
                    st = "停止中" : swbreak
                case 3
                    st = "一時停止中" : swbreak
                case 4
                    st = "再生中" : swbreak         
                default
                    st = "不明(それ以外)" : swbreak
            swend
        title tt + " "+ GomX("CurrentPositionString") + "/" + GomX("DurationString") + " " + st
        
        wait 12
    loop
    
stop
*event
    // イベントの処理
    dispid = comevdisp(GomXEvent)
    switch dispid
        case 1  // ストリームが最後まで到達した場合 EndOfStream(long Result)
            dialog "最後まで再生したよ！"
            swbreak
        case 2  // エラーが発生した GomxError(long ErrorCode)
            comevarg e, GomXEvent, 0, 0
            dialog "エラーコード: "+e+" のエラーが発生しました"
            swbreak
        case 3  // プレイヤーの状態が変更された GomxState(long State)
            comevarg state, GomXEvent, 0, 0
            logmes str(state)
            swbreak 
        default
            swbreak
    swend
return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX