Форум: "Media";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
Вниз
Вопрос по 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;
Страницы: 1 вся ветка
Форум: "Media";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.048 c
