برقراری ارتباط با مودم

[zohreh_sahar]

من در حدود یک هفته است که سوالی راجع به اینکه برنامه ای که بتواند مدت مکالمه تلفنی را محاسبه کند نوشتم ولی جوابی نگرفتم من فقط می خواهم که به من بگویید چگونه می توانم با modem و تلفن توسط برنامه ارتباط برقرار کنم؟
باتشکر

[mzjahromi]

سلام دوست عزیز
لطفا موارد زیر را رعایت کنید
1- عنوان سوال را درست انتخاب نمائید
2- در صورتیکه دوستان جواب سوال شما را بدانند حتماکوتاهی نمیکنند
3- از ایجاد تاپیکهای تکراری خودداری نمائید.


چگونه می توانم با modem و تلفن توسط برنامه ارتباط برقرار کنم؟
با استفاده از کامپوننتهای KDtele یا Exceletel
KdTele را در سایت جستجو کنید.

[keshtkar]

با سلام
دوست عزیز شما می توانید از کد زیر استفاده کنید


var
hCommFile:THandle;
NumberWritten:dword;
PhoneNumber,CommPort:string;


برای برقراری ارتباط از کد زیر


PhoneNumber:='ATDT'+' '+edit1.Text + #13 + #10;
CommPort:='COM3';
hCommFile:=CreateFile(PChar(CommPort),GENERIC_WRIT E,0,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
WriteFile(hCommFile,PChar(PhoneNumber)^,Length(Pho neNumber),NumberWritten,nil);


و برای قطع ارتباط از این کد استفاده کنید


CloseHandle(hCommFile);


امیدوارم به دردتون بخوره
موفق و سلامت باشید