Телеграмм чат группы Delphi_Lazarus страница 6367

parrot.ru

Рейтинг популярных групп и каналов

В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Delphi & Lazarus

474 membersпожаловаться на группу

2020 September 21

AS

Alexey Shumkin in Delphi & Lazarus

с одной стороны, так и получилось. Но тутдругой случай. Плейсаунд отрабатывает моментально, то есть запускает звук и происходит лив. При этом звук продолжает воспроизводиться. Проблема в том, что другое событие сервера не видит уже созданный объект и создаёт его заново

есть метод "stop play"?

источник

11:32пожаловаться #1

S

Serjone in Delphi & Lazarus

есть метод "stop play"?

есть

источник

11:32пожаловаться #2

AS

Alexey Shumkin in Delphi & Lazarus

есть

он вызывается при .Free/.Destroy mciplayer-а?

источник

11:33пожаловаться #3

SB

Sergey Bodrov in Delphi & Lazarus

Вот пример, как предотвратить слишком частый запуск воспроизведения, чтобы не получился целый хор =)

if TickDiff(tcNow, FLastSoundTime) > 500 then
      begin
        FLastSoundTime := tcNow;
        if Assigned(FSoundPlayer) then
          FreeAndNil(FSoundPlayer);

        FSoundPlayer := TMciPlayer.Create('sound', Mem, Size);
        FSoundPlayer.Loop := False;
        FSoundPlayer.Play();
      end;

источник

11:38пожаловаться #4

SB

Sergey Bodrov in Delphi & Lazarus

tcNow := GetTickCount()

источник

11:39пожаловаться #5

AS

Alexey Shumkin in Delphi & Lazarus

Вот пример, как предотвратить слишком частый запуск воспроизведения, чтобы не получился целый хор =)

if TickDiff(tcNow, FLastSoundTime) > 500 then
      begin
        FLastSoundTime := tcNow;
        if Assigned(FSoundPlayer) then
          FreeAndNil(FSoundPlayer);

        FSoundPlayer := TMciPlayer.Create('sound', Mem, Size);
        FSoundPlayer.Loop := False;
        FSoundPlayer.Play();
      end;

а что за магические 500? )

источник

11:40пожаловаться #6

VA

Viktor Akselrod in Delphi & Lazarus

        if Assigned(FSoundPlayer) then
          FreeAndNil(FSoundPlayer);

моя любимая проверка 🙂

источник

11:40пожаловаться #7

AS

Alexey Shumkin in Delphi & Lazarus

Viktor Akselrod

        if Assigned(FSoundPlayer) then
          FreeAndNil(FSoundPlayer);

моя любимая проверка 🙂

ну, чтобы уж наверняка! ))

источник

11:41пожаловаться #8

AS

Alexey Shumkin in Delphi & Lazarus

Viktor Akselrod

        if Assigned(FSoundPlayer) then
          FreeAndNil(FSoundPlayer);

моя любимая проверка 🙂

бережёного Бог бережёт .. ))

источник

11:41пожаловаться #9

VA

Viktor Akselrod in Delphi & Lazarus

ну, чтобы уж наверняка! ))

не. чтобы наверняка, надо

if Assigned(FSoundPlayer) then
begin
   FreeAndNil(FSoundPlayer);
   FSoundPlayer := nil;
end;

🙂

источник

11:42пожаловаться #10

AS

Alexey Shumkin in Delphi & Lazarus

Viktor Akselrod

не. чтобы наверняка, надо

if Assigned(FSoundPlayer) then
begin
   FreeAndNil(FSoundPlayer);
   FSoundPlayer := nil;
end;

🙂

твоя правда!
😁

источник

11:42пожаловаться #11

SB

Sergey Bodrov in Delphi & Lazarus

а что за магические 500? )

Миллисекунды.

источник

11:42пожаловаться #12

VA

Viktor Akselrod in Delphi & Lazarus

if TickDiff(tcNow, FLastSoundTime) > 500 then

http://docwiki.embarcadero.com/Libraries/Sydney/en/System.Diagnostics.TStopwatch

источник

11:42пожаловаться #13

S

Serjone in Delphi & Lazarus

он вызывается при .Free/.Destroy mciplayer-а?

Судя по тому, что при дестрое звук прекращается, оно таки вызвыается.

источник

11:43пожаловаться #14

AS

Alexey Shumkin in Delphi & Lazarus

Миллисекунды.

т.е., если длительность файла будет больше 500 мс, то хор будет, но не прям сильный?

источник

11:43пожаловаться #15

SB

Sergey Bodrov in Delphi & Lazarus

Viktor Akselrod

if TickDiff(tcNow, FLastSoundTime) > 500 then

http://docwiki.embarcadero.com/Libraries/Sydney/en/System.Diagnostics.TStopwatch

Это код для Delphi 7 =)

источник

11:44пожаловаться #16

SB

Sergey Bodrov in Delphi & Lazarus

т.е., если длительность файла будет больше 500 мс, то хор будет, но не прям сильный?

Будет заикаться

источник

11:44пожаловаться #17

AS

Alexey Shumkin in Delphi & Lazarus

Судя по тому, что при дестрое звук прекращается, оно таки вызвыается.

ага..
тогда у тебя явно проблема синхронизации потоков )

источник

11:45пожаловаться #18

AS

Alexey Shumkin in Delphi & Lazarus

Будет заикаться

да, я понял с учётом https://t.me/Delphi_Lazarus/134739

Serjone in Delphi & Lazarus

Судя по тому, что при дестрое звук прекращается, оно таки вызвыается.

источник

11:46пожаловаться #19

S

Serjone in Delphi & Lazarus

ага..
тогда у тебя явно проблема синхронизации потоков )

Помню, где-то у меня уже было подобное. Не помню где и как решал...

источник

12:06пожаловаться #20