تلفن گویا و منشی تلفنی : تشخیص برداشتن یا گذاشتن گوشی در تلفن گویا

[Indera]

درود بر تو،
1- شما از اکتیو ایکس استفاده می کنید و این رویدادها در زمان Listenstart و listenstop فعال می شود.
2- بله منطور تایمر #C است.
3- من متوجه شدم که شما می خواهید تماس بگیرید نه با شما تماس بگیرند؟
4- silentDetect را روشن کنید تا وضعیف قطع کنترل شود. به آن زمان هم می توانید بدهید تا از آن زمان به بعد را قطع کند.
5- شما باید برای قطع و وصل KDPhone را کنترل کنید و نه KDVoice را.
6- KDPhone.OnConsultCallState Event تمام نیاز شما را تامین میکند. برای کنترل رویدادها یک کیس بنویسید و در آن در زمان وصل تماس تایمر را روشن کنید. در پایین چند آیتم کار را بنداز CallStateرا توضیح می دهم:
ccsStarted = 0: زمانی که ارتباط بامودم برقرار شده و منتظر زنگ خوردن یا شماره گیری توسط شما می باشد.
ccsProceeding = 1: زمانی می باشد که شما گوشی را برداشتید و شماره گرفتید و به اصطلاح بوق می خورد.
ccsDialTone = 2:شخص تماس گیرنده یک کلید فشرده
ccsConnected = 3: تماس برقرار شده و اصطلاحا شخص الو می گوید
ccsDisconnected = 8: تماس قطع شد.
ccsDialing = 2: شما در حال شماره گیری هستید
ccsWaitingDisconnection = 7: هیشکی توش نیست و گوشی بزار ثواب داره

با سلام دوباره،ممنون از این که وقت می گذارید و سوالات حقیر را جواب می دهید،این طور یک روز هم همین سوالات را به دیگران جواب می دهم و ثواب راه انداختن کار خلق به شما هم می رسد،من رویداد OnConsultState را که در بالا گفته بودید کدش را نوشتم،مشکل این است که این رویداد اصلا صدا زده نمی شود،آیا باید چیز خاصی را فعال کرد؟تنها رویدادی که به طور مشخص برای من صدا زده می شه همان OnCallState است!!!سوال دیگری داشتم و این که اگر اشتباه نکنم منظور شما از ListenStart و ListenEnd در بالا توابع KDVoice است،حقیقتش وقتی من این تابع ListenStart را صدا می زنم (در هنگام رویداد , OnCallState و در وضعیت Connected)پیغامی می دهد به قرار زیر:
شماره ی خطا 10
Sound Device is Exclusively Allocated By another application
من نمی دانم آیا در کارت صدا باید تنظیم خاصی انجام داد یا موضوع چیز دیگری هست؟؟؟؟در ضمن رویداد OnSilentDetect هم که در KDVoice هست را تا وقتی ListenStart انجام نشود فکر نکنم صدا زده شود،البته اگر منظور شما از فعال کردن این رویداد را درست متوجه شده باشم،درباره ی آن Cunsolt هم من در راهنمای کامپوننت خواندم که در روی هر مودمی جواب نمی دهد و برای مواردی همچون جابجایی تماس روی تلفن دیگر به کار می رود و وقتی که Cunsoltation تماس عوض می شود صدا زده میشود،ایا ممکن است مشکل از مودمم باشد؟آیا مودم خوب و ارزانی استفاده کرده اید که تمام این موارد را پشتیبانی کند،من مودم خودم یک TP_Link internal 56k halfDuplex مدل Tm-Ip5600 هست،وقتی در آن دو نفر همزمان صحبت کنند صدا اکو می گیرد،آیا این بخاطر HalfDuplex بودن آن است؟؟اگر اطاعاتی دارید ممنون می شوم مرا راهنمایی کنید!!ببخشید سوالات زیاد شد چون هیچ جایی جواب درست نمی دهند،امیدوارم خیرش را ببرید>متشکرم

[samirparsa]

ممنون راه خوب رو باید ادامه داد.
اصلا مودم رو فراموش کن. من خودم هم با اکتیو ایکس کار کردم مشکل می شه باهاش کار کن. از گفتن Listenstart منظورم این بود که اون دوتا رویداد در این زمان شروع می شود. نه اینکه از اون استفاده کنیم. توجه کن در زمانی که ارتباط قطع است از این فانکشنها استفاده کنید. مانند زمانی که شما می خواهید پیغامی را ضبط کنید. معلوم پسر وقتی پورت مودم بازه نمی تونی اونو در اختیار بگیری
شرمنده CallConsulation در زمان کال ویتینگ و در زمان انتقال تماس به خط دیگر فعال می شود . مانند وقتی که منشی ارتباط برقرار می کند. شب بود قاطی کردیم . همون توضیحات ولی با CallSate
و اما بعد.

