кто работал с nrComm Lib?

[drak2000]

Кто имел дело с этими компонентами, а в особенности с выводом звука в телефон. линию. Отзовитесь. Плз.. Но может мне помогут и на форуме?
Проблема вот в чем. Пойду по очереди. Есть люди, которые должны деньги. Я их выбираю из базы. Т.к. это список не из одного человека, то все делаю в цикле while not EOF... Потом формирую текст "Тра-ля-ля вы должны н-сумму". Сохраняю в wav файл. Потом перевожу модем в голосовой режим. Звонок по номеру должника(метод Call). Далее после набора номера, должен вызываться метод (OnLineConnected), но он не вызывается... Вот в чем проблема. Что и как делаю...
...
var
TSW:TSpFileStream;
WaveFile:string;
// звонок должнику
procedure CallBorg;
begin
Log('Створюємо список абонентів');
try
Log('Начало : %s', [DateToStr(Now)+' '+TimeToStr(Now)]);
CreateDolgList;// создаем список должников
with QDolg do
begin
First;
while not EOF do
begin
// номер телефона
if GetNumber(Fields[1].asString) then // функция проверки № телефона(есть-нету номера)
begin
CreateWav; // создаем wav файл
FrmMain.nrCommTAPI1.Phone:='83p2334 7';
FrmMain.nrCommTAPI1.Voice:=true;
frmmain.nrCommTAPI1.Call;// тут должно перейти в OnLineConnected, а не переходит после набора номера
SysUtils.DeleteFile(WaveFile);
end;
Next;
end;
end;
finally
Log('Конец : %s', [DateToStr(Now)+' '+TimeToStr(Now)]);
end;
end;
// процедура создания wav
procedure CreateWav ;
begin
try
TSW:=TSpFileStream.Create(nil);
TSW.Format.type_:=SAFT8kHz16BitMono ;
if not DirectoryExists(ExtractFilePath(App lication.ExeName)+'Voice') then
CreateDir(ExtractFilePath(Applicati on.ExeName)+'Voice');
TSW.Open(ExtractFilePath(Applicatio n.ExeName)+'Voice\'+QBorg.Fields[0].AsString+'.wav', SSFMcreateForWrite, false);
gpIVTxt.AudioOutputStream:=TSW.Defa ultInterface;
gpIVTxt.Speak(GetBorgText(QDolg), SVSFDefault);
finally
Tsw.Close;
end;
end;
// когда соединились...
procedure TFrmMain.nrCommTAPI1LineConnected(S ender: TObject);
begin
nrWave1.PlayFileName:=WaveFile;
//Sleep(2000);
nrWave1.PlayStart;
end;

[raxp]

другой способ.