Ruey
µù¥U®É¶¡: 2003-03-12 ¤å³¹: 1698 ¨Ó¦Û: tunglo
²Ä 1 ¼Ó
|
µoªí©ó: ¬P´Á¤G ¤E¤ë 02, 2003 1:47 pm ¤å³¹¥DÃD: ¿ýµ³B²z·½½X(Âà¶K) |
|
|
¨Ó·½:myf1 zb2001
抛¿j¤Þ¥É¡A¿ýµ³B²z·½½X¤½¶}¡A°ª¤â¨Ó¬Ý°Ú¡K¡K
ͪº¥N½X¹ê²{¤F¿ý»s¦UºØ¤£¦P®æ¦¡ªºwavµÀWÀÉ¡A¥i¥H¤£®É¶¡¡A¤£n¯S®í±±¨î¶µ
¦ý¬O¦³´XÓ°ÝÃD¨S¦³¸Ñ¨M¡G
1. µLªk§´µ½¨D±oÁnµªº®É¶¡ªø«×
2.¦³¨Ç¹q¸£©MwinXP¤¤µLªk¼½©ñMP3
3.¦p¦ó±Nwav«á»OÂনMP3®æ¦¡©O
¥N½X: | Declare INTEGER mciSendString IN winmm.DLL STRING ,STRING @,INTEGER ,INTEGER
Buffer=SPACE(100)
¿ýµ¥N½X
if this.caption='¿ýµ'
=mcisendstring("close sound ",@BUFFER,80,0)
if thisform.optiongroup1.value=1
=mcisendstring("open yy.wav alias sound",@BUFFER,80,0)
else
=mcisendstring("open yy1.mp3 alias sound",@BUFFER,80,0)
endif
=mcisendstring("record sound from 0",@BUFFER,80,0)
this.caption='°±¤î'
else
=mcisendstring("stop sound ",@BUFFER,80,0)
if cyinzhi=1
temp=alltrim(cfjl.Á`½s¸¹)+'.wav'
else
temp=alltrim(cfjl.Á`½s¸¹)+'d.wav'
endif
=mcisendstring('save sound '+temp ,@BUFFER,80,0)
yy.wav©Myy1.wav¬O¨Æ¥ý¿ý»s¦nªº¨â²Õ¤£¦P®æ¦¡µÀWÀÉ¡A¦b¦¹ÀÉ¥´¶}¦A¿ý»s¦ÛµM´N¬O¥H«eªº®æ¦¡¡A©ú¥Õ¤F§a¡A¤S¬O¤gê°µªk¡G¡^
¼½©ñ¥N½X
Declare INTEGER mciSendString IN winmm.DLL STRING ,STRING @,INTEGER ,INTEGER
Buffer=SPACE(100)
=mcisendstring("close sound ",@BUFFER,80,0)
=mcisendstring("open "+musicname+" alias sound",@BUFFER,80,0)
=mcisendstring("play sound from 0",@BUFFER,80,0)
play sound from ***(¥i¥H¬O²@¬í¼Æ¡A¨M©w¸õÅD¨ì¬YÂI¼½©ñ) |
_________________ #############################
§Ö¼Ö¶ý«}¨t¦C©¯ºÖ¦v°t,³Ü¤Q¥þÂû´ö~ì¨Ó©¯ºÖ¨º»ò²³æ!!
¾Ç·|VFP¨Ï¥ÎªÌªÀ°Ïªº·j´M,Code¤~·|§ó¦³½ì~
############################# |
|