Перемотка с использованием bass.dll

[WinMen]

Для перемотки использую TrackBar. Для вопроизведения - BASS.
Код OnChange TrackBar-a:

BASS_ChannelSetPosition(Имя потока, ScrollBar1.Position, 0);

Код OnTimer:

sTrackBar1.Max := i556;
sTrackBar1.Position := BASS_ChannelGetPosition(strs[i], BASS_POS_BYTE);

Звук очень сильно искажается. Если убрать событие OnChange то все норм, но и перемотка не идет. Если убрать строку

sTrackBar1.Position := BASS_ChannelGetPosition(strs[i], BASS_POS_BYTE);

то перематывать можно, и звук норм,но TrackBar не следит за прогрессом.
Что делать?

[WinMen]

Неужели никто не может помочь?(

[WinMen]

Надеюсь на помощь.

[cargo29]

вот посмотри

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, bass;

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    ScrollBar1: TScrollBar;
    Timer1: TTimer;
    OpenDialog1: TOpenDialog;
    procedure ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
      var ScrollPos: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  track:Boolean;
  stream:HSTREAM;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute=false then exit else   begin
Label1.Caption:=ExtractFileName(OpenDialog1.FileName);
ScrollBar1.Position:=0;
end;

end;

procedure TForm3.Button2Click(Sender: TObject);
begin
if stream<>0 then
BASS_StreamFree(stream);
stream:=BASS_StreamCreateFile(false,PChar(OpenDialog1.FileName), 0,0,BASS_UNICODE);
ScrollBar1.Max:=BASS_ChannelGetLength(stream,0);

BASS_ChannelPlay(stream, false);

end;

procedure TForm3.Button4Click(Sender: TObject);
begin
BASS_ChannelStop(stream);
BASS_ChannelSetPosition(stream,0,0);
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
BASS_Free;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
// тут только сделай инициализацию потока
end;

procedure TForm3.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
if ScrollCode=scEndScroll then  begin
track:=false;
BASS_ChannelSetPosition(stream, ScrollBar1.Position, 0) end else track:=true;
end;

procedure TForm3.Timer1Timer(Sender: TObject);
begin
if track=true then
ScrollBar1.Position:=BASS_ChannelGetPosition(stream, 0);
end;

end.

[WinMen]

То же самое

[WinMen]

А можно исходник ваш?

[Exception]

Вот смотрите мою реализацию, там все по таймеру с перемоткой этой, копайтесь и разбирайтесь.
http://forum.sources.ru/index.php?showtopic=324763

[WinMen]

Спасибо! Посмотрю сейчас

[Kovax]

то, что писал cargo29, то по его коду все нормально работает. Обратите внимание на процедуру

procedure TForm3.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
  var ScrollPos: Integer);
begin
if ScrollCode=scEndScroll then  begin
track:=false;
BASS_ChannelSetPosition(stream, ScrollBar1.Position, 0) end else track:=true;
end;

Процедура OnScroll а не OnChange.