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

  • 主题发起人 主题发起人 conhoney
  • 开始时间 开始时间
C

conhoney

Unregistered / Unconfirmed
GUEST, unregistred user!
采用DELPHI 自身的控件最好,
如果有什么好的控件也行,谢谢大家
急用,只要行,播得出,马上跟分。
 
mmtools里应该有吧
 
就不能详细一点吗?
 
用Delphi自带的TMediaPlayer控件就可以实现。
begin

MediaPlayer1.filename := 'DAT文件名,含路径';
MediaPlay1.Open;
end;
 
MediaPlay太慢了吧
 
to stone08
TMediaPlayer可直接对缓存流进行操作么?而不指定文件名(即,FileName属性)?
期待...
 
我没有测试过MediaPlayer是否太慢,在播放*.DAT文件的时候应该不会
存在速度问题.MediaPlayer用的是WINDOWS的MCI,好多视频控制软件用
的也是这个,应该不会有什么问题.
 
TMediaPlayer就可以了
 
to: tongdings:
应该是可以,看看TMPDeviceTypes
to:conhoney
告诉我信箱,我发一个例子给你.
 
使用 mediaplayer 播放没有图象,声音,是怎么会事????
我的信箱 confientbb@163.com
谢谢。
 
to conhoney:我刚才想把代码发过去,试了几次都提示EMAIL地址无效:(
 
用它 TMediaPlayer 就可以
不可能没图象吧。指定Display看看有没有什么反应.
 
我用tmediaplayer ,但是在播放时,出现如下提示是怎么回事?
mmsystem281 无法播放该文件。请检查文件名或安装支持这种文件类型的驱动程序。
我的文件名对,但不知驱动程序怎么回事,哪里有驱动程序,
或发一份给我zhengyuepo@sohu.com
 
用Mediaplayer可以的,而且较果也可以,使用很简单,你先试吧!
 
在你的程序中加入以下代码, 这个函数是使MediaPlayer支持*.dat这类文件的播放,
你在程序启动时调用这个函数就行了.

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');
result:=false;
end;

freemem(pc,255);
config.Free;
end;
 
to stone08
能给我你的源码么?
给你加分?
 
TO tongdings:留下MAIL
 
kittyhdb@21cn.com
thanks!
 
用cemi的方法就可以了!
就不会出现
“mmsystem281 无法播放该文件。请检查文件名或安装支持这种文件类型的驱动程序”
的错误提示了!
以前我也是这么用的!
 
后退
顶部