有谁认为是多媒体方面的老大就接招吧!(可是300分哟!)(300分)

  • 主题发起人 Yamazaki
  • 开始时间
大家帮忙找找mp3引擎的Delphi的源代码吧!谢谢了!
to leechange:
你的方法不错,可还是不知如何控制windows默认的窗口,如fullscreen。
 
第二个问题你可以到 http://www.pchome.net/ch/sw/self/rainplay/去看一下,好象这个
网站的MP3源代码的是国内的唯一的国产货
 
To:第一个问题:
看这个函数:

下面这个函数可以显示是否就绪。(From Borland)

function DiskInDrive(Drive: Char): Boolean;

var ErrorMode: word;

begin

{ make it upper case }
if Drive in ['a'..'z'] then
Dec(Drive, $20);

{ make sure it's a letter }
if not (Drive in ['A'..'Z']) then

raise EConvertError.Create('Not a valid drive ID');

{ turn off critical errors }
ErrorMode := SetErrorMode(SEM_FailCriticalErrors);

try
{ drive 1 = a, 2 = b, 3 = c, etc. }
if DiskSize(Ord(Drive) - $40) = -1 then

Result := False

else

Result := True;

finally
{ restore old error mode }
SetErrorMode(ErrorMode);

end;


end;


 
To:第二个问题:
先编写运行程序(有DLL),然后把DLL的数据追加到EXE代码后面,程序在运行的过程
中通过流方式从数据包中读取所需的数据。

程序文件结构
exe程序 头信息 Dll数据 目录信息

程序实现从自身的EXE文件中读取数据回放的关键是流技术的应用。其实现步骤是:
① 创建EXE文件本身的文件流FS;
② 取得数据包的偏移地址;
③ 通过数据包的头信息计算出数据包的目录信息区偏移地址;
④ 在目录信息区中查找所需的文件及对应的压缩数据的起始偏移、文件大小字节数;
⑤ 拷贝此段数据至文件流FS2;
⑥ 调用解压子程解压文件流FS2。
实现代码与数据的打包过程通过下面的步骤来完成:
① 创建目标文件的文件流FS;
② 建立代码资源文件的文件流FS1;
③ 建立压缩数据包文件的文件流FS2;
④ 把流FS1追加至FS;
⑤ 把流FS2追加至FS;
⑥ 关闭所有流,目标文件生成。
 
我有全部开发经验,只可惜分太少,你也应该知道这好烦
 
to duch_20000:
如果你说的都可行的话,我可以多给分。但是有两个问题:
1。怎么证明你说的都是真的?另意,得看到点实质性的东西才能相信,再说我提问时就说
过,不试过是不会给分的。
2。如果都行,在大富翁中如何多给你分?
 
1、我想你的第一个问题有人已经解答了
2、你必需要外界的dll或者别的,毕竟你不知道他的具体格式,不过包含dll的方法我也有,就是笨了一点
我用BCB做的(自己已经用过了),就是:
你把每个字节的2进制值读出,转化成整型数,在把这值IntToHex转成String,
再在前面加个0x,后面加个,所有数据写入文本文件,象下面这样:
0x02,0xff,0xba,.........,0x23,
0x45,......
在程序中定义一LPSTR,把文本拷贝进就行了,然后在程序中把这些二进制值写回成dll
如果你愿意,也可以在程序结束时删掉它
2、假如你的MediaPlayer在fORM1上,你可以新建一窗口Form2,然后把mediaPlayer的
然后输入:mediaPlayer1.displayrect:=Form.clientrect;
改变form的caption,和大小,任意更改。就象解霸一样,一个窗口控制,一个窗口
显示。
 
播放mp3音乐mediaplayer控件本身就行
 
to 侠客
根本不行,mediaplayer本身不具备解码功能,也要调用windows内的解码程序。
 
用mediaplayer播放vcd时全屏,完全可在另一窗提中显示嘛。
 
如果用第二个窗体的话,窗口关不掉!即按X键无用。
 
Yamazaki:如果你还要继续讨论请定期提前你的帖子,如果不想继续讨论请结束帖子。
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
798
DelphiTeacher的专栏
D
D
回复
0
查看
751
DelphiTeacher的专栏
D
D
回复
0
查看
738
DelphiTeacher的专栏
D
D
回复
0
查看
832
DelphiTeacher的专栏
D
D
回复
0
查看
802
DelphiTeacher的专栏
D
顶部