[原创]播放mp3文件,lsp源码.支持后台播放

xshrimp

  看了老猫等lisp音乐播放器,猜测了一下估计是采用此方法.

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

(setq tmp (vlax-get w 'controls))

_$ (vlax-dump-object tmp t)
; IWMPControls3: IWMPControls3: Public interface.
;特性值:
;   audioLanguageCount (RO) = 0
;   currentAudioLanguage = 0
;   currentAudioLanguageIndex = 1
;   currentItem = nil
;   currentMarker = 0
;   currentPosition = 0.0
;   currentPositionString (RO) = ""
;   currentPositi
;   isAvailable (RO) = ...不显示带索引的内容...
;支持的方法:
;   fastForward ()
;   fastReverse ()
;   getAudioLanguageDescription (1)
;   getAudioLanguageID (1)
;   getLanguageName (1)
;   next ()
;   pause ()
;   play ()
;   playItem (1)
;   previous ()
;   step (1)
;   stop ()
T

呵呵，所以很多东西其实主要就是用心！

danxingpen

声音好像这样控制：

_$ (setq tmp(vlax-get w 'settings))
#<VLA-OBJECT IWMPSettings2 011ba670>
_$ (vlax-dump-object tmp t)
; IWMPSettings2: IWMPSettings2: Public interface.
;特性值:
;   autoStart = -1
;   balance = 0
;   baseURL = ""
;   defaultAudioLanguage (RO) = 0
;   defaultFrame = ""
;   enableErrorDialogs = 0
;   invokeURLs = -1
;   isAvailable (RO) = ...不显示带索引的内容...
;   mediaAccessRights (RO) = "full"
;   mute = 0
;   playCount = 1
;   rate = 1.0
;   volume = 50
;支持的方法:
;   getMode (1)
;   requestMediaAccessRights (1)
;   setMode (2)
T
_$

danxingpen

呵呵,楼主真的很用心呢,其实不是播放列表也能后台播放的.好像就连歌词也能读出来的,主要就是歌词读出来感觉就是没有用处了................期待楼主写一个完整的出来!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

santalin

花哨，但不实用，没意义

洪少(刀模)

基本不知道怎么回事，要么就全部放出来

luowy

vlax-create-object 这个可以弄很多东西了

aicr317

很好！赞一个！

aicr317

稍微修改了一下，呵呵