盒子论坛 v2.1

RT。但 Delphi 自带播放器例子不会产生杂音。
源码：https://sourceforge.net/projects/mcool/
APK下载：http://diystar.cnblogs.com/
----------------------------------------------
http://mcool.appinn.me/

作者：

diystar (diystar)	★☆☆☆☆	-
	普通会员

2017/2/18 17:41:20

1楼：

自己解决了：

原代码

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Progress:=Round(BASS_ChannelBytes2Seconds(Stream,Bass_ChannelGetPosition(Stream,BASS_POS_BYTE)));
  TrackBar1.Value:=Progress;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  BASS_ChannelSetPosition(stream, BASS_ChannelSeconds2Bytes(stream,TrackBar1.Value), BASS_POS_BYTE);
end;

可以看到定时器内不断重复执行 TrackBar1 的 OnChange 事件，这时不产生杂音才怪..

需要加上一些处理代码：

procedure TForm1.Timer1Timer(Sender: TObject);
var
  LEvent: TNotifyEvent;
begin
  LEvent := TrackBar1.OnChange;
  TrackBar1.OnChange:=nil;
  Progress:=Round(BASS_ChannelBytes2Seconds(Stream,Bass_ChannelGetPosition(Stream,BASS_POS_BYTE)));
  TrackBar1.Value:=Progress;
  TrackBar1.OnChange:=LEvent;
end;

这个处理代码在 Delphi 自带播放器例子中是有的，怪我没看仔细..
----------------------------------------------
http://mcool.appinn.me/

作者：

starrysea (星海)	▲▲▲▲▲	-
	普通会员

2017/2/19 0:52:49

2楼：

很不错下了个, 个人以为有些细节可以调整, 比如右键菜单里的关闭和其他栏目应该分开而不是欠在当中, 还有开始的界面, 我看你网站上的有个 @BGLL 作的logo图很棒,可以直接拿来作开始界面,群山背景不需要只保留logo
----------------------------------------------
挂机赚钱 https://www.yiluzhuanqian.com/P3VpZD0zNjY0MA%3D%3D

作者：

chonghai (DBlue)	★☆☆☆☆	-
	盒子活跃会员

2017/2/19 13:24:56

3楼：

mark一下，可能会需要用到。
----------------------------------------------
喜欢Delphi，关注Delphi，愿和广大爱好者交朋友。

信息

登陆以后才能回复