社区
网络通信/分布式开发
帖子详情
如何实现moden拨号?谢谢
csdncjp
2003-08-30 12:59:41
同上。
...全文
106
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猫
Mode
n
拨号
路由设置
华为[HuaWei] HG520S猫
Mode
n
拨号
路由设置
路由器与
mode
n的区别
有关 路由器与
mode
n的区别 很全哦 234800
linux下3GPP
拨号
断网对话脚本,支持所有linux下
mode
n
拨号
等会话操作
linux下基于3GPP的
拨号
上网脚本,适用于所有上网模块,支持3GPP(UMTS,LTE,GSM,GPRS)
OMRON欧姆龙PLC通过串口
拨号
MODE
N资料.doc
OMRON欧姆龙PLC通过串口
拨号
MODE
N资料doc,OMRON欧姆龙PLC通过串口
拨号
MODE
N资料
[252]
实现
MODE
N的串口通信,VC编程比较经典。有一定的实用性,值得大家参考上位机开发VC串口学习资料源码下载.zip
[252]
实现
MODE
N的串口通信,VC编程比较经典。有一定的实用性,值得大家参考上位机开发VC串口学习资料源码下载.zip[252]
实现
MODE
N的串口通信,VC编程比较经典。有一定的实用性,值得大家参考上位机开发VC串口学习资料...
网络通信/分布式开发
1,593
社区成员
32,964
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章