谁用过设置无线网卡的承载网络的API(WIN7)

lght 2011-11-14 07:08:12

在xp下编译后，在win7中运行，可以设置但连接时总提示密码不对。
之前用delphi7在win7下编译运行通过，并用手机的wifi连接上了。

怎么回事啊。

...全文

501 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

lght 2011-11-17

打赏
举报

[Quote=引用 8 楼 zhuang_bx 的回复:]

AName, APass: string

类型改成宽字符试试
var AName, APass: PWideChar;
[/Quote]

wide,ansi都试过了

zhuang_bx 2011-11-16

打赏
举报

AName, APass: string

类型改成宽字符试试
var AName, APass: PWideChar;

lght 2011-11-14

打赏
举报

wlanapi声明部分
http://download.csdn.net/detail/lght/3795678

lght 2011-11-14

打赏
举报



//AName：无线AP名称，不超过32个字符

//APass：密码，至少8个字符

//function SetSoftAP(AName, APass: string): Boolean;

//var

//  phClient: THandle;

//  dwVer, dwRet: DWORD;

//  pwhnr: WLAN_HOSTED_NETWORK_REASON;

//  pwhnc: WLAN_HOSTED_NETWORK_CONNECTION_SETTINGS;

//  pTemp: PAnsiChar;

//  pb: BOOL;

//begin

//  Result := False;

//  dwRet := WlanOpenHandle(1, nil, @dwVer, @phClient);

//  if dwRet <> ERROR_SUCCESS then

//    Exit;

//

//  dwRet := WlanHostedNetworkInitSettings(phClient, @pwhnr, nil);

//  if dwRet = ERROR_SUCCESS then

//  begin

//    pTemp := PAnsiChar(AnsiString(AName));

//    pwhnc.hostedNetworkSSID.uSSIDLength := lstrlenA(pTemp);

//    ZeroMemory(@pwhnc.hostedNetworkSSID.ucSSID, 32);

//    CopyMemory(@pwhnc.hostedNetworkSSID.ucSSID, pTemp, lstrlenA(pTemp));

//    pwhnc.dwMaxNumberOfPeers := 10;

//    //设置无线AP的名称

//    dwRet := WlanHostedNetworkSetProperty(phClient,

//      wlan_hosted_network_opcode_connection_settings,

//      SizeOf(pwhnc), @pwhnc, @pwhnr, nil);

//    if dwRet = ERROR_SUCCESS then

//    begin

//      pb := True;

//      //启用网络承载

//      dwRet := WlanHostedNetworkSetProperty(phClient,

//        wlan_hosted_network_opcode_enable, SizeOf(pb), @pb, @pwhnr, nil);

//      Form1.mmo1.Lines.Add(IntToStr(dwRet) + ': 2');

//      if dwRet = ERROR_SUCCESS then

//      begin

//        pTemp := PAnsiChar(AnsiString(APass));

//        //设置无线AP的密码

//        dwRet := WlanHostedNetworkSetSecondaryKey(phClient, lstrlenA(pTemp) + 1,

//          PUCHAR(pTemp), True, False, @pwhnr, nil);

//        Form1.mmo1.Lines.Add(IntToStr(dwRet) + ': 3');

//        if dwRet = ERROR_SUCCESS then

//        begin

//          //开启无线AP

//          dwRet := WlanHostedNetworkStartUsing(phClient, @pwhnr, nil);

//          Result := dwRet = ERROR_SUCCESS;

//        end;

//      end;

//    end;

//  end;

//  WlanCloseHandle(phClient, nil);

//end;