¡¡¡¡DelphiÊÇInprise(Ç°Borland)¹«Ë¾µÄÓÅÐãµÄ¿ÉÊÓ»¯±à³Ì¹¤¾ß£¬Ëü×Ô´øµÄMediaplayer¿Ø¼þÊÇ¿ª·¢¶àýÌåµÄÀûÆ÷¡£ÓÃËü¼¸·ÖÖӾͿÉÒÔ×ö³öÒ»¸öÏó½â°ÔÒ»Ñù¿ÉÒÔ²¥·Å¶àýÌåÎļþµÄ³ÌÐòÀ´¡£µ«¿ÉÄܺÜÉÙÈËÖªµÀ£¬ÓÃËüÒ²¿ÉÒÔ×öÒ»¸ö¼Òô³ÌÐò¡£

¡¡¡¡ÔËÐÐDelphi£¬ÔÚSystemÒ³ÍÏÒ»¸öMediaplayer¿Ø¼þµ½´°ÌåÉÏ£¬Ä¬ÈÏÃûΪMediaplayer1.ÓÉÓÚÎÒÃǵijÌÐòÊDzÉÓÃ×Ô¼ºµÄ°´Å¥£¬ËùÒÔ½«Mediaplayer1µÄVisibleÊôÐÔÉèÖÃΪFalse£¬ÆäËüÊôÐÔ±£³ÖĬÈÏÖµ¡£ÔÙ·ÅÁ½¸ö°´Å¥Button1ºÍButton2.Button1µÄÊôÐÔName¸ÄΪBtStart£¬Caption¸ÄΪ"¿ªÊ¼Â¼Òô"£¬ Button2µÄÊôÐÔName¸ÄΪBtStop£¬Caption¸ÄΪ"ֹͣ¼Òô"£¬EnabledÊôÐÔ¸ÄΪFalse.È»ºóÇл»´°¿Úµ½´úÂë´°¿Ú£¬¿ªÊ¼Êéд´úÂë¡£

¡¡¡¡³ÌÐòÖУ¬ÎÒÃǶ¨ÒåÁËÒ»¸öWavÎļþµÄÎļþÍ·¸ñʽ£¬Â¼ÒôʱÏÈ´´½¨Ò»¸öÖ»ÓÐÎļþÍ·µÄWavÎļþ£¬È»ºó½«Mediaplayer1¼ÖÆÏÂÀ´µÄÉùÒôд½øÎļþ¡£ÆäÖÐCreateWav¹ý³ÌµÄ¼¸¸ö²ÎÊýÒâÒåÈçÏ£ºµÚÒ»¸öchannels´ú±íÉùµÀ£¬È¡1ʱ´ú±íµ¥Éù£¬È¡2ʱ´ú±íÁ¢ÌåÉù¡£resolutionÒ²Ö»ÓÐÁ½¸öÖµ¿ÉÒÔÑ¡Ôñ£¬È¡8ʱ´ú±í8λÉùÒô£¬È¡16ʱ´ú±í16λÉùÒô£¬rateÔò´ú±íÉùÒôƵÂÊ£¬Èç11025£¬22050£¬ 44100.ÖµÔ½´óÔòÉùÒôÔ½ÇåÎú£¬µ±È»£¬Ëù¼ÖƵÄÎļþÒ²Ô½´ó¡£×îºóÒ»¸ö²ÎÊýÔò´ú±í¶ÔÓ¦µÄÎļþÃû³ÆÁË¡£ËùÒÔCreateWav¿ÉÒÔÓÐÒÔÏÂÐÎʽ£º

¡¡¡¡CreateWav(1£¬8£¬11025£¬'C£ºabc.wav');//ÔÚCÅ̸ùĿ¼Ï´´½¨Ò»¸ö8λµ¥ÉùµÀƵÂÊΪ11025µÄÃûΪabc.wavµÄWavÎļþ

¡¡¡¡CreateWav(2£¬16£¬44100£¬'C£ºabc.wav');//ÔÚCÅ̸ùĿ¼Ï´´½¨Ò»¸ö16λÁ¢ÌåÉùµÀƵÂÊΪ44100µÄÃûΪabc.wavµÄWavÎļþ

