谁有delphi编写modem拨号的程序,谢谢

tujunhui 2003-10-15 06:27:07
to: tujunhui@163.net
收到马上给分
...全文
31 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
pankun 2003-10-19
  • 打赏
  • 举报
回复
转:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit_PhoneNumber: TEdit;

btnOpen: TButton;

btnClose: TButton;

Edit_CommPort: TEdit;

procedure btnOpenClick(Sender: TObject);

procedure btnCloseClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

hCommFile: THandle;

implementation

{$R *.dfm}

procedure TForm1.btnOpenClick(Sender: TObject);

var

i: DWORD;

PhoneNum: string;

begin

PhoneNum := 'ATDT'+Edit_PhoneNumber.Text + #13+#10;

hCommFile := CreateFile(PChar(Edit_CommPort.Text),

GENERIC_WRITE,

0,nil,

OPEN_EXISTING,

FILE_ATTRIBUTE_NORMAL,0);

if hCommFile = INVALID_HANDLE_VALUE then

begin

ShowMessage('Cannot open Port: '+Edit_CommPort.Text);

exit;

end;

i := 0;

if not WriteFile(hCommFile,

PChar(PhoneNum)^,

Length(PhoneNum),

i,

nil) then

begin

ShowMessage('Write Port error: '+Edit_CommPort.Text);

exit;

end;

end;

procedure TForm1.btnCloseClick(Sender: TObject);

begin

CloseHandle(hCommFile);

end;

end.

其实核心就是向 comm 口里写 atdt + 电话号

如果想挂断可以用 CloseHandle或者 ath0 ...

chinawzg 2003-10-19
  • 打赏
  • 举报
回复
我有的,
yeeyee 2003-10-18
  • 打赏
  • 举报
回复
好像在 人民邮电出版社的 《Delphi6网罗通讯协议及实现》 上有相似哦,
我是在 华储卖的书。
hiflower 2003-10-16
  • 打赏
  • 举报
回复
拨号很容易啊,用 MSComm 控件,AT 命令即可

tujunhui 2003-10-16
  • 打赏
  • 举报
回复
有人有吗?

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