谁给我控制左右声道的源码，我就给其我所有的分数(115分)

X

xlf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-27

• #21

to JSP:
能否给个例子，非常感谢！
xxz007@yeah.net

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-27

• #22

我已经成功的用MCI命令控制了左右声道的问题,很简单.
并且我自己就写了这样的一个程序,包括控制DVD文件的
声轨问题.告诉你了,就得给所有的分给我.

如果答应,我就贴上程序.

 

R

roc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-28

• #23

to houling
I sure
E-mail:drroc@21n.com

 

R

roc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-28

• #24

roc to hotling
I have 470
E-mail:drroc@21cn.com

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-28

• #25

uses mmsystem;

const
MCI_SETAUDIO= $873;
MCI_DGV_SETAUDIO_SOURCE_LEFT=1;
MCI_DGV_SETAUDIO_SOURCE_STEREO=0;
MCI_DGV_SETAUDIO_SOURCE_RIGHT=2;
MCI_DGV_SETAUDIO_SOURCE=$4004;
MCI_DGV_SETAUDIO_VALUE=$01000000;
MCI_DGV_SETAUDIO_ITEM=$00800000;

type MCI_DGV_SETAUDIO_PARMS=record
dwCallbackWORD;
dwItemWORD;
dwValueWORD;
dwOverWORD;
lpstrAlgorithmChar;
lpstrQualityChar;
end


procedure sdchange;
var
s: MCI_DGV_SETAUDIO_PARMS
begin

//mediaplayer1 为控件NAME
mciSendCommand(MediaPlayer1.DeviceID,MCI_SETAUDIO,MCI_SET_OFF,integer(@s));
s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_STEREO;
//立体声用这句
// s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_LEFT;
//右声道源
// s.dwValue:=MCI_DGV_SETAUDIO_SOURCE_RIGHT;
//右声道源
s.dwItem:=MCI_DGV_SETAUDIO_SOURCE;
mciSendCommand(MediaPlayer1.DeviceID,MCI_SETAUDIO, MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM ,integer(@s));
mciSendCommand(MediaPlayer1.DeviceID,MCI_SETAUDIO, MCI_SET_ON,integer(@s));
end;



记住给分,我还有好多的好东东...

 

侠

侠客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-28

• #26

procedure TVolForm.SetVolumes(DevId : word;
var VolLeft, VolRight : word);
{volume is set by passing a DWord value with the most
significant word set for the left channel, and the least
significant word set for the right channel. The channels are
set by treating the DWord as a two element array and
setting the two array elements for the Lt and Rt volumes}
var
Error : integer;
TempVol : TVol;
begin

TempVol[vtLeft] := VolLeft;
TempVol[vtRight] := VolRight;
Error := AuxSetVolume(DevId, longint(TempVol));
if Error <> 0 then

MessageDlg('Error Setting Volume : ' + IntToStr(Error),
mtError, [mbOK], 0);
end;

分我一杯羹。

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-28

• #27

怎么还不给分????不讲信用?

 

Z

Zephyr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-29

• #28

哈哈，houling兄的性子还真急啊

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-31

• #29

得了利就忘了本了啊

 

F

fartrip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-07

• #30

houling.请你注意
我需要播入WAV声音文件部分的源代码。
以及你上面的源码，
再加以详细的说明。
发给我。fartripliao@sina.com

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-08

• #31

播放声音文件只要几个function就可以了..
//stop playing a wave file
sndplaysound(nil,snd_async);
//play a wave file
sndplaysound('xlkj.wav',snd_async or snd_loop);
具体用法查看delphi的在线帮助.

我上面用来控制VCD文件播放的左右声道问题已经很详细了.
我不在多说.

 

F

fartrip

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-08

• #32

houling可能我没有怎么说清楚。
我需要全部源码包括怎样利用你上述源码来播放WAV声音
控制声音。

 

H

houling

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-24

• #33

你自己多思考一下,
对你有好处的,,,,

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-01-02

• #34

fartrip:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-03-01

• #35

接受答案了.

 

L

liumingabc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-25

• #36

交个朋友感谢你！ liumingabc@sina.com
我以后有业务和你联系！！

 

S

smallfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-13

• #37

to houling
请发一份控制DVD声道的代码给我,谢谢!
smallfox@yahoo.com
redsuntech@163.net

 

C

cxjnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-05-21

• #38

请问一下DSPACK1。5播放VCD时怎么控制左右声道呢

谢谢

好人好梦