Wireless Network Scanner - inSSIDer in Lazarus
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
Maciej Kaczkowski · 2015-01-06 18:26

I made port of  inSSIDer channel view library. Screenshot:

http://keit.co/p/wp-content/uploads/photo-gallery/net1_1.png

Example of usage:
Code: [Select]uses
  nduWireless, nduWirelessGraph;

var
    FWireless: TWireless;
    FGraph: TWirelessGraph;
    n: TNetworkItem;
begin
  FWireless := CreateWirelessDriver;
  FWireless.InterfacesRefresh;
  FWireless.InterfacesIndex := 0;
  FWireless.NetworkScan;

  FGraph := TWirelessGraph.Create(Panel1);
  FGraph.Parent := Panel1;
  FGraph.Align := alClient;
  FGraph.Driver := FWireless;

  for i := 0 to FWireless.NetworkCount - 1 do
  begin
      n := FWireless.NetworkItem[i];
      ShowMessage(n.SSID);
  end;




full package with:
* WlanAPI - no license information (FPC fix)
* ported inSSIDer libary (Apache)
* Pascal Wireless interface (LGPL)
http://keit.co/p/wp-content/plugins/download-
monitor/download.php?id=15


original delphi WlanAPI components:
http://www.delphibasics.info/home/delphibasicsprojects/wifiscanner

original C# inSSIDer library:
https://github.com/metageek-
llc/inSSIDer-2/blob/master/MetaScanner/UI/Controls/ChannelView.cs

----------------------------------------------------------------------
sin_dragan · 2015-01-06 19:42

Hi, I tried the example but I got an error, I run it from laptop
connected via wireless card on network.

Code: [Select]{ TWirelessWLAN }

procedure TWirelessWLAN.SetInterfacesIndex(AValue: Integer);
begin
  inherited SetInterfacesIndex(AValue);
  FGUID := StringToGUID(FInterfaces.Names[AValue]); // here ListIndex
(0) out of bounds
end;

----------------------------------------------------------------------
Maciej Kaczkowski · 2015-01-06 19:59

try
Code: [Select]  FWireless.InterfacesRefresh;
after create

----------------------------------------------------------------------
mdalacu · 2015-01-07 06:33

It is Windows only, no?
Thx.

----------------------------------------------------------------------
Maciej Kaczkowski · 2015-01-07 07:59

Graph is universal, for Linux you must write class (driver) that
inherits from TWireless (look at NDIS or WLAN).

----------------------------------------------------------------------
CM630 · 2020-04-15 05:33

Quote from: Maciej Kaczkowski on January 06, 2015, 07:26:24 pm...
full package with:
* WlanAPI - no license information (FPC fix)
* ported inSSIDer libary (Apache)
* Pascal Wireless interface (LGPL)
http://keit.co/p/wp-content/plugins/download-
monitor/download.php?id=15
...
Something is wrong with this hyperlink.