delphi中哪个控件可以播放mpeg文件?

Question

M$ MediaPlayer 7的ActiveX或TMediaPlayer。

Answer 1

我按照几位高手说的配置system.ini和win.ini，在system.ini里面的[mci]节里加MPEGVideo=mciqtz.drv，
在win.ini里面的[mci extensions]小节里加mpg=MPEGVideo，还是不能用 TMediaplayer播放mpeg文件，
哪位还有什么办法，或者是有能够播放mpeg文件的控件吗，我先谢谢了，如果有控件给我发一个:[email protected]

Answer 2

安装 Xing 后
直接用 TMediaPlayer .或者使用MCI。
播放mpeg用mci,如下(一位网友的代码，我没试过，应该没有问题)
打开设备
            MCIERROR mciError;
            char outBuf[100];
            AnsiString Cmd="open ";
            Cmd=Cmd+File+ " type sequencer alias "+Alias;
            // File:mpeg文件
            mciError=mciSendString(
                Cmd.c_str(),outBuf,sizeof(outBuf),File);
            if(mciError)
            {
                mciGetErrorString(mciError,outBuf,sizeof(outBuf));
                Application->MessageBox(outBuf,"错误",
                    MB_SYSTEMMODAL+MB_OK+ MB_ICONSTOP);
            }
播放mpeg
            AnsiString Cmd="play ";
            Cmd=Cmd+" "+Alias+" notify";
            HWND hWnd=Application->Handle;
            MCIERROR mciError=mciSendString(Cmd.c_str(),NULL,0,hWnd);
            if(mciError)
            {
                char Buf[100];
                mciGetErrorString(mciError,Buf,sizeof(Buf));
                Application->MessageBox(Buf,"错误",
                    MB_SYSTEMMODAL+MB_OK+ MB_ICONSTOP);
            }
停止播放
            MCIERROR mciError;
            AnsiString Cmd="stop ";
            Cmd=Cmd+Alias;
            mciError=mciSendString(Cmd.c_str(),NULL,0,NULL);
            if(mciError)
            {
                char Buf[100];
                mciGetErrorString(mciError,Buf,sizeof(Buf));
                Application->MessageBox(Buf,"错误",
                    MB_SYSTEMMODAL+MB_OK+ MB_ICONSTOP);
            }
关闭设备
            AnsiString Cmd="close ";
            Cmd=Cmd+Alias;
            mciSendString(Cmd.c_str(),NULL,0,NULL);