procedure TMainForm1.Main_KDPhone1CallState(Sender: TObject;
CallState: TCallState; Param1, Param2, CallHandle: Integer);

begin
Case CallState Of
csOffering : Begin
Memo_Message (Get_Message_String ( 2 )) ;
End ;
csConnected: Begin
FirstSilence := true;
StopPlay := true;
Main_Form . CallPhoneHandle[1,1] := Main_KDPhone1 . CallHandle;
StatusRec := -1;
Main_KDPhone1 . OnDigitDetected := Main_KDPhone1DigitDetected ;
Is_Digit_Detected := False ;
Memo_Message (Get_Message_String ( 3 )) ;
ConnectionTimeLimitationDetector . Enabled := True ;
//1 If Main_KDVoice1 . PlayingState <> psIdle Then Main_KDVoice1 . PlayStop ;
//1 If Main_KDVoice1 . RecordingState <> rsIdle Then Main_KDVoice1 . RecStop ;
Begin_Of_Connection := True ;
TransferTimer . Enabled := False ;
Show_KDTele_Error_Messages(Main_KDPhone1 . ExtDevAux .SetMicSpeakerState( msMicOnSpeakerOn )) ;
End ;
csDisconnected: begin
StatusRec := -1;
Timer . Enabled := False ;
Is_Digit_Detected := False ;
Main_KDPhone1 . OnDigitDetected := Main_KDPhone1DigitDetected ;
ConnectionTimeLimitationDetector . Enabled := False ;
FirstSilence := false;
SilenceDetector . Enabled := False ;
RecordingTimer . Enabled := False ;
Memo_Message (Get_Message_String ( 4 )) ;
ConnectionTimeLimitationDetector . Enabled := False ;
//1 If Main_KDVoice1 . PlayingState <> psIdle Then Main_KDVoice1 . PlayStop ;
//1 If Main_KDVoice1 . RecordingState <> rsIdle Then Main_KDVoice1 . RecStop ;
TransferTimer . Enabled := False ;
// Show_KDTele_Error_Messages ( Main_KDPhone1.Hangup) ;
//Show_KDTele_Error_Messages ( Main_KDPhone1.LineActive(0,False)) ;
//Show_KDTele_Error_Messages ( Main_KDPhone1.LineActive(0,TRUE));
Show_KDTele_Error_Messages(Main_KDPhone1 . ExtDevAux .SetMicSpeakerState( msMicOffSpeakerOff )) ;
end;
csRemotePartyDisconnected :
begin
Memo_Message (Get_Message_String ( 5 ) );
Main_KDPhone1.Hangup ;
//Show_KDTele_Error_Messages ( Main_KDPhone1.LineActive(0,False)) ;
//Show_KDTele_Error_Messages ( Main_KDPhone1.LineActive(0,TRUE));
end;
csError : begin
Memo_Message (Get_Message_String ( 6 ) );
Show_KDTele_Error_Messages(Param1);
Show_KDTele_Error_Messages(Main_KDPhone1.Hangup);
end;
csBusy : begin
Memo_Message (Get_Message_String ( 7 ) );
Main_KDPhone1.Hangup ;
end;
csRing : begin
Memo_Message (Get_Message_String ( 8 ) );
If Param1 = Main_Form . CallPhoneHandle[1,2] then Main_KDPhone1.Answer(param2);
end;
End ;
end;

[Indera]

سلام بزرگوار،نمی دانم برایتان امکان دارد با هم تلفنی صحبت کنیم؟
اگر زحمتی نیست تلفن همراهتان را به آدرس زیر بفرستید تا تماس بگیرم.ممنون
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[Indera]

ممنون راه خوب رو باید ادامه داد.
اصلا مودم رو فراموش کن. من خودم هم با اکتیو ایکس کار کردم مشکل می شه باهاش کار کن. از گفتن Listenstart منظورم این بود که اون دوتا رویداد در این زمان شروع می شود. نه اینکه از اون استفاده کنیم. توجه کن در زمانی که ارتباط قطع است از این فانکشنها استفاده کنید. مانند زمانی که شما می خواهید پیغامی را ضبط کنید. معلوم پسر وقتی پورت مودم بازه نمی تونی اونو در اختیار بگیری
شرمنده CallConsulation در زمان کال ویتینگ و در زمان انتقال تماس به خط دیگر فعال می شود . مانند وقتی که منشی ارتباط برقرار می کند. شب بود قاطی کردیم . همون توضیحات ولی با CallSate
و اما بعد.

