HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2022
0109
す²dmmplay を追加したら落ちてしまう。3解決


す²

リンク

2022/1/9(Sun) 21:55:59|NO.94933

grooveやwindows media player は起動が少し遅く、
音楽プレーヤ―を作ろうとしているのですが、
強制終了してしまいます。(強制終了というよりは落ちる感じ?)
(dmmplayを追加したらなってしまいました。)
理由がわかる方、お願いします。
以下内容

#include "hspda.as" #include "hgimg3.as" vload "音楽music.save" screen 0,200,87 title "´Д`" music =dirinfo(4) if peek(music, ) = '"' : getstr music, music, 1, '"' *fastaaa cls dmmload music,0,loopkastreet ; ウィンドウスタイルに目盛り自動表示 ($1=TBS_AUTOTICKS) winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30 ; このトラックバーのウィンドウハンドル取得 hTrackbar = objinfo(stat, 2) sendmsg hTrackbar, $405, 1, 50 sendmsg hTrackbar, $414, 10 ; lparamにウィンドウハンドルが返る if lparam = hTrackbar { sendmsg hTrackbar, $400 basho = stat } dmmplay 0,basho font "",10 mes music mes "ループ再生"+loopaaa button gosub "ループ再生",*loopa button gosub "通常再生",*noloopa ; ウィンドウスタイルに目盛り自動表示 ($1=TBS_AUTOTICKS) winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30 ; このトラックバーのウィンドウハンドル取得 hTrackbar = objinfo(stat, 2) sendmsg hTrackbar, $405, 1, 50 sendmsg hTrackbar, $414, 10 pos 60,20 button "最初から ⇒",*fastaaa button gosub "停止 ■",*stopaaa pos 120,20 button gosub "検索",*ken stop *loopa loopkastreet = 1 loopaaa = "する" vsave "音楽music.save" return *noloopa loopkastreet = 0 loopaaa="しない" vsave "音楽music.save" return *stopaaa mmstop 0 return *ken dialog "mp3;*.wav;*.midi;*.mid",16,"音声ファイル" music=refstr mmstop 0 return



この記事に返信する


す²

リンク

2022/1/9(Sun) 22:35:22|NO.94934

投稿してからhspoggに変えて、.dllファイルを入れましたが、状況は変わりませんでた。



ねんねこ5787

リンク

2022/1/10(Mon) 08:52:39|NO.94937

このスクリプトにはdmminiがありません。確かに私も同じ間違いしました。
以下、修正したスクリプトです。

#include "hspda.as" #include "hgimg3.as" dmmini //音声機能の初期化 vload "音楽music.save" screen 0,200,87 title "´Д`" music =dirinfo(4) if peek(music, ) = '"' : getstr music, music, 1, '"' *fastaaa cls dmmload music,0,loopkastreet ; ウィンドウスタイルに目盛り自動表示 ($1=TBS_AUTOTICKS) winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30 ; このトラックバーのウィンドウハンドル取得 hTrackbar = objinfo(stat, 2) sendmsg hTrackbar, $405, 1, 50 sendmsg hTrackbar, $414, 10 ; lparamにウィンドウハンドルが返る if lparam = hTrackbar { sendmsg hTrackbar, $400 basho = stat } dmmplay 0,basho font "",10 mes music mes "ループ再生"+loopaaa button gosub "ループ再生",*loopa button gosub "通常再生",*noloopa ; ウィンドウスタイルに目盛り自動表示 ($1=TBS_AUTOTICKS) winobj "msctls_trackbar32", "", , $50000000 | $1, 200, 30 ; このトラックバーのウィンドウハンドル取得 hTrackbar = objinfo(stat, 2) sendmsg hTrackbar, $405, 1, 50 sendmsg hTrackbar, $414, 10 pos 60,20 button "最初から ⇒",*fastaaa button gosub "停止 ■",*stopaaa pos 120,20 button gosub "検索",*ken stop *loopa loopkastreet = 1 loopaaa = "する" vsave "音楽music.save" return *noloopa loopkastreet = 0 loopaaa="しない" vsave "音楽music.save" return *stopaaa mmstop 0 return *ken dialog "mp3;*.wav;*.midi;*.mid",16,"音声ファイル" music=refstr mmstop 0 return



す²

リンク

2022/1/10(Mon) 14:05:08|NO.94941

そんなものが必要なのですね。ありがとうございます。



ONION software Copyright 1997-2021(c) All rights reserved.