[alexingor]

В своей программе я использую слегка модифицированную "стандартную" процедуру для анализа установленных в системе голосовых движков и заполнения комбобокса (в моем случае - комбобоксов) их выбора:

Код:

  procedure LEARN_ENGINES;
  var
    NumFound : DWord;
    ModeInfo : TTSModeInfo;
  begin
    try
      {Инициализация аудиоустройства}
      CoCreateInstance(CLSID_MMAudioDest, Nil, CLSCTX_ALL,
             IID_IAudioMultiMediaDevice, fIAMM);
    except
    end;
    {Создание перечисляемого объекта для перебора всех движков в системе
     с помощью интерфейса ITTSEnum}
    CoCreateInstance(CLSID_TTSEnumerator, Nil, CLSCTX_ALL,
                                           IID_ITTSEnum, aTTSEnum);
    aTTSEnum.Reset;//Сбрасываем на первый
    aTTSEnum.Next(1, ModeInfo, @NumFound); {Получаем первый движок}
    While NumFound > 0 do
    begin
      s:=String(ModeInfo.szModeName);
      if pos('RUS',UpperCase(s))>0 then
        COMBO_VOICE_RUS.Items.Add(s)
      else
        COMBO_VOICE_ENG.Items.Add(s);
      aTTSEnum.Next(1, ModeInfo, @NumFound); {Получаем остальные}
    end;
  end;

Программа нормально работает, в том числе и этот модуль, но после закрытия программы она остается "висеть" в памяти, закрывается только ее видимая часть. Вопрос: Какие действия надо предпринять при закрытии программы, чтобы избежать этого?
PS То, что в неполном закрытии программы виноват именно этот код, убедился точно.
PPS Код брал отсюда.

[Alegun]

Сообщение от alexingor

...Вопрос: Какие действия надо предпринять при закрытии программы, чтобы избежать этого?..

Взгляд со стороны: когда что-то создаётся, то и уничтожаться тоже должно. При закрытии проги возможно надо выполнить что-то типа aTTSEnum.Free (если только такое свойство у этого интерфейса есть)

[alexingor]

Сообщение от Alegun

При закрытии проги возможно надо выполнить что-то типа aTTSEnum.Free

Увы, нет такого метода у этого интерфейса. Я сам смотрел в этом направлении.

[Alegun]

А вот это (http://drkb3.narod.ru/daaioa_n_micro...peech_api_.htm) не поможет?Там код рабочий, несколько лет назад его пробовал, без нареканий.

[angvelem]

Ты не полностью прочитал свою же ссылку, вот продолжение на эту тему. У тебя не очищается "движок". Про это тебе Alegun уже говорил.

[alexingor]

Сообщение от Alegun

А вот это не поможет?

Интересный вариант, простой и работающий. Но мне он не годится - читает только на русском, и голосом только одного движка. Мне же обязательно нужна возможность выбора движка. На всякий случай, занес в закладки, вполне может пригодиться в будущем. Спасибо.

[alexingor]

Сообщение от angvelem

вот продолжение на эту тему.

Я собрал приведенную там форму. Все работает нормально, текст читается, при закрытии окна управление передается на Form-Destroy. И там все команды выполняются. Но программа все равно остается висеть.
Вот ссылка на этот мой проект: https://www.dropbox.com/sh/86pboo1lv...t/SAPITest.zip.

[Alegun]

Похоже прабла в системе - у меня компилянт летает без зависаний. Свой собрать не удалось, не хватает некоторых исходников в проекте. Установил специально несколько, сколько нашёл, синтезаторов: и L&H engrus и жигалу.микеланжелу и vm и дьяблу - всё переключается, работает и нормально завершается. Попробуйте на другом компе запустить.

[alexingor]

Это ценная информация, спасибо. Обязательно попробую и отпишусь.

[alexingor]

попробовал на другом компе - все нормально работает. Причину почему виснет у меня - пока не знаю. Но это уже какая-то определенность. Еще раз спасибо!

[angvelem]

Сам ведь писал, что у тебя "Зверь" установлен. Наверняка в этом причина.