¡¡¡¡Íâ¹úÒ»¸öºÜ³öÃûµÄÓÃDelphi±àдµÄÔ¶³Ì¿ØÖÆÈí¼þNetbusÓÐÒ»¸öÉùÒô¼àÌý¹¦ÄÜ£¬¾ÍÊÇÓñ¾Îĵķ½·¨Ð´µÄ¡£ËüÏȰѶԷ½µÄÉùÒô¼ÖÆÏÂÀ´£¬È»ºó´«ËÍ»ØÀ´£¬´ïµ½¼àÌý¶Ô·½µÄÄ¿µÄ¡£µ±È»£¬Ç°ÌáÊǶԷ½±ØÐë°²×°Óл°Í²£¬·ñÔò¼àÌýµ½µÄÊǶԷ½²¥·ÅµÄÉùÒô(Èç´ò¿ª½â°Ô»òÕßReadplay²¥·Å£¬ÔËÐб¾³ÌÐò£¬¾Í¿ÉÒ԰Ѳ¥·ÅµÄÉùÒô¼ÖÆÏÂÀ´ÁË)¡£

¡¡¡¡Êµ¼ÊÉÏ£¬ÏÖÔÚµÄÍøÂçÉùÒô´«²¥¼¼ÊõÒѾ­·¢Õ¹µ½Ò»¶¨½×¶Î£¬ÓïÒô¶Ô½²ºÍIPµç»°µÈÒ²¿ªÊ¼³ÉÊì¡£²»¹ýËüÃDzÉÓõÄÊÇVOX¸ñʽ»òÕßACM¸ñʽ£¬¾ßÌå´úÂë¿ÉÒÔÔÚÎÒµÄÖ÷Ò³http://Lovejingtao.126.comÏÂÔØ¡£µ«Èç¹û¶ÔVOX»òÕßACM¸ñʽ²»ÊìϤµÄÅóÓÑ£¬Ò²¿ÉÒÔÓñ¾Îĵķ½·¨À´ÖÆ×÷×Ô¼ºµÄ¡°Â¼Òô»ú¡±¡£ÖÁÓÚÈçºÎµ÷ÓÃϵͳ×Ô´øµÄavifil32.dllÀ´½øÐÐÍøÂçÊÓƵ²¥·Å£¬ÔÚÓлú»áʱÔÙ¸ú´ó¼Ò½»Á÷°É¡£

¡¡¡¡±¾³ÌÐòÔÚPwin98+Delphi5ÏÂͨ¹ý¡£

¡¡¡¡unit Unit1;

¡¡¡¡interface

¡¡¡¡uses

¡¡¡¡Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

¡¡¡¡StdCtrls, MPlayer;

¡¡¡¡type

¡¡¡¡TWavHeader = record //¶¨ÒåÒ»¸öWavÎļþÍ·¸ñʽ

¡¡¡¡rId : longint;

¡¡¡¡rLen : longint;

¡¡¡¡wId : longint;

¡¡¡¡fId : longint;

¡¡¡¡fLen : longint;

¡¡¡¡wFormatTag : word;

¡¡¡¡nChannels : word;

¡¡¡¡nSamplesPerSec : longint;

¡¡¡¡nAvgBytesPerSec : longint;

¡¡¡¡nBlockAlign : word;

¡¡¡¡wBitsPerSample : word;

¡¡¡¡dId : longint;

¡¡¡¡wSampleLength : longint;

¡¡¡¡end;

¡¡¡¡TForm1 = class(TForm)

¡¡¡¡MediaPlayer1: TMediaPlayer;

¡¡¡¡BtStart: TButton;

¡¡¡¡BtStop: TButton;

¡¡¡¡procedure CreateWav(channels : word; resolution : word; rate : longint; fn : string);//×Ô¶¨Òåдһ¸öWavÎļþÍ·¹ý³Ì

¡¡¡¡procedure BtStartClick(Sender: TObject);

¡¡¡¡procedure BtStopClick(Sender: TObject);

¡¡¡¡private

¡¡¡¡{ Private declarations }

¡¡¡¡public

¡¡¡¡{ Public declarations }

¡¡¡¡end;

¡¡¡¡var

¡¡¡¡Form1: TForm1;

¡¡¡¡implementation

¡¡¡¡{$R *.DFM}

¡¡¡¡procedure TForm1.CreateWav( channels : word; { 1(µ¥Éù)»òÕß2(Á¢ÌåÉù) }

¡¡¡¡resolution : word; { 8»òÕß16,´ú±í8λ»ò16λÉùÒô }

¡¡¡¡rate : longint; { ÉùÒôƵÂÊ,Èç11025,22050, 44100}