「dsPackPlayer」  V2.1

【ソフトの概要】
再生速度を変更できるシンプルなメディアプレイヤー(インターネットラジオ聴取可)です。

【作者への連絡先】
下記アドレスの「XYZ」を「アットマーク」に変えたアドレス
arihiko2023XYZkamon.ne.jp

【取り扱い種別】
フリーソフト

【動作環境】
Windows11で動作確認しています。

【インストール・アンインストール方法】
任意のフォルダにdsPackPlayer.exeを置いて実行するだけです。
レジストリは変更しません。
いらなくなったら、そのフォルダごと削除すればOKです。

Copyright 2025- Arihiko

//////////////////////////////////////////////////////////////////////////////////////
【特徴】
DirectShowを使用したメディアファイル再生プレイヤーです。
フォームの拡大縮小によって再生画面の大きさを変更できます。
ファイルは[開く]ボタンで次々に登録できて、それらを切り替えて再生できます。
また、関連付け及びドラッグ＆ドロップでファイルを開く事もできます。
また、インターネットラジのプレイリストファイル(m3u8)を開いてラジオ放送を聴く事もできます。
フルスクリーン表示や画像キャプチャーもできます。
プログラム終了時にフォームの位置や大きさを記憶して、次回起動時にその状態で起動します。

【関連付け及びドラッグ＆ドロップでファイルを開く】
☆起動したdsPackPlayer上にエクスプローラ等からメディアファイル(複数可)をドラッグ＆ドロップして開く。
☆メディアファイルをdspackPlayer.exeに関連付けることによって開く。
☆dspackPlayer.exeファイル，あるいはdspackPlayer.exeファイルのショートカットに，エクスプローラ等から
メディアファイル(複数可)をドラッグ＆ドロップして開く。

【画面操作】
[中ボタンクリック] フルスクリーンON/OFF
[右クリック] ポップアップメニュー(メインメニューと同じ機能)表示
[クリック]or[スペースキー] Play/pause切り替え
[マウスホイール] ↑=前へ3ステップ、↓=次へ3ステップ再生位置移動'
[Escキー] フルスクリーン解除

【メインメニュー】
[開く] メディアファイルオープン
[再生] 再生
[ポーズ] ポーズ
[停止] 停止(再生位置が0に戻る)
[削除] 選択しているファイルをリストから外す
[クリア] 再生リストを全クリアする
[形式]→デフォルトは[VMR9] 画像キャプチャー形式選択(VMR9,VMR7,ビデオレンダラ,メディアディテクタ)
[保存] 画像キャプチャー＆保存　(映像ファイルのあるフォルダ+_GENSUNフォルダに保存されます)
[コピー] 画像キャプチャー＆コピー　(クリップボードにコピーされます)
[全画面] フルスクリーン(解除はEscキー)
[アスペクト] アスペクト比のOn/Off (Onがチェック状態)
[速度] 再生速度
[音量] 音量調整
[アバウト] アバウト＆ヘルプ

【再生速度】
スロー0.2～標準速度1.0～倍速2.0まで0.2きざみで再生速度変更できます。

【音量調整】
最小無音0～最大音量10まで1きざみで音量調整できます。
音量表示バーで音の大きさがリアルタイムに視認できます。

【シークバー】
スライダーをマウスでドラッグしで再生位置を変更できます。
クリックしてから、キー入力することによって、[←]前へ1ステップ、[→]次へ1ステップ、
[PgUp]前へ5テップ、[PgDn]次へ5ステップ再生位置移動。
マウスホイールで、向こう側へ転がすと前へ10ステップ、手前に転がすと次へ10ステップ再生位置移動。

【プログレスバー】
クリックで再生位置指定。

【mp4等について】
もしもmp4などのファイルが再生できない場合は，フリーのコーデック「K-Lite Codec Pack」を
インストールすると再生できると思います。
https://codecguide.com/download_kl.htm　の「Download Basic」の「Sever1」または
「Sever2」から『K-Lite_Codec_Pack_****_Basic.exe』をダウンロードしてインストール
してみてください。

【参考資料】
☆ カルト・ドランさんのページ「http://drang.s4.xrea.com/index.html」の
プログラム>Delphi6ローテクTips>マルチメディア>DirectShowで再生
「http://drang.s4.xrea.com/program/tips/dshow/dshow_play_1.html」

☆ DSPackのインストール ～Delphiソースコード集
「https://mam-mam.net/delphi/dspack_install.html」

☆ How do I get a list of installed webcams? [closed]
「https://stackoverflow.com/questions/15981447/how-do-i-get-a-list-of-installed-webcams」
より、const　IID_IPropertyBag : TGUID = '{55272A00-42CB-11CE-8135-00AA004BB851}';

☆ DirectShowの音量調整
private
  { Private 宣言 }
  l_BasicAudio : IBasicAudio;//////////////////////////////////////////////////
 
procedure TForm1.ComboBox1Select(Sender: TObject);
//ファイル選択→再生
var
  l_BasicAudio : IBasicAudio;/////////////////////////////////////////////////////////

  ///////////////////////////////////////////////////////////////////////////////////
  F_GraphBuilder.QueryInterface(IBasicAudio, l_BasicAudio);
  l_basicAudio.put_Volume(-5000); // 最小無音-10000～最大音量0 注意！対数スケール！
  //////////////////////////////////////////////////////////////////////////////////////


【変更履歴】
V1.0  2025/08/09  Delphi12で作りました，Windows11で動作確認しています。
V1.1  2025/08/10  画面キャプチャー機能追加
V1.2  2025/08/11  関連付け及びドラッグ＆ドロップでファイルを開く機能追加。
V1.3  2025/08/11  画面のダブルクリックでのフルスクリーンの記述を忘れていたので追加。
    画面の右クリックでポップアップメニュー(メインメニューと同じ機能)追加。
V1.4  2025/08/11  フォームのサイズを変更しても映像画面の大きさが追従していなかったバグを訂正。
V1.5  2025/08/12  画面のマウスホイールで再生位置変更機能などを追加。
    フォームのクリックでPlay/pauseの切り替え、またマウスホイールで再生位置を前後させる機能追加。
    クリックして再生地を変更できるプログレスバーを追加。
    再生速度の1.7が1,7になっていたバグを訂正。
V1.6  2025/08/15  全画面表示をマウスダブルクリックからマウス中ボタンクリックに変更。
    画面の右クリックポップアップメニューに、再生速度と音量調整を追加。 再生速度の区分を多少変更。
V1.7  2025/08/18  画面の右クリックポップアップメニューの再生速度と音量調整が聞かなかったバグを訂正。
V1.8  2025/08/19  音の大きさがリアルタイムに視認できる音量表示バーチ追加。
また、インターネットラジのプレイリストファイル(m3u8)を開いてラジオ放送を聴取できることの説明文追加。
V1.9  2025/08/28  イン画面のヒント訂正⇒ダブルクリック→中ボタンクリック。
    フルスクリーンのメニュー追加＆解除をEscキーに割当て。
V2.0  2025/08/29  音量に0が表示されてなかったバグを訂正。
    メニューを日本語表記に変更、また幅を自動で多段になるようにした。
V2.1  2025/10/01  画面クリックで動画ポーズしたときに、プログレスバーをクリックすると、再生位置は
　　実際の位置を再生できているのに、プログレスバーが追従していなかったバグを訂正。