چطور میشه با مودم یک شماره داخل یک edit box را گرفت؟

[احسان آریانو]

سلام

لطفا در غالب یک مثال باشه خوب ممنون

:گیج: :flower: ( آریانو )
[/img]

[Mahdi_S_T]

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

[azhdari]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
hCommFile : THandle;
PhoneNumber : string;
CommPort : string;
NumberWritten : Cardinal;
begin
PhoneNumber := 'ATDT 1234' + #13 + #10; // 1234 is the phone number
CommPort := 'COM2';
{Open the comm port}
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hCommFile=INVALID_HANDLE_VALUE then
begin
ShowMessage('Unable to open '+ CommPort);
exit;
end;

{Dial the phone}
NumberWritten:=0;
if WriteFile(hCommFile,
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
nil) = false then
begin
ShowMessage('Unable to write to ' + CommPort);
end else
ShowMessage(IntToStr(NumberWritten) + ' bytes written');
CloseHandle(hCommFile);
end;


end.

[azhdari]

احسان آریانو
در صورتیکه مودم شما بر روی com دیگری بغیر از com2 تنظیم شده باید قبل از اجرای کد com را تنظیم کنید
استفاده از AT COMMAND یکی از بهترین راهها برای ارتباط با مودم هست و همچنین سخت ترین راه

موفق باشید

[_alish_]

implementation

{$R *.DFM}

function tapiRequestMakeCall(DestAddress, AppName,
CalledParty, Comment: PChar): Longint; stdcall; external 'TAPI32.DLL';

procedure TForm1.Button1Click(Sender: TObject);
var
PhoneNumber, AppName: array[0..255] of Char;
begin
PhoneNumber := '1234567890';
StrPCopy(AppName, Application.Title);
tapiRequestMakeCall(PhoneNumber, AppName, '', '');
end;

یک امتحانی کن
ولی برای راه انداختن از طریق TAPI خیلی چیزها را باید چک و ست کنی
InitializeLineEx, NegotiateAPIVersion و NegotiateExtVersion...

[پریسا نامدار]

به نظر من از کامپوننت KDTele استفاده کنی نیاز به روبرو شدن با این همه مشکلات نداری.!!!

[azhdari]

استفاده از کامپوننت در این مورد قابلیت انعطاف برنامه رو پایین میاره
امکان داره که برنامه نویس بعد از برقراری ارتباط بخواهد برای طرف مقابل دیتا بفرستد مثلا یک فایل صدا play شود و یا هر چیز دیگر که در صورت استفاده از این کامپوننت و با توجه به اینکه handle تماس توسط این کامپوننتها برگردانده نمیشود این کار غیر ممکن خواهد بود

[پریسا نامدار]

اتفاقا این Component اون طوری که من باهاش کارکردن پارمترهای زیادی برای کارهای مختلف داره.
حتی تو یکی از Sample هاش برنامه Hyper Terminal رو شبیه سازی کرده بود.
بعد شما چطوری میگید که محدوده.!!!! :متفکر:

[احسان آریانو]

سلام دوم

از جوابتتون ممنون ولی این component کجا باید پیداش کرد

ضمنا اگه میشه اون مثالی که hyper را شبیه سازی کرده را برام بفرستی

خیلی بیسته مرسی
( آریانو )

[azhdari]

پریسا نامدار

فرض کنید میخواهیم بعد از شماره گیری یه فایل wav برای طرف مقابل پخش بشه در این صورت این کامپوننت قابل استفاده نیست. و یا هر عملیات دیگه ای که بخواهیم که مثلا یه packet دیتا ردوبدل کنیم در این صورت هم باز با این کامپوننت و نظیر اون مشکل داریم. بهترین راه استفاده از توابع TAPI هست که البته کار کردن باهاشون خیلی سخته ولی ارزششو داره

[azhdari]

احسان آریانو

با فرستادن AT COMMAND ( کامندهای مودم ) روی پورت مودم میتونی به راهتی با مودم ارتباط برقرار کنی
بعنوان مثال بجای ATDT میتونی از کامندهای دیگه استفاده کنی و جواب رو از روی پورت با استفاده از تابع readfile دریافت کنی

[saeed_d]

سلام دوم

از جوابتتون ممنون ولی این component کجا باید پیداش کرد

