delphi 控制 adsl modem 拨号

《delphi 控制 adsl modem 拨号》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Delphi控制ADSLModem拨号来自：jsxjd,时间：2003-1-139:51:00,ID：1576042Delphi控制ADSLModem拨号用MODEM拨号上网，仍是大多数个人网民选择上网的方式．如果能在我们的应用程序中管理拨号网络（如Foxmail、Sygate中的拨号功能），无疑将会方便我们的软件用户（不用再切换应用程序，运行拨号网络），提高我们的软件的友好性从而提高软件的竞争力．在WIN9X下，如果安装了拨号网络，则在WINDOWS系统的系统目录System下将有两个拨号网络管理程序库RasApi32

2、.DLL和RasApi16.DLL，我们可利用其中的函数来获取和设置拨号连接网络的信息。在Delphi帮助文件中，有相关函数的说明。　　在此，我们要讨论的管理项目有：　　　　１、获取当前系统中可用的拨号连接名称　　　　２、新建拨号连接、修改拨号连接的属性　　　　３、获取和设置拨号连接的拨号参数　　　　４、用指定的拨号连接拨号、挂断指定的拨号连接　　　　５、获取当前活动的连接及其连接状态一、获取当前系统中可用的拨号连接名称即获取系统中已建立的拨号连接的名称，可用来让用户选择使用哪个拨号连接进行拨号．可以用两种方法来实现．一

3、种是利用RasAPI函数；另一种是不用RasAPI函数，直接在注册表中查询．１、不用RasAPI函数，直接在注册表中查询在注册表的HKEY_USERS.DefaultRemoteAccessAddresses下，列出了已经在拨号网络中建立了的拨号连接的名称及其属性设置，其中各项目的名称即为可用的拨号连接的名称；各项目的值即为各拨号连接的属性设置，不过是二进制串，笔者还看不懂．由此可见，我们只要读出各项目的名称即可获取当前系统中可用的拨号连接名称．varregistryTemp:TRegistry;stringsTe

4、mp:TStringlist;beginregistryTemp:=TRegistry.Create;stringsTemp:=TStringlist.Create;withregistryTempdobeginRootKey:=HKEY_USERS;//根键设置为HKEY_USERS//如果存在子键.DefaultRemoteAccessAddressesifOpenKey('.DefaultRemoteAccessAddresses',false)thenGetValueNames(stringsTemp);

5、//读出各项目的名称，即拨号连接名称end;combobox1.Items.assign(stringsTemp);//显示，供选择end;２、用RasAPI函数RasAPI函数RasEnumEntries可获取当前系统中可用的拨号连接名称．其函数原型为functionRasEnumEntries(reserved:PChar;//保留字段,必须为NILlpszPhonebook:PChar;//电话本名称,在Win9X下无作用,可为空字符串lprasentryname:LPRASENTRYNAME;//接收拨号连接名称

6、的缓冲区,//是一个RASENTRYNAME类型数组的指针varlpcb:DWORD;//接收拨号连接名称的缓冲区的大小(Bytes)varlpcEntries:DWORD//实际获得的拨号连接名称的数目):DWORD;stdcall;functionRasEnumEntries;externalRasApiDllname'RasEnumEntriesA';参数lprasentryname提供了一个RASENTRYNAME类型数组的指针，指向一个接收拨号连接名称的缓冲区，其中RASENTRYNAME及LPRASENTRY

7、NAME的类型说明如下：LPRASENTRYNAME=^RASENTRYNAME;RASENTRYNAME=recorddwSize:DWORD;//该结构所占内存的大小(Bytes),//一般设置为SizeOf(RASENTRYNAME)szEntryName:array[0..RAS_MaxEntryName]ofchar;//拨号连接名称end;lpcb为缓冲区的大小，一般设置为dwSize的倍数，倍数为可能有的连接的个数．lpcEntries实际的连接的个数．下面是一个应用例子，列出了当前系统中可用的拨号连接名称

8、．注意，应在RASENTRYNAME缓冲区的第一个RASENTRYNAME结构中设置dwSize．constMaxPhoneEntries=10;//最多的拨号连接数目varintIndex:integer;PhoneEntries:array[0..MaxPhoneEntries-1]ofRASEntryName;