刚才下了个TDialUp控件,但不知怎么用?(100)

  • 主题发起人 主题发起人 claire_cn
  • 开始时间 开始时间
C

claire_cn

Unregistered / Unconfirmed
GUEST, unregistred user!
刚才下了个TDialUp控件,但不知怎么用?不需要很复杂的操作,只要如何拨号上网与断网就可以了,谢谢了
 
/cnpack/Source/NetComm/CnDialUp.pas中实现了TCnDialUp类有function GoOnline: Boolean;procedure GoOffline;方法就是拨号上网与断网
 
Memo1.Lines.Add('系统状态:正在重新拨号!........'); DialUp1.Username:=Trim(RzEdit4.Text); DialUp1.Password:=Trim(RzEdit5.Text); DialUp1.ConnectTo:=Trim(RzComboBox1.Text); DialUp1.GoOffline; TrayIcon1.ShowBalloonHint('系统状态','断开网络成功',bitInfo, 10); Delay(5000); if DialUp1.GoOnline then begin delay(5000); myIP:=getLocalIP;
 
后退
顶部