寻求播放 *.dat文件方法(200分)

  • 主题发起人 conhoney
  • 开始时间
对不起,
我的 EM 是
confidentbb@163.com
谢谢大家的关心
mmsystem266 无法播放该文件。请检查文件名或安装支持这种文件类型的驱动程序
是咤会事
 
delphi有问题,建议重装。我以前碰到过的。
 
对了,忘了说了,重装了几次还是不好使。
我再买另一张D碟装上就好了。
 
to:stone08

help me too.
thanks!!!

hulinlinqing@etang.com
 
to stone08

信箱不行么?
 
mailto:

high2point@telekbird.com.cn

or,

kittyhdb@21cn.com

thanks a lot!
 
上面的朋友,对不起,刚开机,已发,查收.
 
windows的所有文件都有相关联的解释程序,例如你点了txt文件,win回自动打开
notepad.exe等.在delphi的tmediaplayer中,如果在注册表中找不到该文件扩张名
对应的Driver(.DLL或OCX),那么再到win.ini中收缩.dat对应的driver,没找到则
提示:"mmsystem266 无法播放该文件。请检查文件名或安装支持这种文件类型的驱动程序"
,所以只要用delphi的tinifile建立.dat对应的driver即可.
 
to wql
可不可以来一个例子
谢谢!!!!
 
???!!!

就是下面的代码啊!

function checksystem:boolean;
var
config:tinifile;
pc:pchar;
ss:string;
begin

result:=true;
getmem(pc,255);
GetWindowsDirectory(pc,255);
config:=tinifile.create(pc+'/Win.ini');
ss:=config.ReadString('mci extensions','dat','');
if ss<>'MPEGVideo' then

begin


config.WriteString('mci extensions','dat','MPEGVideo');

config.WriteString('mci extensions','dat','MPEGVideo2');

result:=false;
end;

freemem(pc,255);
config.Free;
end;

 
用directshow很容易实现你的功能。
 
To: cemi AND wql
您们简直是天才!!!!
Thanks
 

Similar threads

回复
0
查看
886
不得闲
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
顶部