VPF::Ускорение загрузки (проигрывания) mp3 bass.dll

halfhope

Дата 14.5.2011, 15:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Пишу компонент для проигрывания аудио из интернета(mp3) на основе bass.dll
Возникли некоторые трудности. Плеер очень сильно тормозит при загрузке потока из интернета, можно ли как нибудь ускорить её.

Код


procedure Play(s: string);
begin
    try
      channel := BASS_StreamCreateURL(PAnsiChar(AnsiString(s)),0,BASS_STREAM_STATUS, nil, nil);
      BASS_ChannelSetAttribute(channel, BASS_ATTRIB_VOL, tb1.Position/100);
      {До этого момента сильно виснет и зависают все VCL}
      ShowMessage('Play');
      BASS_ChannelPlay(channel,False);
    except end;
end;

Тормозит очень сильно от 10 до 40 секунд.
Я пытался сделать в потоке с помощью BeginThread, но у меня не получилось. Может быть попробовать другие способы, которые вы можете предложить?

Пробовал ещё AsyncCalls и TasksEX, по сути одно и то же, но оба не сработали...

Это сообщение отредактировал(а) halfhope - 14.5.2011, 15:44

halfhope

Дата 15.5.2011, 14:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Видимо у меня руки кривые были)

Код


th:cardinal//Глобальная
sd:cardinal/Не глобальная
th := BeginThread(nil,0,@play,pchar(s),0,sd);

Все работает=)

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »