AB262で使ってます。
プログラム中から、MPEGなどの動画ファイルを直接コールすることって
出来るのでしょうか?
ボタンをセレクトして押して、動画が出てきて、終わると閉じて。
またMENUに戻るようなものをイメージしています。
AB262から動画を
とりあえずAB262から動画を再生
お世話になります。
久しぶりにAB2.62をさわってみました。
サンプル作ってみましたが、突貫のとりあえずバージョンですので参考まで。
> プログラム中から、MPEGなどの動画ファイルを直接コールすることって
> 出来るのでしょうか?
とりあえず「EXEC」で動画ファイル名を直接実行すれば関連付けされた
動画再生プレイヤーが動くことを確認しました。
> ボタンをセレクトして押して、動画が出てきて、終わると閉じて。
ボタン起動も実行確認できました。
しかし、再生後の自動終了はできません。
> またMENUに戻るようなものをイメージしています。
別画面での起動なので、プレイヤーをバッテンすれば後ろに隠れています。
久しぶりにAB2.62をさわってみました。
サンプル作ってみましたが、突貫のとりあえずバージョンですので参考まで。
> プログラム中から、MPEGなどの動画ファイルを直接コールすることって
> 出来るのでしょうか?
とりあえず「EXEC」で動画ファイル名を直接実行すれば関連付けされた
動画再生プレイヤーが動くことを確認しました。
> ボタンをセレクトして押して、動画が出てきて、終わると閉じて。
ボタン起動も実行確認できました。
しかし、再生後の自動終了はできません。
> またMENUに戻るようなものをイメージしています。
別画面での起動なので、プレイヤーをバッテンすれば後ろに隠れています。
[ここをクリックすると内容が表示されます]
コード: 全て選択
'**************************************************************************
'* 動画再生サンプルプログラム
'**************************************************************************
'
'メインウインドウ定義
Window hMainWnd ,0 , 0, 0,900,720,hMainWnd_title$,WS_OVERLAPPED or WS_SYSMENU or WS_VISIBLE or WS_MINIMIZEBOX,"PROMPT"
'背景を塗りつぶし
TargetWnd hMainWnd
Line (0,0)-(900,685),0,BF,RGB(100,50,100)
'ボタン定義
Window hButton1 ,hMainWnd,200,170,200,355,"ボタン1処理" ,WS_CHILD or WS_VISIBLE,"BUTTON",1
Window hButton2 ,hMainWnd,500,170,200,355,"ボタン2処理" ,WS_CHILD or WS_VISIBLE,"BUTTON",2
'
'**************************************************************************
'* メインループ
'**************************************************************************
'
*MainLoop
GetWndMsg hThisWnd,Message,wParam,lParam
If Message=WM_CLOSE Then GoSub *MainMenuEnd
If Message=WM_COMMAND Then
Select Case Int(LOWORD(wParam)/10)
Case 0 'ボタン処理
On LOWORD(wParam) GoSub *Button1,*Button2
End Select
End If
Goto *MainLoop
'
'**************************************************************************
'* ボタン処理
'**************************************************************************
'
*Button1
MsgBox hMsgWnd,"ボタン1処理を実行しますか?",hSubWndTitle$,MB_YESNO or MB_ICONINFORMATION,MsgretAns
If MsgretAns=IDNO Then Return
Exec "TEST1.MPG" ' ← フルパス指定をしてください。(省略時はカレントフォルダ)
Return
'
*Button2
MsgBox hMsgWnd,"ボタン2処理を実行しますか?",hSubWndTitle$,MB_YESNO or MB_ICONINFORMATION,MsgretAns
If MsgretAns=IDNO Then Return
Exec "TEST2.MPG" ' ← フルパス指定をしてください。(省略時はカレントフォルダ)
Return
'
'**************************************************************************
'* 終了処理
'**************************************************************************
'
*MainMenuEnd
END