mainform.cpp

来自「C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部」· C++ 代码 · 共 77 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
#include "ras.h"
#include "raserror.h"
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{//创建拨号连接
    RASDIALPARAMS rdParams;
    rdParams.dwSize = sizeof(RASDIALPARAMS);
    rdParams.szEntryName[0] = '\0';
    lstrcpy( rdParams.szPhoneNumber,this->Edit1->Text.c_str());
    rdParams.szCallbackNumber[0] = '\0';
    lstrcpy( rdParams.szUserName, this->Edit2->Text.c_str() );
    lstrcpy( rdParams.szPassword, this->Edit3->Text.c_str());
    rdParams.szDomain[0] = '\0';
    HRASCONN hRasConn = NULL;
    DWORD dwRet = RasDial( NULL, NULL, &rdParams, 0L, NULL, &hRasConn );
    if ( dwRet == 0 )
       return ;
    char  szBuf[256];
    if ( RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 )
       	wsprintf( (LPSTR)szBuf, "未知的 RAS 拨号错误： (%ld).", dwRet );
    RasHangUp( hRasConn );
    MessageBox( Handle,(LPSTR)szBuf, "信息提示", MB_OK | MB_ICONSTOP );
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{ //断开拨号连接
   RASCONN ras[20];
   DWORD  dSize, dNumber;
   char  szBuf[256];
   ras[0].dwSize = sizeof( RASCONN );
   dSize = sizeof( ras );
   DWORD  dwRet = RasEnumConnections( ras, &dSize, &dNumber );
   if ( dwRet != 0 )
   {
     if ( RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 )
         wsprintf( (LPSTR)szBuf, "未定义RAS连接错误 (%ld).", dwRet );
     MessageBox(Handle, (LPSTR)szBuf, "信息提示", MB_OK | MB_ICONSTOP );
     return ;
    }
    for( DWORD dCount = 0;  dCount < dNumber;  dCount++ )
    {
    	HRASCONN hRasConn = ras[dCount].hrasconn;
    	DWORD dwRet = RasHangUp( hRasConn );
    	if ( dwRet != 0 )
    	{
      	  char  szBuf[256];
	  if ( RasGetErrorString( (UINT)dwRet, (LPSTR)szBuf, 256 ) != 0 )
	    wsprintf( (LPSTR)szBuf, "未知的 RAS 错误(%ld).", dwRet );
	  MessageBox(Handle, (LPSTR)szBuf, "信息提示", MB_OK | MB_ICONSTOP );
	}
     }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
   this->Close();
}
//---------------------------------------------------------------------------