SIP

[Lucifer]

Коллеги, приветствую!
Понадобилось вот... На основе SIPInside сделал. Подключается, звонит - вроде все нормально. Но нет звука! В g711a.pas WaveInOpen говорит, что нет микрофона. И вот бьюсь уже три недели без толку. Может, кто подскажет, где я не прав?

Добавлено спустя 2 часа 19 минут 10 секунд:
Есть у меня нехорошее подозрение, что во всем виновато преобразование QWORD <-> DWORD. Но вот как и почему оно так себя ведет? В дельфях собирается и работает... А в Лазаре - 11 ошибка, неверные параметры в функции.

[Lucifer]

Неужели никто не пробовал ни разу победить SIP в Лазаре?

[GAMER]

Была мысль. Стяну посмотрю.

А тест микрофона как работает?

[Lucifer]

Никак не работает. По логике компонента, он должен писаться в буфер, а потом воспроизводиться. Там длина такой записи буквально пара секунд. И на дельфях оно работает (специально достал из загашника семерку). Какого ей при ровно том де надо в лазаре - ума не приложу.

[WAYFARER]

Lucifer, я особо париться не стал, из программы вызывается linphone.

[olegy123]

Никак не работает. По логике компонента, он должен писаться в буфер, а потом воспроизводиться.

вроде в SIPInside идет полный перевод в pascal код SIP протокол.
Там буфера нужны.
Я рассматривал его для создания шифрованной связи внутри организации в филиалах.

[Lucifer]

вроде в SIPInside идет полный перевод в pascal код SIP протокол.
Там буфера нужны.

Да есть они там. И даже первая инициализация проходит нормально, буфер даже чем-то заполняется. А вот повторная - не проходит. 11 ошибка лезет. Я почему и грешу на указатели. Самое обидное, что компилируется в дельфях и работает. В Лазарусе же оно даже не собиралось изначально. Даже в 32-битах. Сейчас хотя бы сам протокол работает, подхватывает все - инициацию, статусы, входящий-исходящий. Вот только звук осталось победить...

[olegy123]

ошибка появляется при вызове

Код: Выделить всё

g711a.pas
344| function TCustomPCMA.OpenInN: Boolean;
..
363| err := waveInOpen(@fWaveIn, fDevIn, @WF, fHWnd, 0, CALLBACK_WINDOW); 

Код: Выделить всё

err=11 ->  MMSYSERR_INVALPARAM: ShowMessage('Invalid parameters!');

так вот 1 раз проход нормальный.. во второй раз - ошибка.

проблема скорее в флажках, в Delphi код правильно реализуется, все инструкции выполняются верно. А вот в Lazarus-е есть ошибки кода. или неправильная реализация mmsystem( через него идет работа со звуком)

[Lucifer]

Дело еще и в том, что это - часть большого другого проекта. И я не могу включить режим совместимости с дельфой - ломается все насмерть. Это во-первых. А во-вторых, есть одна непонятка с самими виндовыми функциями: я посмотрел внутрь 64-битной либы звуковой, а она внутри насквозь 32-бита! Индусы, мать их... Скорее всего, тут и затык.

[Lucifer]

Да-а-а... Похоже, что никто мне не поможет... Абыдна, да!

[olegy123]

Мне надо SIP сервер подымать.потом трассировать.. пока не до него.
Самому нужно со звуком поработать в windows системе.
Подожди чуть чуть.

[Lucifer]

В общем, порывшись по ресурсам, нашел: viewtopic.php?f=13&t=6608
И вот как быть? Способ, указанный в топике, тоже не работает. Нет сообщений. Пока вижу выход в использовании ACS, но как его прикрутить - шибко думай надо.

[Снег Север]

По самому SIP ничего посоветовать не могу, а вот конкретно по звуку не рекомендую ACS, глючные они... Лучше посмотреть в сторону BASS или ffmpeg.

[Lucifer]

Всем спасибо. Вопрос закрыт - я сделал его.

[ElectroGuard]

рассказал бы еще как...