上一篇:TGifImage V2.2 For Delphi
下一篇:在TListView控件中添加进度条效果

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拨号