[原创]我也来个mp3播放器. V1.0

xshrimp

我也来个mp3播放器. V1.0

xshrimp

核心代码

2. ;;;xshrimp 2010.8.16(defun gps->wmplayer (filename / w)  (vl-load-com)      (if (findfile filename)     (progn       (setq #wmplayer# (cond (#wmplayer#)((vlax-create-object "wmplayer.ocx"))))       (vlax-put-property #wmplayer# 'URL filename)     )  )  );;;播放,暂停,停止等.(defun gps->wmplayercontrols (cont)  (vlax-invoke-method    (vlax-get-property #wmplayer# 'controls)   cont  )) ;;;声音控制.;;;volume 取值0-100 (defun gps->wmplayervolume (volume)  (vlax-put-property     (vlax-get-property #wmplayer# 'settings)     'volume    volume  ) )

;;;xshrimp 2010.8.16(defun gps->wmplayer (filename / w)  (vl-load-com)      (if (findfile filename)     (progn       (setq #wmplayer# (cond (#wmplayer#)((vlax-create-object "wmplayer.ocx"))))       (vlax-put-property #wmplayer# 'URL filename)     )  )  );;;播放,暂停,停止等.(defun gps->wmplayercontrols (cont)  (vlax-invoke-method    (vlax-get-property #wmplayer# 'controls)   cont  )) ;;;声音控制.;;;volume 取值0-100 (defun gps->wmplayervolume (volume)  (vlax-put-property     (vlax-get-property #wmplayer# 'settings)     'volume    volume  ) )

(gps->wmplayer "D:\\mp3\\09.mp3")(gps->wmplayercontrols 'pause) ;暂停(gps->wmplayercontrols 'play)  ;播放(gps->wmplayercontrols 'stop)  ;停止(gps->wmplayervolume 50)       ;控制音量;;;(vlax-release-object #wmplayer#)
当采用播放列表时,支持后台播放(gps->wmplayer "D:\\123.m3u");支持播放列表播放列表格式如下即可#EXTM3Ud:\mp3\06.mp3d:\mp3\09.mp3d:\mp3\19.mp3

danxingpen

一群牛人啊!重复选项没有搞?无序或者顺序,循环播放,,,,,,,,,,,,,,,,,,

danxingpen

bug汇报!

1、如何退出？点取消是后台播放可以理解，点对话框的关闭还是后台播放？

2、已经第一次选择了目录并开始播放，这个时候再选择第二个目录的歌曲，然后列表好像都乱了，歌曲名和播放的歌曲都不对了！

xshrimp

点击停止按钮(方块)终止啊
目前只支持第一个目录选择,有空再增加吧.

其他的功能,循环等,下次有空再增加吧.

dabao146

真是牛人呀！

bianjia2006

牛人，什么时候也弄个CAD  中的QQ出来吧，那个太实用了。呵呵

nuts26173802

谢谢楼主分享!学习了

dkj0322

谢谢楼上的分享，看参考下，很感激！

huahuazi

支持一下 好东西