代码拉取完成,页面将自动刷新
// 在这里写你的事件
package main
import (
"fmt"
"github.com/ying32/govcl/samples/mp3Player/bass"
"github.com/ying32/govcl/vcl"
)
var (
bassPlayer *bass.TBass
)
func (f *TForm1) OnFormCreate(sender vcl.IObject) {
bassPlayer = bass.NewBass()
f.Timer1.SetEnabled(true)
}
func (f *TForm1) OnFormDestroy(sender vcl.IObject) {
bassPlayer.Close()
bass.BassFree()
}
func (f *TForm1) OnBtnOpenClick(sender vcl.IObject) {
if f.OpenDialog1.Execute() {
fmt.Println(bassPlayer.OpenFile(f.OpenDialog1.FileName()))
mLen, err := bassPlayer.GetLength()
fmt.Println("length:", mLen, ", err:", err)
f.TbPostion.SetMax(int32(mLen))
}
}
func (f *TForm1) OnBtnPlayClick(sender vcl.IObject) {
fmt.Println(bassPlayer.Play(false))
}
func (f *TForm1) OnTimer1Timer(sender vcl.IObject) {
if bassPlayer.IsValid() && bassPlayer.State == bass.PsPlaying {
f.LblTime.SetCaption(bassPlayer.TimeStrLabel())
pos, _ := bassPlayer.GetPosition()
f.TbPostion.SetPosition(int32(pos))
}
}
func (f *TForm1) OnTbVolChange(sender vcl.IObject) {
if bassPlayer.IsValid() {
bassPlayer.SetVolume(int(f.TbVol.Position()))
}
}
func (f *TForm1) OnTbPostionChange(sender vcl.IObject) {
}
此处可能存在不合适展示的内容,页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容,可点击提交进行申诉,我们将尽快为您处理。