Diese Zuweißung geht nicht wirklich
PInfo:=@InfoList.WLAN_Interface_Info;
Mein Code:
Delphi-Quellcode:
Pndu_WLAN_AVAILABLE_NETWORK_LIST = ^Tndu_WLAN_AVAILABLE_NETWORK_LIST;
PPndu_WLAN_AVAILABLE_NETWORK_LIST = ^Pndu_WLAN_AVAILABLE_NETWORK_LIST;
Tndu_WLAN_AVAILABLE_NETWORK_LIST = record
dwNumberOfItems: DWORD;
dwIndex: DWORD;
Network: array[0..0] of Tndu_WLAN_AVAILABLE_NETWORK;
end;
var
netzworklist: Pndu_WLAN_AVAILABLE_NETWORK_LIST;
Netzwork: Tndu_WLAN_AVAILABLE_NETWORK;
begin
....
netzworklist := WlanAllocateMemory(SizeOf(Tndu_WLAN_AVAILABLE_NETWORK_LIST));
back := WlanGetAvailableNetworkList(hClient,
@pInterface.InterfaceInfo[0].InterfaceGuid,
//NDU_WLAN_AVAILABLE_NETWORK_INCLUDE_ALL_ADHOC_PROFILES,
0,
nil, netzworklist);
Netzwork := @netzworklist^.Network; <---
for i := 0 to netzworklist^.dwNumberOfItems - 1 do
begin
Memo1.Lines.Add(Netzwork.strProfileName);
inc(Netzwork);
end;
Fehler beim "<---" = Inkompatiple Typen
Programmieren ..... .