Info s wifi adapteru (Delphi)

Dobry den.
Chtěl bych načíst info s wifi adapteru.
theroadtodelphi.wordpress.com
U každeho přikladu mí to vyhodí chybu na řadku s kodem
FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM WiFi_AdapterAssocStats','WQL',wbemFlagForwardOnly) ;

First chance exception at $75432005. Exception class EOleException with message 'Invalid class'. Process Project1.exe (2376)

Tento problem se probira v tom članku dole v diskuzí.
Ja to vyzkoušel na 7 počitačích s Win 8 a na všech stejny problem.
Neví někdo jak vyřešít tento problem.

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
Tak ani přes to native Wifi API mi to nefrčí. Form se vykreslí a pak vyskočí Runtime error 217 at 00… mimon11 27.01.2014 16:49	mimon11	27.01.2014 16:49
Čiže chyba nastala tu? ResultInt:=WlanOpenHandle(1, nil, @dwVersion, @hClient); try if ResultInt<>… poslední pme 28.01.2014 11:47	pme	28.01.2014 11:47

Tak ani přes to native Wifi API mi to nefrčí.
Form se vykreslí a pak vyskočí Runtime error 217 at 0051A1EF

Když to protahnu debugerem tak to skončí na WriteLn('Error Open CLient'+IntToStr(ResultInt));
First chance exception at $776B2EEC. Exception class EInOutError with message 'I/O error 105'. Process Project1.exe (3020)

Čiže chyba nastala tu?

ResultInt:=WlanOpenHandle(1, nil, @dwVersion, @hClient);
   try
    if  ResultInt<> ERROR_SUCCESS then
    begin
       WriteLn('Error Open CLient'+IntToStr(ResultInt));
       Exit;
    end;

Trošku som na to v rýchlosti pozrel na msdn a vyzerá to tak, že je tam "zlý" parameter:

WlanOpenHandle(1, nil, @dwVersion, @hClient);

dwClientVersion [in]
The highest version of the WLAN API that the client supports.
Value Meaning
1
Client version for Windows XP with SP3 and Wireless LAN API for Windows XP with SP2.
2
Client version for Windows Vista and Windows Server 2008

Zrejme ak sa použije parameter "1" - funguje pod XP, ak "2" - Vista a vyššie.

Fakt nemám čas to skúmať do podrobna, to by si mal Ty - študovať API na msdn a nie iba copy/paste...
msdn.microsoft.com

Zpět do poradny Odpovědět na původní otázku Nahoru