SSID scanner

[pcurtis]

I have a SSID scanner that half works (see attachment).

There is one problem I can't solve

1. The WLAN adapter is shown twice?

2. Weak SSID's are not shown, but are shown once I open the network manager in the task tray W10.

Any ideas?

[Thaddy]

Well, 1 is normal and as intended (scan and connection). 2 is a bit more problematic. My (old) KOL wifi scanner suffers from the same issue, although less so. ATM it does not compile anymore under FPC/Lazarus for some reason.

[pcurtis]

I don't see how 1. is normal?

Did you try the app?

Or how do I differentiate between the two?

 > pAvailableNetworkList^.Network[j].dwFlags = 0

[af0815]

I get a range check error 201

Code: Pascal  [Select][+][-]

1.     for j := 0 to pAvailableNetworkList^.dwNumberOfItems - 1 do
2.     begin
3.       l := listview1.Items.Add;
4.  
5.       SDummy := PChar(@pAvailableNetworkList^.Network[j].dot11Ssid.ucSSID); // <---- here
6.       l.Caption := j.ToString +' ' + (SDummy);
7.       l.SubItems.Add(Format('%d ',
8.  

here.

Lazarus 2.3.0 rmain-2_3-342-gc44d729ba2 FPC 3.2.3 i386-win32-win32/win64

Edit: Without Debuggerinformation the program sya Range error and terminate.

[pcurtis]

I use Laz 2.0.10, something has probably changed.

[Thaddy]

for in do will prevent the range check...

[af0815]

BTW:
 NDU_DOT11_SSID_MAX_LENGTH = 32; //32 Bytes

but should it not be 32+1 if you have a 32 Char plus one 0 for the termination. ?!

[SymbolicFrank]

I have trunk and it complains about the last two values of Tndu_DOT11_AUTH_ALGORITHM being larger than an integer.

[pcurtis]

The code is not mine. I stumbled on it on the web, and was for delphi 2007