如何实现moden拨号?谢谢

csdncjp 2003-08-30 12:59:41
同上。
...全文
103 3 打赏 收藏 转发到动态 举报
写回复
用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
  • 打赏
  • 举报
回复
可以直接调用系统的拔号控件,可以实现

1,593

社区成员

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

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