ضمنا اگه میشه اون مثالی که hyper را شبیه سازی کرده را برام بفرستی

خیلی بیسته مرسی
( آریانو )
http://www.kaed.com/kdtele/download.html
اگه Patch اون رو هم می‌خای ایمیل بده تا برات بفرستم
تمامی مثالهاش هم بعد از نصب در شاخه مربوطه ریخته می‌شوند.

[babila]

http://www.barnamenevis.org/forum/viewtopic.php?t=82&highlight=

[Developer Programmer]

اگه Patch اون رو هم می‌خای ایمیل بده تا برات بفرستم
دوست عزیز Afshin_Z@Yahoo.Com ایمیل منه ... لطف می کنی

[Pichidehtarin]

http://www.kaed.com/kdtele/download.html

الان ورژن 3.5 تو لینک بالا هست . من گرفتم .


اگه Patch اون رو هم می‌خای ایمیل بده تا برات بفرستم

Arash_Ebrahimi_NK@Yahoo.com

از قبل تشکر میکنم .

[Developer Programmer]

تا یادم نرفته این رو هم بگم...
هرکاری میکنم با ReadFile بافر مودم رو بخونم null برمیگردونه...
کسی از عزیزان کمکی میکنه؟

[Rafeie]

اگه Patch اون رو هم می‌خای ایمیل بده تا برات بفرستم

Rafeie@Mail.com

[hamidoooo]

اگه Patch اون رو هم می‌خای ایمیل بده تا برات بفرستم
balladry54@yahoo.com
ممنون

[FirstLine]

با سلام


اگه Patch اون رو هم می‌خای ایمیل بده تا برات بفرستم

البته برای delphi 6
Info@EGHLID.com
از لطف شما سپاسگزارم

با تشکر

[Ali Najafian]

کامپوننت را باید از کجا پیدا کرد ؟؟
اگر کسی این کامپوننت را داره بذاره اینجا

[ehsan2000]

اگه Patch اون رو هم می‌خای ایمیل بده تا برات بفرستم
اگه لطف کنی ممنون می شم.
en.jalilian2000@gmail.com

[nilufari]

حال اگه ممکنه این سوال مهمو جواب بدید

چجوری میشه گوشی بداری (Hook On) طرف مقابلو تشخیص داد ... خطوط تلفن معمولی چنین سیگنال برگشتی رو ندارند (بر خلاف خطوط تلفن همگانی که یک برگشتی سیگنال 16 کیلو هرتز دارند که اونم نمیدونم با این کامپوننت یا برنامه ها قابل Detect شدن هست یا خیر ؟)

Detect شدن گوشی برداری رو برا این مطرح کردم ، چون میخوام بعد از گوشی برداری طرف مقابل ، پیام صوتی برای اون پخش بشه .

[parhizkar2000]

اگه لطف کنید وبا ما هم یک تماس داشته باشید ممنون
parhizkar2000@yahoo.com

[afshar]

اگه لطف کنید وبرای من هم بفرستید ممنون می شم
hamrah40@yahoo.com

[lion_9090]

اگه لطف کنید و برای من هم بفرستید واقعاً ممنون میشم.
nasser_hajipor@yahoo.com

[realman]

شما که دارید این همه لطف می کنید.پس یکیشم برای ما دیگه.لطفا
llrealmanll@yahoo.om

[bakhtiyari]

کسی تا حالا با tapi کار کرده!!!
می خوام اول تلفن بزنم بعد data بفرستم

[jafari1]

با سلام خدمت دوست عزیزی که کامپوننت kdtele را پیشنهاد کردید اگر ممکن است بفرمایید توسط ابزار فوق چگونه میشود پاسخگوی تلفنی ساخت همانند تلفن بانکها

[Touska]

در داخل مثال هاس خود Kdtele کامل یک پروژه Answering موجود می باشد.

از سایتش دانلود کنید.

[Mahmood_M]

اگه Patch اون رو هم می‌خای ایمیل بده تا برات بفرستم
اگه واسه من هم بفرستید ممنون می شم ...
Mahmood_Emperor@hotmail.com

[best_ariya]

اگه واسه من هم بفرستید ممنون می شم ...
best_ariya@yahoo.com
for delphi 6