Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Bass 
:(
    Опции темы
Exai1e
Дата 20.1.2008, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30
Код

i := ListBox1.ItemIndex;
BASS_ChannelSetPosition(strs[i], 5);

пробывал указывать 5, 100, 1000, и т.д., толку ноль. При смене позиции трек начинает играть заново.
пс: Может кто знает в чем может быть проблема, пишу в редакторе Bas нажимаю ctrl+пробел то появляются функции басовские, а если дописать bass_ то при нажатии ctrl+пробел окошко пустое, вообще без функций, как это исправить, а то все время писать bas и искать нужную функцию курсором чет не оч радует. С остальными функциями такого нету.


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Qu1nt
Дата 20.1.2008, 13:17 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50
Можно вот так:
Код

procedure TAudio.SetSongPos(SongPos: Integer);
begin
  SongPos := BASS_ChannelSeconds2Bytes(Channel, SongPos / 1000);
  BASS_ChannelSetPosition(Channel, SongPos);
end;

Пример:
  Audio.SetSongPos(5000); // 5 секунд
PM MAIL   Вверх
Exai1e
Дата 20.1.2008, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30
Хм, странно но вот так не работает
Код

procedure SetSongPos(SongPos: Integer);
var
  Channel: Cardinal;
begin
  Channel := Form2.ListBox1.ItemIndex;
  SongPos := BASS_ChannelSeconds2Bytes(Channel, SongPos / 1000);
  BASS_ChannelSetPosition(Channel, SongPos);
end;

procedure TForm2.CheckBox1Click(Sender: TObject);
begin
  SetSongPos(50000);
end;



--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Qu1nt
Дата 20.1.2008, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50
Exai1e, покажи остальной код.
PM MAIL   Вверх
Exai1e
Дата 21.1.2008, 19:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30
Qu1nt, 
Код

procedure TForm2.FormCreate(Sender: TObject);
begin
  BASS_Init(-1, 44100, 0, Handle, nil);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  i : integer;
begin
    i := ListBox1.ItemIndex;
    if i >= 0 then
        BASS_ChannelPlay(strs[i], False);
end;

//open file
procedure TForm2.Button2Click(Sender: TObject);
var
    f: PChar;
begin
    if not OpenDialog1.Execute then Exit;
    f := PChar(OpenDialog1.FileName);
    strs[strc] := BASS_StreamCreateFile(False, f, 0, 0, 0);
    if strs[strc] <> 0 then
    begin
        ListBox1.Items.Add(OpenDialog1.FileName);
        Inc(strc);
    end
end;



--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Snowy
Дата 22.1.2008, 14:33 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 18
Всего: 484
Цитата(Exai1e @  20.1.2008,  12:17 Найти цитируемый пост)
 а если дописать bass_ то при нажатии ctrl+пробел окошко пустое, вообще без функций, как это исправить
Это недоработка среды Delphi c самой первой версии и до самой последней.
Вылечить можно только сторонним мастером. Например CnWizard.
PM MAIL   Вверх
Exai1e
Дата 22.1.2008, 15:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30
Snowy, спасибо
если не секрет как его использовать ? установить установил...

Это сообщение отредактировал(а) Exai1e - 22.1.2008, 20:16


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Exai1e
Дата 22.1.2008, 20:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30
Точнее установит установил, в ide появилась панелька, а вот толку не много всеравно проблема осталась ? или там еще че то мудрить надо ?


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Exai1e
Дата 22.1.2008, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 908
Регистрация: 3.12.2006
Где: Moscow

Репутация: нет
Всего: 30
все понял, ток остался вопрос как отключить стандартный "дописчик" кода ?) чтобы по ctrl+пробел вызывался ихний


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0539 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.