社区
网络通信/分布式开发
帖子详情
如何实现moden拨号?谢谢
csdncjp
2003-08-30 12:59:41
同上。
...全文
108
3
打赏
收藏
如何实现moden拨号?谢谢
同上。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hawk_js
2003-09-01
打赏
举报
回复
MARK
frogshero
2003-08-31
打赏
举报
回复
猛料里的:
拨号Modem
来自:ahxia, 时间:01-8-24 13:26:00, ID:605771
刚刚做了一段东西,应该不是太难:
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-08-31
打赏
举报
回复
可以直接调用系统的拔号控件,可以实现
华为[HuaWei] HG520S猫
Moden
拨号
路由设置
华为[HuaWei] HG520S猫
Moden
拨号
路由设置
路由器与
moden
的区别
有关 路由器与
moden
的区别 很全哦 234800
linux下3GPP
拨号
断网对话脚本,支持所有linux下
moden
拨号
等会话操作
linux下基于3GPP的
拨号
上网脚本,适用于所有上网模块,支持3GPP(UMTS,LTE,GSM,GPRS)
OMRON欧姆龙PLC通过串口
拨号
MODEN
资料.doc
OMRON欧姆龙PLC通过串口
拨号
MODEN
资料doc,OMRON欧姆龙PLC通过串口
拨号
MODEN
资料
[252]
实现
MODEN
的串口通信,VC编程比较经典。有一定的实用性,值得大家参考上位机开发VC串口学习资料源码下载.zip
[252]
实现
MODEN
的串口通信,VC编程比较经典。有一定的实用性,值得大家参考上位机开发VC串口学习资料源码下载.zip[252]
实现
MODEN
的串口通信,VC编程比较经典。有一定的实用性,值得大家参考上位机开发VC串口学习资料...
网络通信/分布式开发
1,593
社区成员
32,963
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章