procedure TMainForm1.Main_KDPhone1CallState(Sender: TObject;
CallState: TCallState; Param1, Param2, CallHandle: Integer);

begin
Case CallState Of
csOffering : Begin
Memo_Message (Get_Message_String ( 2 )) ;
End ;
csConnected: Begin
FirstSilence := true;
StopPlay := true;
Main_Form . CallPhoneHandle[1,1] := Main_KDPhone1 . CallHandle;
StatusRec := -1;
Main_KDPhone1 . OnDigitDetected := Main_KDPhone1DigitDetected ;
Is_Digit_Detected := False ;
Memo_Message (Get_Message_String ( 3 )) ;
ConnectionTimeLimitationDetector . Enabled := True ;
//1 If Main_KDVoice1 . PlayingState <> psIdle Then Main_KDVoice1 . PlayStop ;
//1 If Main_KDVoice1 . RecordingState <> rsIdle Then Main_KDVoice1 . RecStop ;
Begin_Of_Connection := True ;
TransferTimer . Enabled := False ;
Show_KDTele_Error_Messages(Main_KDPhone1 . ExtDevAux .SetMicSpeakerState( msMicOnSpeakerOn )) ;
End ;
csDisconnected: begin
StatusRec := -1;
Timer . Enabled := False ;
Is_Digit_Detected := False ;
Main_KDPhone1 . OnDigitDetected := Main_KDPhone1DigitDetected ;
ConnectionTimeLimitationDetector . Enabled := False ;
FirstSilence := false;
SilenceDetector . Enabled := False ;
RecordingTimer . Enabled := False ;
Memo_Message (Get_Message_String ( 4 )) ;
ConnectionTimeLimitationDetector . Enabled := False ;
//1 If Main_KDVoice1 . PlayingState <> psIdle Then Main_KDVoice1 . PlayStop ;
//1 If Main_KDVoice1 . RecordingState <> rsIdle Then Main_KDVoice1 . RecStop ;
TransferTimer . Enabled := False ;
// Show_KDTele_Error_Messages ( Main_KDPhone1.Hangup) ;
//Show_KDTele_Error_Messages ( Main_KDPhone1.LineActive(0,False)) ;
//Show_KDTele_Error_Messages ( Main_KDPhone1.LineActive(0,TRUE));
Show_KDTele_Error_Messages(Main_KDPhone1 . ExtDevAux .SetMicSpeakerState( msMicOffSpeakerOff )) ;
end;
csRemotePartyDisconnected :
begin
Memo_Message (Get_Message_String ( 5 ) );
Main_KDPhone1.Hangup ;
//Show_KDTele_Error_Messages ( Main_KDPhone1.LineActive(0,False)) ;
//Show_KDTele_Error_Messages ( Main_KDPhone1.LineActive(0,TRUE));
end;
csError : begin
Memo_Message (Get_Message_String ( 6 ) );
Show_KDTele_Error_Messages(Param1);
Show_KDTele_Error_Messages(Main_KDPhone1.Hangup);
end;
csBusy : begin
Memo_Message (Get_Message_String ( 7 ) );
Main_KDPhone1.Hangup ;
end;
csRing : begin
Memo_Message (Get_Message_String ( 8 ) );
If Param1 = Main_Form . CallPhoneHandle[1,2] then Main_KDPhone1.Answer(param2);
end;
End ;
end;

سلام دوباره
پیش از هرچیز از پاسخ شما بسیار متشکرم و همچنین شهادت حضرت فاطمه زهرا (سلام الله علیه) را به شما تسلیت عرض می نمایم.
مهندس جان لازم به ذکر است وقتی رویداد OnConnected فعال میشود زمانی است که تلفن طرف مقابل زنگ میخورد و اگر من تایمیر را در این لحظه روشن کنم زمان واقعی مکالمه را به من نمی دهد.
اگر بتونید تلفنی بنده را راهنمایی کنید لطف بزرگی کرده اید. متاسفانه زمان من برای انجام این کار ( قطعه کد ) بسیار محدود می باشد چون پروژه من کامل شده و تنها همین قسمت مانده است .
با تشکر

[itman_90]

با سلام خدمت آقای [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] اگر میشه در مورد نحوه شناسایی مودم ivrboard در دلفی و کامپوننت kdtele توضیح بدبد

من مودم رو نصب کردم ولی وقتی یه برنامه که در دلفی با kdtele نوشته شده رو اجرا میکنم ivrboard رو شناسایی نمیکنه

ممنون میشم اگه مشکله من رو حل کنید