WLanManager WLanAPI

[nitschchedu]

So leute ndis geht jetzt aber ich bekomme jetzt einen Adressfehler

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
   select: Integer;
  i: Integer;
  element: Tndu_NDIS_WLAN_BSSID;
  wstring: TnduWString;
  Item: TListItem;
begin
   try
      if listviewWLanDevice.Selected.Selected then
    begin
       select := listviewWLanDevice.Selected.Index;
    end;
  except
     memInfo.Lines.Add('Kein Geräte ausgwählt!');
    Exit;
  end;

  WlanNDIS.SelectDevice(select);
  WlanNDIS.Scan;

  wstring := TnduWString.Create;

  for i := 0 to WlanNDIS.ScanListCount - 1 do
  begin
    Item := listviewndis.Items.Add; <-- Fehler
    element := WlanNDIS.GetScanListItem(i);
    Item.Caption := ' ';
    Item.ImageIndex := 0;
    Item.SubItems.Add(wstring.HexStringToStr(
      wstring.ByteArrayToHexStr(element.Ssid.Ssid,
      element.Ssid.SsidLength)));
  end;

  wstring.Free;
end;

Wenn jemand ne Idee hat