Delphi控制ADSL拨号和断开

发布于： 2012/12/12 9:47:19   |  发布在： Delphi第三方组件   |  点击：

一个用来管理ADSL拨号的控件。

使用的拨号控件是开源的DialUp.pas，只要新建一个包（Package工程），加入这个文件后，就可以编译建立TDialUp控件。

新建的包安装后可以在“Internet”面板上找到该TDialUp控件，将该控件加入你的工程就可以管理ADSL拨号了。使用举例如下：

//获取可用的宽带连接列表
procedure TForm1.Button1Click(Sender: TObject);
begin
  DialUp1.GetEntries;
  ComboBox1.Items := DialUp1.Entries;
end;

//拨号例子
procedure TForm1.Button2Click(Sender: TObject);
begin
  DialUp1.Entry := ComboBox1.Text; //从列表中选择一个宽带连接进行拨号
  DialUp1.Dial;
end;

//断开连接
procedure TForm1.Button3Click(Sender: TObject);
begin
  DialUp1.HangUp;
end;

//响应拨号事件
procedure TForm1.DialUp1AsyncEvent(Sender: TObject; State, Error: Integer;
  MessageText: String);
begin
  Memo1.Text := MessageText;
end;

附件：tdialup.rar

ADSL, 拨号