Вопрос по Bass.dll

← →
fashionguide © (2004-12-09 00:34) [0]

Я юзаю bass.dll напрямую, без всяких bassplayer"ов..
У меня есть бегунок - TrackBar. Хочу сделать с его помощью перемещение по звучащему файлу. ТрэкБар состоит из 100 рубцов.
При передвижении файл начинает звучать с самого начала.. А не с того момента, куда я передвинул положение трэкбара. Посмотрите, где что неправильно.

var position, result: integer; SongLen : int64; FloatLen : float; begin SongLen := BASS_StreamGetLength(hMus3); FloatLen := BASS_ChannelBytes2Seconds(hMus3, SongLen); Result := round(1000 * FloatLen); Position := Round(trackbar3.Value*result/100); Bass_channelstop(hMus3); hMus3:=BASS_StreamCreateFile(False, PChar (lfn3.Caption), Position,0,0); BASS_StreamPlay(hMus3,false,0);

← →
Kair © (2004-12-09 06:52) [1]

var SongLen, Position: Int64; begin SongLen := BASS_StreamGetLength(hMus3); Position := Round(TrackBar1.Value * SongLen / 100); if Position < SongLen then Bass_ChannelSetPosition(hMus3, Position) else Bass_ChannelStop(hMus3); end;

Вопрос по Bass.dll Найти похожие ветки