1 Star 0 Fork 0

简约/govcl

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
克隆/下载
Form1Impl.go 1.16 KB
一键复制 编辑 原始数据 按行查看 历史
不在乎y 提交于 2018-06-10 01:36 . Synchronization update samples
// 在这里写你的事件
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) {
}
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
Go
1
https://gitee.com/jianyue/govcl.git
git@gitee.com:jianyue/govcl.git
jianyue
govcl
govcl
v1.1.23

搜索帮助