在delphi程序管理拨号网络 (2000年8月21日).txt

自己对DELPHI学习的一点体会

function RasSetEntryDialParams;external RasApiDll name 'RasSetEntryDialParamsA';
参数pRASDIALPARAMS的说明同RasGetEntryDialParams．
参数lpfPassword的含义与RasGetEntryDialParams不同，在此表示是否删除用户密码，为
　　TRUE时将原来的用户密码删除．
　　　　
　　　　函数返回值为0表示执行成功；否则为错误代码．
　　　　下面是一个应用例子，设置指定拨号连接的拨号参数．
var
dwResult : DWORD;
RASDIALPARAMSData : RASDIALPARAMS;
RemovePWD : WordBool;
begin
//指定拨号连接的拨号参数
with RASDIALPARAMSData do
begin
dwSize := sizeof( RASDIALPARAMS );//结构大小
szEntryName := '163';//指定拨号连接的名称
szUserName := 'MyName';//指定用户名称
szPassword := 'MyPassword';//指定用户密码
szDomain := 'MyDomain';//指定域名
szCallbackNumber := '';//指定回叫号码
szPhoneNumber := '';//指定拨号号码
end;
RemovePWD := false;//不需要删除用户密码

//设置指定拨号连接的拨号参数
dwResult := RasSetEntryDialParams( '',@RASDIALPARAMSData,RemovePWD );

if dwResult <> 0 then //设置指定拨号连接的拨号参数失败
memo1.lines.add( '设置'+StrPAS(RASDIALPARAMSData.szEntryName )+'拨号参数失败：' 
+ GetRasError( dwResult ))
else
begin//显示指定拨号连接的拨号参数
memo1.lines.add( StrPAS(RASDIALPARAMSData.szEntryName )+'拨号参数设置成功');
memo1.lines.add( '用户名称：' + StrPAS(RASDIALPARAMSData.szUserName ));
memo1.lines.add( '用户密码：' + StrPAS(RASDIALPARAMSData.szPassword ));
memo1.lines.add( '域 名：' + StrPAS(RASDIALPARAMSData.szDomain ));
memo1.lines.add( '回叫号码：' + StrPAS(RASDIALPARAMSData.szCallbackNumber ));
memo1.lines.add( '拨号号码：' + StrPAS(RASDIALPARAMSData.szPhoneNumber ));
end;
end;

四、用指定的拨号连接拨号、挂断指定的拨号连接
　　１、用指定的拨号连接拨号
　　　　拨号有两种方法，一种是调用拨号网络中的拨号程序，就象用户自己用鼠标双击拨号连接名称一
　　样，用户可以修改拨号号码、用户名称和用户密码，最后由拨号网络来完成拨号过程；另一个方法则
　　是调用RasAPI函数．
（１）用拨号网络中的拨号程序
　　　　　　　在程序中可以用如下代码：
　　　　　　　winexec('rundll32.exe rnaui.dll,RnaDial 169',SW_SHOWNORMAL);
　　　　　　　其中字符串中的最后一个参数“169”为拨号连接的名称。
（２）用RasAPI函数拨号
　　　　用拨号连接拨号的RasAPI函数为RasDial，其函数原型为：
function RasDial(
pRasDialExtensions : LPRASDIALEXTENSIONS;//在WIN9X下无用,可设置为NIL
lpszPhonebook : PChar;//电话本名称，在Win9X下无作用,可为空字符串
lpRasDialParams : LPRASDIALPARAMS;//拨号参数
dwNotifierType : DWORD;//消息通知方式
handle : TRasDialFunc;//消息处理事件
var lphRasConn : DWORD//返回的成功连接的连接句柄
) : DWORD; stdcall;
function RasDial;external RasApiDll name 'RasDialA';

　　　　参数pRASDIALPARAMS的说明同RasGetEntryDialParams．
　　　　参数dwNotifierType表示消息通知方式．在拨号过程中，系统发出拨号事件消息可以通知拨号
　　进度，因而需要提供接受消息的方式和处理消息的函数．当其值为$FFFFFFFF时，则参数handle被
　　视为一个窗口的句柄，事件消息被发生该窗口处理；当其值为0时，handle被视为TRasDialFunc类型
　　的函数的指针；当其值为1时，handle被视为TRasDialFunc1类型的函数的指针．
　　　　参数handle表示消息处理函数指针，其类型可以THandle、TRasDialFunc、TRasDialFunc1．当该
　　参数不为NULL或NIL时，其代表的消息处理函数指针将接受拨号进度通知消息；为NIL时，拨号过程由
　　异步方式变为同步方式，直到拨号过程成功或失败后RasDial函数才返回．详细可参见Delphi帮助文件
　　中关于RasDial函数的帮助。
　　　　当拨号连接成功时，lphRasConn将表示其连接句柄．

　　　　函数返回值为0表示执行成功；否则为错误代码．
　　　　下面是一个应用例子，按指定的拨号参数拨号．

var
RASDIALPARAMSData : RASDIALPARAMS;
dwResult : DWord;
RasCon : DWord;
begin
//指定拨号连接的拨号参数
with RASDIALPARAMSData do
begin
dwSize := sizeof( RASDIALPARAMS );//结构大小
szEntryName := '163';//指定拨号连接的名称
szUserName := 'MyName';//指定用户名称
szPassword := 'MyPassword';//指定用户密码
szDomain := 'MyDomain';//指定域名
szCallbackNumber := '';//指定回叫号码
szPhoneNumber := '';//指定拨号号码
end;

//用指定的拨号参数拨号，采用同步拨号方式
dwResult := RasDial( NIL,'',@RASDIALPARAMSData,0,NIL,RasCon );

if dwResult <> 0 then //设置指定拨号连接的拨号参数失败
memo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName )+'拨号失败：' 
+ GetRasError( dwResult ))
else
memo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName )+'拨号成功！' );
end;

　　２、挂断指定的拨号连接
　　　　挂断拨号连接的RasAPI函数为RasHangUp，其函数原型为：
function RasHangUp(
hRasConn : DWORD//要挂断的拨号连接的句柄
) : DWORD; stdcall;
function RasHangUp;external RasApiDll name 'RasHangUpA';
　　　　函数返回值为0表示执行成功；否则为错误代码．
　　　　下面是一个应用例子，挂断由RasDial建立的拨号连接．

//挂断由RasDial建立的拨号连接
dwResult := RasHangUp( RasCon );
if dwResult <> 0 then //挂断失败
memo1.lines.add( '挂断失败：' + GetRasError( dwResult ))
else
memo1.lines.add( '挂断成功！'); 

五、获取当前活动的连接及其连接状态
　　１、获取当前活动的连接
　　　　获取当前活动的连接的RasAPI函数为RasEnumConnections，其函数原型为：
function RasEnumConnections( var lprasconn : RASCONN ;//接收活动连接的缓冲区的指针
var lpcb: DWORD;//缓冲区大小
var lpcConnections : DWORD//实际的活动连接数
) : DWORD; stdcall;
function RasEnumConnections;external RasApiDll name 'RasEnumConnectionsA';
参数lprasconn提供了一个RASCONN类型数组的指针，指向一个接收活动连接的缓冲
　　区，其中RASCONN的类型说明如下：
RASCONN = record
dwSize : DWORD;//该结构所占内存的大小(Bytes),一般设置为SizeOf(RASCONN)
hrasconn : HRASCONN;//活动连接的句柄
szEntryName : array[0..RAS_MaxEntryName] of char;//活动连接的名称
szDeviceType : array[0..RAS_MaxDeviceType] of char;//活动连接的所用的设备类型
szDeviceName : array[0..RAS_MaxDeviceName] of char;//活动连接的所用的设备名称
end;
　　　　参数lpcb为缓冲区大小(Bytes)．
　　　　参数lpcConnections将返回实际的连接数目．

　　　　函数返回值为0表示执行成功；否则为错误代码．

　　２、获取指定连接的连接状态
　　　　获取指定连接的连接状态的RasAPI函数为RasGetConnectStatus，其函数原型为：
function RasGetConnectStatus(
hrasconn : HRASCONN; //指定活动连接的句柄
lprasconnstatus : LPRASCONNSTATUS//连接状态参数
) : DWORD; stdcall;
function RasGetConnectStatus;external RasApiDll name 'RasGetConnectStatusA';
　　　　连接状态参数lprasconnstatus是一个RASCONNSTATUS类型的指针，将返回连接状态参数．
　　RASCONNSTATUS和LPRASCONNSTATUS的类型说明如下：
LPRASCONNSTATUS = ^RASCONNSTATUS;
RASCONNSTATUS = record
dwSize : DWORD;//该结构所占内存的大小(Bytes),一般设置为SizeOf(RASCONNSTATUS)
rasconnstate : RASCONNSTATE;//连接状态标识，一组DWORD类型数值的集合。
dwError : DWORD;//错误类型标识符
szDeviceType : array[0..RAS_MaxDeviceType] of char;//活动连接的所用的设备类型
szDeviceName : array[0..RAS_MaxDeviceName] of char;//活动连接的所用的设备名称
end;
　　　　函数返回值为0表示执行成功；否则为错误代码．

　　　　下面是一个应用例子，列出了当前系统中活动的连接的名称及其连接状态．
注意，应在RASCONN缓冲区的第一个RASCONN结构中设置dwSize．

const
MaxConnections = 10;//最多的拨号连接数目
var
connections : array[0..MaxConnections-1] of RASCONN;
longSize : dword;
intAvailabelConnections : dword;
intIndex : integer;
dwResult : DWORD;
strTemp : string;
RASCONNSTATUSData : RASCONNSTATUS; 
begin
connections[ 0 ].dwSize := sizeof(RASCONN);//结构的大小
longSize := MaxConnections * connections[ 0 ].dwSize;//缓冲区大小
intAvailabelConnections := 0;//实际的活动连接的数目
//获取当前系统中活动的连接
dwResult := RasEnumConnections( connections[ 0 ], longSize,intAvailabelConnections );
if dwResult <> 0 then //获取当前系统中活动的连接
memo1.lines.add( '获取当前系统中活动的连接：' + GetRasError( dwResult ))
else
begin
memo1.lines.add( '当前系统中活动的连接' + inttostr( intAvailabelConnections ) 
+ '个，列举如下' );
for intIndex := 0 to intAvailabelConnections - 1 do
begin
strTemp := '连接名称：' + StrPAS( connections[ intIndex ].szEntryName )
+ ' 设备类型：' + StrPAS( connections[ intIndex ].szDeviceType )
+ ' 设备名称：' + StrPAS( connections[ intIndex ].szDeviceName );
//获取连接状态
dwResult := RasGetConnectStatus( connections[ intIndex ].hRasConn,@RASCONNSTATUSData );
if 0 <> dwResult then
strTemp := strTemp + ' 连接状态未知:' + GetRasError( dwResult )
else if RASCONNSTATUSData.rasconnstate = RASCS_Connected then
strTemp := strTemp + ' 连接状态:已连接'
else
strTemp := strTemp + ' 连接状态:(' + 
inttostr(RASCONNSTATUSData.rasconnstate)+')';
memo1.lines.add( strTemp );
end;
end;
end;

以上程序在PWIN98+Delphi3.0下调试通过。





作者:深圳王发军