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

[Yalda2005]

سلام : باید می بخشید ولی می دونم از این تاپیک زیاد هست ولی من خیلی عجله دارم و خواهش می کنم یه نفر برای من توضیح بده اگر یادیت داشته باشیم و بخواهیم شماره ی توی اونو دلفی برامون بگیره باید چکار کرد ؟ می خوام با کد دلفی باشه ... :لبخندساده

[MiRHaDi]

سلام
از همین سایت هست این کد


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.

[Yalda2005]

سلام : اینو که می دونم این تا مرحله ی ارتباط می ره بعدش شماره گیری چی ؟؟؟؟

[m-khorsandi]

اگه جستجو میکردید سریعتر به نتیجه میرسیدید.
به همین راحتی :
http://www.barnamenevis.org/forum/showthread.php?t=24157
http://www.barnamenevis.org/forum/showthread.php?t=21448
http://www.barnamenevis.org/forum/showthread.php?t=32738

[m-khorsandi]

PhoneNumber := 'ATDT 1234' + #13 + #10; // 1234 is the phone number

اگه به این خط دقت کنید میبینید که مقدار PhoneNumber شامل دستوری برای شماره گیری 1234 هست
و بعد از بازکردن پورت شماره گیری انجام میشه.

[Yalda2005]

سلام ممنون از کمکتون ... من اولین باره دارم یه ارتباط سخت افزاری برقراری می کنم واسه ی همین واسم سخته خب ... این که فقط 1234 رو می شناسه من می خوام شماره ی توی ادیت رو بگیره ...باید چکار کنم ؟ در ضمن اگه از خود dialer ویندوز استفاده کنیم بده؟؟؟؟

[m-khorsandi]

PhoneNumber := 'ATDT '+ Edit1.Text + #13 + #10;

[Yalda2005]

ممنون از راهنمائی هاتون ... مخصوصاً جناب خرسندی ...

[MiRHaDi]

سلام
این ربطی به سخت افزار نداره !
از API های مختلف هم میتونی استفاده کنی
شماره که گذاشته شده ! فقط 1234 رو عوض کن ! وصلش کن به ادیت باکس یا ...
از این فایل اگه بخونی هم میشه ارتباط دو طرفه
اگه لازم نداری بی خیالش
بای

[Yalda2005]

سلام : مشگلم حل شده ... از همگی ممنون ...