Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2017, 12:45   #1
BLACK_RAIN
Форумчанин
 
Регистрация: 13.02.2012
Сообщений: 867
По умолчанию Уничтожение графа фильтров по окончанию воспроизведения

Думал, что всё сделано, но возникла глупая проблема.
Как уничтожить граф когда воспроизведение закончилось?
Код:
procedure TForm2.DS_MES(var msg: TMessage);
var
  l1,l2 : LONG_PTR;
  n : Integer;
begin
  case msg.Msg of
    WM_DS_MESSAGE:
      begin
        while pMediaEvent.GetEvent(n, L1, l2, 1) = S_OK do
        begin
          if n = EC_COMPLETE then
          begin
            ShowMessage('EC_COMPLETE');

            pMediaEvent.FreeEventParams(n, l1, l2);
            pMediaEvent.SetNotifyFlags(AM_MEDIAEVENT_NONOTIFY);
            ClearGraph;
          end;

          pMediaEvent.FreeEventParams(n, l1, l2);
        end;
      end;
  end;

end;
После EC_COMPLETE в цикле приходит еще какое-то сообщение, но pMediaEvent уже уничтожен в процедуре ClearGraph. В результате - краш.
Cделал так:
Код:
        while Assigned(pMediaEvent) and
        (pMediaEvent.GetEvent(n, L1, l2, 1) = S_OK) do
крашей нет, но не знаю, правильно ли это?
почему строчка pMediaEvent.SetNotifyFlags(AM_MEDIA EVENT_NONOTIFY); не останавливает цикл?
BLACK_RAIN вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Редирект по окончанию счетчика Parallelogram JavaScript, Ajax 1 17.09.2015 15:40
Выполнить действия по окончанию... HTTqp Общие вопросы Delphi 4 25.04.2015 08:11
создание графа по матрице и поиск кратчайшего пути из одного графа в другой lexflax Общие вопросы C/C++ 1 06.09.2012 07:32
по заданной матрице смежности простого графа построить каркас этого графа с использованием поиска вширь d1m2o3n4 Помощь студентам 0 22.06.2011 22:43
Группировка по окончанию строки Remein Microsoft Office Excel 2 13.09.2007 11:39