为什么setDialParams不能设置电话号码！急！急！400分！！！！(200分)

我通过rascomp32调用rasapi32，如下程序段：
RAS.UserName := 'aaa';
RAS.Password := 'bbb';
RAS.PhoneNumber :='1112';
RAS.SetDialParams ;
为什么，用户名和密码的设置都可以，就是电话号码
的设置不起作用？
急死了！

我当时好象也是遇到这个问题，后来改用tapiline了。

电话号码设置是正确的，关键是RasDial的参数要设置正确，
请看下面的例子：

function MyDial(FEntryName: String;
FPhoneNumber: String;
FCallbackNumber: String;
FUserName: String;
FPassword: String;
FDomain: String;
FHRasConn: THRasConn): Longint;
var
DialParams: TRasDialParams;
lpfPassword: LongBool;
begin
if FHRasConn > 0 then HangUp;

FillChar(DialParams, SizeOf(TRasDialParams), #0);
with DialParams do
begin
dwSize:=Sizeof(TRasDialParams);
StrPCopy(szEntryName, FEntryName);
end;

if FEntryName <> '' then
begin
Result := RasGetEntryDialParams(nil, DialParams, lpfPassWord);
if Result <> 0 then Exit;
end
else
with DialParams do
begin
dwSize := SizeOf(TRASDialParams);
szEntryName := '';
UniqueString(FPhoneNumber);
StrLCopy(szPhoneNumber, PChar(FPhoneNumber), RAS_MaxPhoneNumber);
UniqueString(FCallBackNumber);
UniqueString(FCallBackNumber);
StrLCopy(szCallbackNumber, PChar((FCallBackNumber)),
RAS_MaxCallbackNumber);
UniqueString(FUserName);
StrLCopy(szUserName,PChar((FUserName)) , UNLEN);
UniqueString(fPassWord);
StrLCopy(szPassword, PChar((fPassWord)), PWLEN);
UniqueString(FDomain);
StrLCopy(szDomain, Pchar(FDomain), DNLEN);
end;

FHRasConn := 0;

Result := RasDial(nil, nil, DialParams, 0, nil, FHRasConn);
end;

呵呵, rascomp32没用过, 但rasapi就是这么用了

接受答案了.