如何在dll中播放wav?(100分)

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #1

我的程序在动态库中的form的创建里面用到了
mediaplayer1.open;
跟踪到此时就停下来了.
另外,我的dll是原来的项目改的.
我在动态库的输出函数中播放动态库没有声音!
library pro;
uses
....
procedure PlayWav;
begin

MediaPlayer1.Open;
MediaPlayer1.Play;
end;
exports
PlayWav index 1;
begin

Application.CreateForm(....);
end;

 

T

tqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #2

使用API不行吗？PlaySound

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #3

我以前用的就是mediaplayer,要改成api时间不允许!
我很急,请帮帮忙!
谢谢!

 

L

lhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #4

1.按您的FORM上的Mediaplayer的Play按钮,是否能播放?
2.静态连接,不要用DLL,是否能播放?(连接unit,然后调用PlayWav)
3.我也曾经碰到过DLL的问题.我用BCB3做了个DLL,我一调用DLL中
的函数,就引发例外,跟踪却找不到错误.而且,我将DLL的所有文
件连接到工程,同样调用,就完全正常了所以:
4.最好不用VCL写DLL.

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #5

我用动态库是为了避免多余的代码是exe文件太大!

 

L

lhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-04-28

• #6

用DLL肯定使系统的整个体积加大(EXE+DLL).
因为:
1.如用BPL和Runtime DLL,要带几个1.XXMB的BPL/DLL,系统的总大小肯定增加
2.不用BPL/Runtime DLL,则DLL和EXE都要连接VCL,自然增加总体积.
所以,建议您不用DLL.

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-05-10

• #7

既然这个问题没有结局,就换一个吧!
那位有封装tapi的控件.
用api拨号的控件(source).
<a href="mailto:xftang@shtdu.edu.cn">Email:xftang@shtdu.edu.cn</a>
谢谢!

 

H

huizhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-22

• #8

接受答案了.

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-21

• #9

to tqz:
用mciSendCommand
to huizhang:
要求收回此问题

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-21

• #10

procedure PlayWav;
begin
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

你的mediaplayer1在哪定义的?

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-22

• #11

to Anthoer_eYes:
放在form上的呀!

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-22

• #12

那您的程序有错误(至少你贴出来的)
procedure PlayWav;
<----这是全局函数, 不是类方法
begin
MediaPlayer1.Open;
<----全局变量中并不存在名为Mediaplayer1的变量
MediaPlayer1.Play;
end;

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-22

• #13

我跟踪了一下,执行了,但没有声音,请老兄指点

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-22

• #14

library pro;
uses
....
var
form1 : TForm1;
procedure PlayWav;
begin
form1.MediaPlayer1.Open;
form1.MediaPlayer1.Play;
end;

procedure InitForm;
begin
if not assigned(form1) then
form1 := TForm1.Create(Application);
end;

procedure CloseForm;
begin
if assigned(form1) then
begin
form1.free;
form1 := nil;
end;
end;

exports
PlayWav index 1,
InitForm index 2,
CloseForm index 3;
begin
end;

这样行吗? (先打开, 再放音, 最后关闭)

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-11

• #15

接受答案了.

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-22

• #16

晓刚：
这个问题我还没打算结束呀 ：（（（（（
我连这里太辛苦了，几乎连不上来， ：（