社区
网络通信/分布式开发
帖子详情
谁有delphi编写modem拨号的程序,谢谢
tujunhui
2003-10-15 06:27:07
to: tujunhui@163.net
收到马上给分
...全文
41
5
打赏
收藏
谁有delphi编写modem拨号的程序,谢谢
to: tujunhui@163.net 收到马上给分
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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
打赏
举报
回复
有人有吗?
Delphi
串口及语音传真高级编程.(北航出版.温锦山.唐柱鹏)
本书有丰富的实例,是作者多年来对电信编程的心得,是为解决实际问题而
编写
的,汇集了作者的经验和技巧。本书是电信应用编程中的得力助手,可为对
Delphi
语音、传真编程感兴趣者提供帮助,亦可供广大编程人员及各...
Delphi
串口及语音传真高级编程随书光盘
编写
一本串口及语音传真编程方面书籍的... 本书对组件的属性、方法、事件不是单纯的描述,而是有丰富的实例,并对实例进行深入剖析,更易于理解,以便让读者迅速地编出实用的
程序
,透彻地理解语音传真编程的实现方法。
Delphi
XE10零基础实战快速入门
通过课堂上一个一个的实战例子,演示
Delphi
XE10的用法,最后通过一个完整的通讯录
程序
,让学员初步掌握软件开发的全部流程 让零基础学员快速入门
Delphi
编程,快速掌握
Delphi
的使用方法,并能够制作出自己的软件来。...
vc++ 应用源码包_1
压缩包内有两个源码包,一个是注册机源
程序
,另一个是解密机的源
程序
,一套完整的参考实例。 VC+MapX源码含GPS跟踪演示 VC3D 利用VC编程在界面上实现3D文字 在MFC应用
程序
中浏览PDF、Word文档文件 vcdialog 自...
vc++ 应用源码包_2
压缩包内有两个源码包,一个是注册机源
程序
,另一个是解密机的源
程序
,一套完整的参考实例。 VC+MapX源码含GPS跟踪演示 VC3D 利用VC编程在界面上实现3D文字 在MFC应用
程序
中浏览PDF、Word文档文件 vcdialog 自...
网络通信/分布式开发
1,593
社区成员
32,963
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章