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}中需赋值得部分，也不行，怎么办呢？
|
發表時間：2003-06-07 14:04:44
IP:218.14.xxx.xxx 未訂閱
系統時間：2024-04-29 2:10:38
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |