急！在线等（多媒体播放器）

Question

用delphi的TMediaPlay写播放器。源代码从书上抄下来的，运行的时候老出现一个对话框，提示如下：'project 程序名.exe raised exception class EMCIDeviceDrror with message 加载指定的设备驱动程序时发生了未知的问题。'.Process stopped.Use Step or Run to continue
请问如何解决

Answer 1

代码贴出来...或者运行了Mediaplayer不支持的文件格式?

Answer 2

我写这里时发现能打开AVI文件，却打不开DAT文件，但直接用Mediaplay放可以打开DAT。

Answer 3

应先指定MedaiPlay要播放的文件类型，一般如
with MediaPlayer do begin
    FileName:='';
    DeviceType := dtAutoSelect;
    open;
    Play;
end;

Answer 4

说说你的文件的类型
MediaPlayer 支持那么多种文件格式。

Answer 5

转，自己翻译。#include <vfw.h>HWND hMCIWnd = NULL;
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    hMCIWnd = MCIWndCreate(Handle, HInstance,
        0, "c:\\AVSEQ07.dat");
    MCIWndPlay(hMCIWnd);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    MCIWndDestroy(hMCIWnd);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (OpenDialog1->Execute()) {
        MCIWndOpen(hMCIWnd, OpenDialog1->
            FileName.c_str(), 0);
        MCIWndPlay(hMCIWnd);
    }
}或播放文件之前改文件名为jpg。