Блог

У меня есть приложение Delphi 6 Pro, которое использует библиотеку компонентов DSPACK для отправки аудио в Skype с предпочитаемого системного устройства ввода звука. Я использую компонент TSampleGrabber для подключения к цепочке графиков фильтров, а затем отправки аудиобуферов в Skype. Проблема в том, что я получаю звук только один раз в секунду. Другими словами, событие OnBuffer() для экземпляра TSampleGrabber запускается только один раз в секунду с данными на целую секунду в параметре Buffer. Мне нужно знать, как изменить мою цепочку графиков фильтров, чтобы она получала данные с устройства ввода с более быстрым интервалом, чем один раз в секунду. Если возможно, я бы хотел делать это так быстро, как каждые 50 мс или, по крайней мере, каждые 100 мс.

Моя цепочка графиков фильтров состоит из TFilter, который отображается на предпочтительное устройство ввода звука в системе вверху. Я подключаю выходные выводы этого фильтра к входным выводам назначенного TFilter ‘WAV Dest’, чтобы я мог получать сэмплы в формате PCM WAV. Затем я подключаю выходные выводы фильтра ‘WAV Dest’ к входным выводам экземпляра TSampleGrabber. Что мне нужно изменить, чтобы событие TSampleGrabber OnBuffer() запускалось с более быстрым интервалом?

ОБНОВЛЕНИЕ: на основе ответа Романа Р. я смог реализовать решение, которое я показываю ниже. Одно замечание. Его ссылка привела меня к следующему сообщению в блоге, которое было полезно в решении:

http://sid6581.wordpress.com/2006/10/09/minimizing-audio-capture-latency-in-directshow/

 // Variable declaration for output pin to manipulate.
var
    intfCapturePin: IPin;

...............


    // Put this code after you have initialized your audio capture device
    //  TFilter instance *and* set it's wave audio format.  My variable for
    //  this is FFiltAudCap.  I believe you need to set the buffer size before
    //  connecting up the pins of the Filters.  The media type was
    //  retrieved earlier (theMediaType) when I initialized the audio
    //  input device Filter so you will need to do similarly.

    // Get a reference to the desired output pin for the audio capture device.
    with FFiltAudCap as IBaseFilter do
        CheckDSError(findPin(StringToOleStr('Capture'), intfCapturePin));

    if not Assigned(intfCapturePin) then
        raise Exception.Create('Unable to find the audio input device''s Capture output pin.');

    // Set the capture device buffer to 50 ms worth of audio data to
    //  reduce latency.  NOTE: This will fail if the device does not
    //  support the latency you desire so make sure you watch out for that.
    setBufferLatency(intfCapturePin as IAMBufferNegotiation, 50, theMediaType);

..................

// The setBufferLatency() procedure.
procedure setBufferLatency(
                // A buffer negotiation interface pointer.
                intfBufNegotiate: IAMBufferNegotiation;
                // The desired latency in milliseconds.
                bufLatencyMS: WORD;
                // The media type the audio stream is set to.
                theMediaType: TMediaType);
var
    allocProp: _AllocatorProperties;
    wfex: TWaveFormatEx;
begin
    if not Assigned(intfBufNegotiate) then
        raise Exception.Create('The buffer negotiation interface object is unassigned.');

    // Calculate the number of bytes per second using the wave
    // format belonging to the given Media Type.
    wfex := getWaveFormat(theMediaType);

    if wfex.nAvgBytesPerSec = 0 then
        raise Exception.Create('The average bytes per second value for the given Media Type is 0.');

    allocProp.cbAlign := -1;  // -1 means "no preference".
    // Calculate the size of the buffer needed to get the desired
    //  latency in milliseconds given the average bytes per second
    //  of the Media Type's audio format.
    allocProp.cbBuffer := Trunc(wfex.nAvgBytesPerSec * (bufLatencyMS / 1000));
    allocProp.cbPrefix := -1;
    allocProp.cBuffers := -1;

    // Try to set the buffer size to the desired.
    CheckDSError(intfBufNegotiate.SuggestAllocatorProperties(allocProp));
end;
 

Я полагаю, вам нужно точно настроить фильтр захвата звука для захвата в буферах нужного размера, т. Е. Достаточно коротких, чтобы общая задержка была небольшой.

Фильтры захвата звука предоставляют IAMBufferNegotiation интерфейс на выходных выводах и SuggestAllocatorProperties позволяют указать конфигурацию буфера.

См. Для получения дополнительной информации: Настройка Windows Media Audio Encoder DMO для уменьшения задержки.