Chinaunix首页 | 论坛 | 博客
  • 博客访问: 134923
  • 博文数量: 72
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 276
  • 用 户 组: 普通用户
  • 注册时间: 2014-07-28 23:52
文章分类

全部博文(72)

文章存档

2017年(20)

2014年(52)

分类: Delphi

2014-10-17 10:54:33

之前用delphi7在win7下编译运行通过,并用手机的wifi连接上了
wlanapi声明部分
http://download.csdn.net/detail/lght/3795678

Delphi/Pascal code
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
//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;
阅读(460) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~
评论热议
请登录后评论。

登录 注册