wavの音量をコントロールしたい
解決Personal 6 で勉強中です。
ゲームなどで効果音を出すのにwavファイルをPlaySoundで鳴らしています。この場合最初の一発のタイミングが遅くなってしまうため、対策としてゲームスタートと同時に一発鳴らしておいて実際の効果音のタイミングを合わせています。（２発目からは時間差はなくなります）
最初の一発を目立たなくするためにこの音量を絞るというようなことは可能でしょうか。または鳴らすタイミングの遅れを防ぐような方法があるのでしょうか。よろしくお願いします。
OSは？
絞りたいのはWAVE？ SPEAKER？
開発しているOSはXPですが使用するPCは雑多です。
発する音がなるべく聞こえないようにしたいと思います。
よろしくお願いします。
1度目のタイミングが遅くなるという根本の原因を探った方が良いかと思うのですが、
PlaySoundで鳴らすデータソースは何になりますか？
言い換えればPlaySoundをどのような引数を指定して呼び出していますか？
例えばファイルから（SND_FILENAME）であれば、1度目はファイルアクセスが発生するので遅く、
2度目からはキャッシュが効いて速くなることが考えられます。
その場合はあらかじめメモリにロードしておくことで解決できるかもしれません。
jazzin様。ありがとうございます。
最初のサウンドの遅延はご指摘のようにファイルのアクセスに要する時間の分だけ遅れ、２度目からはキャッシュによって遅延がなくなるものと思います。音を出さずにキャッシュに入れる方法として音量を絞って鳴らすことを考えたものですが鳴らさずにメモリにロードする方法があるとは知りませんでした。現在は次のようにやっています。（見よう見まねです）
procedure SHOOT;
var rs:tresourcestream;
begin
rs:=tresourcestream.create(hinstance,'gun','wave');
playsound(rs.memory, 0, SND_ASYNC or SND_memory);
rs.free;
end;
で、解決ですか？
それとも依然として遅延するんですか？
失礼しました。
現在はこれ（SHOOT）を呼び出すと一発目は遅れ、２発目から即時鳴ります。
皆様ありがとうございました。
メモリーにロードとはどうやれば良いか、などと考えていましたがもしやと思い（何もわからずに）下のようなSHOT0；を作って試してみました。
最初の一発はSHOOT0を起動してメモリに入れ、本番でSHOOTを呼び出したら遅延はなくなりましたので解決とさせていただきました。もしもこのやり方がおかしい/間違っているようでしたらご教示お願いします。ありがとうございました。
procedure SHOOT0;
var rs:tresourcestream;
begin
rs:=tresourcestream.create(hinstance,'gun','wave');
rs.free;
end;
procedure SHOOT;
var rs:tresourcestream;
begin
rs:=tresourcestream.create(hinstance,'gun','wave');
playsound(rs.memory, 0, SND_ASYNC or SND_memory);
rs.free;
end;
こういう時には、アプリの起動時に
rs := TResourceStream.Create(hinstance, 'gun', 'wave');
これだけやっておき
終了する前に
rs.Free;
を行うようにします。
そして必要なときに
PlaySound(rs.memory, 0, SND_ASYNC or SND_memory);
だけを実行するようにすればいいんじゃないでしょうか。
Quest様、ありがとうございます。
よくわからずに作っていましたので参考になりました。
心配してすぐに開放することを考えていましたがご指摘のように起動時にCreateしてClose時に開放すれば良いわけですね？ 早速本体に実装してみます。 ありがとうございました。
| ツイート |  |