TMediaPlayer的怪现象(50分)

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #1

TMediaPlayer控件，想用来录音。
AutoOpen:=False;
AutoEnabled:=False;
DeviceType:=dtAutoSelect;

procedure TForm.Button1Click(Sender: TObject);
begin

with MediaPlayerdo

begin

FileName:='c:/a.wav';
Open;
StartRecording
end
end;


procedure TForm.Button2Click(Sender: TObject);
begin

with MediaPlayerdo

begin

Stop;
Save
end
end;

结果文件长度总为0.

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #2

没有玩过，但我怀疑你这段怎么编译通过的？

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #3

附加功能 将问题提前

 

G

gy1969

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #4

procedure TForm1.Button1Click(Sender: TObject);
begin

with MediaPlayerdo

begin

FileName:='d:/Sex.wav';
Open;
StartRecording;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

with MediaPlayerdo

begin

Stop;
FileName:='d:/test.wav';
//要先指定存下的文件名
Save;
end;

end;

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-25

• #5

gy1969是对的。
DeviceType:=dtAutoSelect;
Procedure TForm.Button1Click(Sender: TObject);
begin

with MediaPlayerdo

begin

FileName:='c:/a.wav';
Open;
如果c:/a.wav为空或找不到的话open时就出错了。

 

C

cheka

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-26

• #6

请继续或结束

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-27

• #7

接受答案了.