SOME DIFFICULTIES WITH BASS LIBRARY - HELP

[evstevemd]

Hello All,
I have difficulty in detecting the seek, and when the song is over. I'm still reading the API, but if can someone help, I will appreciate.

[evstevemd]

Hello, I can seek the slider in sync with the song, but again stucked on how to move song in the given position using seeker (slider)?? 

[evstevemd]

any help? Im stucked. cannot detect song is over! I can now seek the slider, but cannot use it to set song position

[Chris]

Hi

Code Select Expand

var
   seeking :boolean = false;

procedure Ontimer(Sender:TObject);
begin
  if not seeking then
  Trackbar.position : BASS_ChannelGetPosition...........
end;

procedure TrackbarMousedown(Sender:TObject);
begin
  seeking_1 := true;
end;

procedure TrackbarMouseMove(Sender: TObject;
begin
   seeking_1 := true;
   here you can display the trackbar position in your position PositionsLabel
end;

procedure TrackbarMousedown(Sender:TObject);
begin
   BASS_ChannelSetPosition .........(Trackbar1.position
   Seeking := false;
end;

Chris

[evstevemd]

Is this delphi, C++?
I want to know it so as to try translate.
Anyway, many developers here are C/C++ Delphi and VB

Thanks Chris, I will implement that

[Chris]

Hi
 thats delphi
Chris

[evstevemd]

Thanks Chris

[evstevemd]

mhh, I have failed to decode, can you try to put comments on what it does? 

[Chris]

Hi
 sorry I`m at this moment in Holidays

Code Select Expand

var
   seeking :boolean = false;

procedure Ontimer(Sender:TObject);
begin
  if not seeking then
  Trackbar.position : BASS_ChannelGetPosition...........//Your slider will shown the current Position
end;

procedure TrackbarMousedown(Sender:TObject);
begin
  seeking_1 := true;// now your Timer will stop to show the current position so that you self can change the slider pos
end;

procedure TrackbarMouseMove(Sender: TObject;
begin
   seeking_1 := true;//
   here you can display the trackbar position in your position PositionsLabel
end;

procedure TrackbarMouseUp(Sender:TObject);
begin
   // you have slide to a new Position tn the trackbar so now letzt update the Channel Position
   BASS_ChannelSetPosition .........(Trackbar1.position
   Seeking := false;
end;

Cheers Chris

[evstevemd]

Thanks Chris,