ashk142
دوشنبه 18 آبان 1394, 14:59 عصر
با سلام خدمت اساتید محترم
میخواستم بپرسم که آیا کسی با کامپوننت hbtapi کار کرده یا نه ؟ مربوط به کار با تلفن و مودم هست .
اگه آره که بنده یه پروژه دارم که به یه مشکل برخوردم (مربوط به تلفن گویا) در زمان پخش صوت مشکلی نیست و کاربر بعد از تماس میتونه شماره مورد نظرش رو بزنه و بعد از وارد کردن کد بتونه یک صحبتی کنه که این مکالمه ضبط بشه تا اینجا مشکلی نیست ولی بعد از اینکه شروع به ضبط میکنه دیگه کنترل از دست کاربر خارج میشه و نمی تونه با فشردن مثلا کلید "#" به ضبط پایان بده . مشکل بنظر شما بزرگواران از چی میتونه باشه و باید چیکار کرد.
procedure TForm1.hbTapiLine1Digit(Sender: ThbTapiLine; Call: ThbTapiCall;
Digit: Char);
var
begin
if (digit='*') then
begin
WaveIn.Filename := 'D:\voic2_xp\in\1.wav';
WaveIn.Active :=true;
end;
if (digit='#') then
Wavein.Active:=false;
end;
میخواستم بپرسم که آیا کسی با کامپوننت hbtapi کار کرده یا نه ؟ مربوط به کار با تلفن و مودم هست .
اگه آره که بنده یه پروژه دارم که به یه مشکل برخوردم (مربوط به تلفن گویا) در زمان پخش صوت مشکلی نیست و کاربر بعد از تماس میتونه شماره مورد نظرش رو بزنه و بعد از وارد کردن کد بتونه یک صحبتی کنه که این مکالمه ضبط بشه تا اینجا مشکلی نیست ولی بعد از اینکه شروع به ضبط میکنه دیگه کنترل از دست کاربر خارج میشه و نمی تونه با فشردن مثلا کلید "#" به ضبط پایان بده . مشکل بنظر شما بزرگواران از چی میتونه باشه و باید چیکار کرد.
procedure TForm1.hbTapiLine1Digit(Sender: ThbTapiLine; Call: ThbTapiCall;
Digit: Char);
var
begin
if (digit='*') then
begin
WaveIn.Filename := 'D:\voic2_xp\in\1.wav';
WaveIn.Active :=true;
end;
if (digit='#') then
Wavein.Active:=false;
end;