win2000下rasdial的参数如何设置? |
尚未結案
|
zshlf
一般會員 發表:18 回覆:11 積分:5 註冊:2003-06-03 發送簡訊給我 |
我要在程序中拨号, unit ras; tagRASDIALPARAMSW = record
dwSize: DWORD;
szEntryName: packed array[0..RAS_MaxEntryName] of WideChar;
szPhoneNumber: packed array[0..RAS_MaxPhoneNumber] of WideChar;
szCallbackNumber: packed array[0..RAS_MaxCallbackNumber] of WideChar;
szUserName: packed array[0..UNLEN] of WideChar;
szPassword: packed array[0..PWLEN] of WideChar;
szDomain: packed array[0..DNLEN] of WideChar;
{$IFDEF WINVER_0x401_OR_GREATER}
dwSubEntry: DWORD;
dwCallbackId: DWORD;
{$ENDIF}
end; PRasDialExtensions = ^TRasDialExtensions;
tagRASDIALEXTENSIONS = record
dwSize: DWORD;
dwfOptions: DWORD;
hwndParent: HWND;
reserved: DWORD;
{$IFDEF WINVER_0x500_OR_GREATER}
reserved1: DWORD;
RasEapInfo: TRasEapInfo;
{$ENDIF}
end; -------------------------------------------------------------------- unit dial; uses ras; function dial(phone:string;user:string;pass:string):integer;
var
//RasDialExtensions:TRasDialExtensions;
RASDIALPARAMSData:TRASDialParams;
dwResult : DWord;
RasCon: DWord;
str:array[0..255] of char;
begin
with RasDialExtensions do
begin
dwsize:=sizeof(TRasDialExtensions);
dwfoptions:=0;
HwndParent:=0;
Reserved:=0; end;
//指定拨号连接的拨号参数
with RASDIALPARAMSData do begin
dwSize := sizeof(TRASDIALPARAMS );//结构大小
strpcopy(szEntryName,'');//指定拨号连接的名称
strpcopy(szPassword,pass);//指定用户密码
strpcopy(szUserName,user);//指定用户名称
szDomain := '';//指定域名
szCallbackNumber := '';//指定回叫号码
strpcopy(szPhoneNumber,phone);//指定拨号号码
end;
//用指定的拨号参数拨号,采用同步拨号方式 dwResult:=RasDial(nil,'',@RASDIALPARAMSData,0,0,RasCon);
if dwresult<>0 then
begin
RasGetErrorString(dwresult,str,256);
showmessage('拨号失败:' strpas(str));
end;
result:=dwresult;
end; 以上程序可在win98运行,win2000下失败,我尝试加上RasDialExtensions,或者加上{$ifdef}..{endif}中需赋值得部分,也不行,怎么办呢?
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |