首页  编辑  

断开Internet连接

Tags: /超级猛料/Network.网络通讯/其它/   Date Created:

用Delphi编写可以断开Internet连接的程序

  在WIN9X下,如果安装了拨号网络,则在WINDOWS的系统目录(System目录)下将有两个拨号网络管理程序库RasApi32.DLL 和RasApi16.DLL,因此我们可以利用RAS(远程访问服务)系列函数实现断开指定的拨号连接。在这里我们将使用RasHangUp函数。然而如何正确使用这些API函数是完成应用程序的关键。

  挂断拨号连接的RasApi32函数为RasHangUp,其函数原型为:

  RasHangUp(HRASCONN : DWORD

   ):DWORD;stdcall;

  参数说明:

  HRASCONN : DWORD要挂断的拨号连接的句柄,此句柄是来源由调用函数RasEnumConnections的返回值。

  返回值:函数的返回值为0表示执行成功;不为0执行失败。

  由上面的函数得知:我们必须首先获得拨号连接的句柄,因此在应用程序中还需使用RasEnumConnections函数。

  获取所有活动的拨号连接的信息列表(连接句柄和电话号码)的RasApi32函数为RasEnumConnections,其函数原型为:

  RasEnumConnections(LPRASCONN lprasconn,LPDWORD lpcb,LPDWORD lpcConnections) :DWORD;stdcall;

  参数说明:

  lprasconn:接收活动连接的缓冲区的指针;

  lpcb:接收缓冲区的字节大小;

  lpcConnections:实际的活动连接数。

  返回值函数的返回值为0表示执行成功;不为0执行失败。

  为了正确使用这两个函数,我们要事先定义函数,常数,结构类型及其他信息,有关这一部份的内容都写入rasapi.pas单元。

  源程序:

  program main;

  uses

   Forms,

   Unit1 in 'Unit1.pas' {Form1},

   rasapi in 'rasapi.pas';

  {$R *.RES}

  begin

   Application.Initialize;

   Application.CreateForm(TForm1, Form1);

   Application.Run;

  end.

  unit Unit1;

  interface

  uses

   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

   StdCtrls, DdeMan;

  type

   TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

   private

    { Private declarations }

     public

    { Public declarations }

   end;

  var

   Form1: TForm1;

  implementation

   uses rasapi;

  {$R *.DFM}

  procedure TForm1.Button1Click(Sender: TObject);

  var

     bufsize: Cardinal;

     numEntries: Cardinal;

     x: Integer;

     entries: Array[1..10] of TRasConn;//拨号连接数组(假设最多有10个活动的拨号连接)

     stat: TRasConnStatus;

     hRas: HRasConn;

     conexion:pRasConn;

   begin

    entries[1].dwSize := SizeOf(TRasConn);

    bufsize := SizeOf(TRasConn) * 10;

    FillChar(stat, Sizeof(TRasConnStatus), 0);

    stat.dwSize := Sizeof(TRasConnStatus);

    if RasEnumConnections(@entries[1], bufsize, numEntries) = 0 then

     begin

      if numEntries > 0 then

       with entries[1] do

       begin

        conexion:=Pointer(rasconn);

        hRas := Longint(conexion);

        if RasHangUp(hRas) <> 0 then

         ShowMessage('断开失败');

       end

       else

        ShowMessage('断开成功');

       end;

   end;

  unit rasapi;

  interface

   Uses WinTypes, WinProcs, Dialogs;

   Const

   UNLEN = 256;

   PWLEN = 256;

   DNLEN = 15;

   RAS_MaxEntryName   = 256;//连接名称最大长度

   RAS_MaxDeviceName   = 128;//设备名称最大长度

   RAS_MaxDeviceType   = 16;//设备类型名称长度

   { RAS_MaxParamKey   = 32;

   RAS_MaxParamValue   = 128;}

   RAS_MaxPhoneNumber  = 128;//电话号码的最大长度

   RAS_MaxCallbackNumber = RAS_MaxPhoneNumber;

   Type

   {UINT = Word;}

   PHRASConn = ^HRASConn;

   Type

   { 确认一活动的拨号连接. (为RasConnectEnum函数使用) }

   PRASConn = ^TRASConn;//拨号连接的句柄类型

   TRASConn = record

     dwSize: DWORD;//该结构类型所占内存的字节大小

     rasConn: HRASConn;//活动连接的句柄

     szEntryName: Array[0..RAS_MaxEntryName] Of Char;//

     szDeviceType : Array[0..RAS_MaxDeviceType] Of Char;

     szDeviceName : Array [0..RAS_MaxDeviceName] of char;

   end;

   PRASConnStatus = ^TRASConnStatus;

   TRASConnStatus = Record

     dwSize: LongInt;

     rasConnstate: Word;

     dwError: LongInt;

     szDeviceType: Array[0..RAS_MaxDeviceType] Of Char;

     szDeviceName: Array[0..RAS_MaxDeviceName] Of Char;

   End;

   PRASDIALEXTENSIONS= ^TRASDIALEXTENSIONS;

   TRASDIALEXTENSIONS= Record

     dwSize: DWORD;

     dwfOptions: DWORD;

     hwndParent: HWnd;

     reserved: DWORD;

    end;

   PRASDialParams = ^TRASDialParams;

   TRASDialParams = Record

     dwSize: DWORD;

     szEntryName: Array[0..RAS_MaxEntryName] Of Char;

     szPhoneNumber: Array[0..RAS_MaxPhoneNumber] Of Char;

     szCallbackNumber: Array[0..RAS_MaxCallbackNumber] Of Char;

     szUserName: Array[0..UNLEN] Of Char;

     szPassword: Array[0..PWLEN] Of Char;

     szDomain: Array[0..DNLEN] Of Char;

   end;

   PRASEntryName = ^TRASEntryName;

   TRASEntryName = Record

     dwSize: LongInt;

     szEntryName: Array[0..RAS_MaxEntryName] Of Char;

   {  Reserved: Byte;}

   End;

  //拨号函数

   Function RasDial(

     lpRasDialExtensions : PRASDIALEXTENSIONS ; //在WIN9X下无用,可设置为NIL

     lpszPhonebook: PChar; //在WIN9X下无用,可设置为NIL

     lpRasDialParams : PRASDIALPARAMS; // 拨号参数,类型指针

     dwNotifierType : DWORD;   { 消息通知方式}

     lpvNotifier: DWORD;    { 消息处理事件}

     var rasConn: HRASConn     { 返回成功连接的连接句柄}

    ): DWORD; stdcall;

   function RasEnumConnections(RASConn: PrasConn;

            var BufSize: DWord;

         var Connections: DWord

    ): LongInt; stdcall;

   Function RasEnumEntries (

     reserved: PChar;    {保留字段,必须为空}

     lpszPhonebook: PChar ;    { 电话本名称,在WIN9X下无用,可设置为NIL}

     lprasentryname: PRASENTRYNAME ; {接收拨号连接名称的缓冲区,是一类型数组的指针}

     var lpcb :     DWORD; {接收拨号连接名称的缓冲区的大小}

     var lpcEntries : DWORD  {实际获得拨号连接 的数目}

    ) : DWORD; stdcall;

   function RasGetConnectStatus(RASConn: hrasConn;    { 指定活动连接的句柄 }

           RASConnStatus: PRASConnStatus { 获取活动连接状态信息的缓冲区}

     ): LongInt; stdcall;

   function RasGetErrorString(ErrorCode: DWord;    { 错误代码标识}

                szErrorString: PChar;    { 错误提示信息的缓冲区}

                BufSize: DWord   {错误提示信息的缓冲区的大小 }

                ): LongInt; stdcall;

   function RasHangUp(RASConn: hrasConn ): LongInt; stdcall;

   function RasGetEntryDialParams(

     lpszPhonebook:PChar;    {电话本名称,在WIN9X下无用,可设置为NIL }

     VAR lprasdialparams:TRASDIALPARAMS; {拨号参数,是一类型指针}

     VAR lpfPassword : BOOL    {显示是否需要用户密码}

    ): DWORD; stdcall;

   implementation

   const

   RAS_DLL = 'RASAPI32';

   function RasDial; external RAS_DLL name 'RasDialA';

   function RasEnumConnections; external RAS_DLL name 'RasEnumConnectionsA';

   function RasEnumEntries; external RAS_DLL name 'RasEnumEntriesA';

   function RasGetConnectStatus; external RAS_DLL name 'RasGetConnectStatusA';

   function RasGetErrorString; external RAS_DLL name 'RasGetErrorStringA';

   function RasHangUp; external RAS_DLL name 'RasHangUpA';

   function RasGetEntryDialParams; external RAS_DLL name 'RasGetEntryDialParamsA';

  end.

  以上代码在PWIN98+DELPHI5环境下调试通过。