TMediaPlayerでVCD内の動画ファイルを再生するには？

解決

初心者 2005-04-02 22:38:07 No: 14091

TMediaPlayerでVCD内にある動画ファイル「ｘｘ.DAT」を再生したいです。
ファイルをHDDにコピーして拡張子を「mpeg」に変えるとTMediaPlayerで再生できるのですが、「.DAT」のままだと再生できません。どうしたら再生できるのでしょうか？
AutoOpenプロパティをTrue、DeviceTypeをdtAutoSelectに設定しました。

ヘルプファイルをみると下の書かれており、このままだと再生できない事はわかりました。
＞メディアプレーヤは FileName プロパティで指定されたファイルの拡張子
＞からデバイスの種類を判断しようとします

Delphiはじめたばかりで何もわかりません。もしかしたら初歩的な質問かもしれませんが、ご教示よろしくお願いします。

＠ 2005-04-03 00:40:30 No: 14092

DeviceTypeをdtAutoSelectのとき
は拡張子で自動判別されます

mpegは拡張子を指定しないといけません。
Delphiのコードのままでは認識できないようです。
mpeg拡張子で
順番にエラーであればDeviceTypeを順に実行するようにしましたが
動作しませんでした。
また、バージョンによってエラーの動作が違うようです。

※
unit MPlayer;
の
ソースコードの
・openメソッドのDeviceNameを書き換えることで対応できます。
・自分用に継承して動作変える手もあります。
ソースコードが無い場合は、あきらめて
WinAPIを直接そうさしましょう。MCI_OPEN

http://wisdom.sakura.ne.jp/system/winapi/media/mm3.html

初心者 2005-04-03 06:27:58 No: 14093

レスありがとうございました。
  記入忘れてましたが、Delphi６ Personal版です。
  unit MPlayerのソースコードありません。
  'WinAPI'勉強します。（参照アドレス見ました。むずかしそー。）