- くだすれDelphi(超初心者用)その56
191 ：デフォルトの名無しさん[sage]：2014/12/31(水) 18:30:18.08 ID:j0o4knDn - >>186
ご苦労さんです。
プログラミング的には問題ないと思います。
ただ、アプリとして少々．．．
1. DirectoryListBox1に初期ディレクトリを設定したほうがいい
繰り返し使うと、起動直後が結構メンドクサイ。レジストリや
Iniファイルを使うのが理想的だけど、そこまでしなくても、
MyMusicフォルダを初期値とするとか（SHGetSpecialFolderPathを利用）
2. ボリュームコントロールが少しぎこちない
以下のサイトを参考にするのもいいかも
http://www.swissdelphicenter.ch/en/showcode.php?id=618
3. PlayFileメソッドの入り口で、最低でも拡張子のチェックをしたほうがいい
4. サウンドファイルの拡張子として *.wma もお忘れなく
|
- くだすれDelphi(超初心者用)その56
193 ：デフォルトの名無しさん[sage]：2014/12/31(水) 18:59:23.64 ID:j0o4knDn - ところで、>>186について、どうでもいい感想．．．
同梱の実行ファイルって、こんな小さいなアプリなのに
11MBもあるけど、なんで？
自分の環境（XE）だと、普通にコンパイルして1MB程度だけど
XE5でコンパイルしてるみたいだけど、XE5の問題？
それとも作者がデバッグ情報とか、なんか途方もないものを
実行ファイルに含めてしまってる結果？
|
- くだすれDelphi(超初心者用)その56
195 ：デフォルトの名無しさん[sage]：2014/12/31(水) 20:54:06.19 ID:j0o4knDn - >>194
>wavのボリュームコントロールができなかった気が
確認した。Waveだとダメなんだね。
自分の環境だと、TrackBarを動かすと、イベントが発生しすぎて
再生がギクシャクしてしまう。で、以下のような変更するといい感じ
var
fVolume: DWORD = 0;
function VolumeChange(Pos: Integer):Boolean;
var
Volume:DWORD;
begin
// TrackBar1.Positionが100以上変化した場合のみ音量調整
if Abs(fVolume - Pos) > 100 then begin
Volume := ($FFFF * Pos) div 100;
Volume := MakeLong(Volume, Volume);
waveOutSetVolume(WaveDevID, Volume);
fVolume := Pos;
end;
end;
|