主要部分如下:type
RASDialParams = record
dwSize: DWORD;
szEntryName: Array[0..256] Of Char;
szPhoneNumber: Array[0..255] Of Char;
szCallbackNumber: Array[0..255] Of Char;
szUserName: Array[0..255] Of Char;
szPassword: Array[0..255] Of Char;
szDomain: Array[0..255] Of Char;
end;
.......
procedure TForm1.Button1Click(Sender: TObject);
var
RASDIALPARAMSData : RASDIALPARAMS;
dwResult : DWord;
RasCon : DWord;
begin
with RASDIALPARAMSData do
begin
dwSize := sizeof( RASDIALPARAMS );//结构大小
szEntryName := '163';//指定拨号连接的名称
szUserName := '12345678';//指定用户名称
szPassword := '12345678';//指定用户密码
szDomain := 'smlan';//指定域名
szCallbackNumber := '';//指定回叫号码
szPhoneNumber := '';//指定拨号号码
end;
dwResult:= RasDial( NIL,'',@RASDIALPARAMSData,0,NIL,RasCon);
button1.Caption:=IntToStr(dwResult);
end;可是这样一拨号,就返回632错误.
帮助中这样解释: 632 检测到不正确的结构大小环境:
XP , 基于 PPPOE 的宽带(虚拟拨号).
不知道能否使用 RasDial 拨号?
如果不能,那又如何使用特定的用户名与密码拨号呢?请诸位不吝赐教,万分感激.
RASDialParams = record
dwSize: DWORD;
szEntryName: Array[0..256] Of Char;
szPhoneNumber: Array[0..255] Of Char;
szCallbackNumber: Array[0..255] Of Char;
szUserName: Array[0..255] Of Char;
szPassword: Array[0..255] Of Char;
szDomain: Array[0..255] Of Char;
end;
.......
procedure TForm1.Button1Click(Sender: TObject);
var
RASDIALPARAMSData : RASDIALPARAMS;
dwResult : DWord;
RasCon : DWord;
begin
with RASDIALPARAMSData do
begin
dwSize := sizeof( RASDIALPARAMS );//结构大小
szEntryName := '163';//指定拨号连接的名称
szUserName := '12345678';//指定用户名称
szPassword := '12345678';//指定用户密码
szDomain := 'smlan';//指定域名
szCallbackNumber := '';//指定回叫号码
szPhoneNumber := '';//指定拨号号码
end;
dwResult:= RasDial( NIL,'',@RASDIALPARAMSData,0,NIL,RasCon);
button1.Caption:=IntToStr(dwResult);
end;可是这样一拨号,就返回632错误.
帮助中这样解释: 632 检测到不正确的结构大小环境:
XP , 基于 PPPOE 的宽带(虚拟拨号).
不知道能否使用 RasDial 拨号?
如果不能,那又如何使用特定的用户名与密码拨号呢?请诸位不吝赐教,万分感激.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货