I am trying to access the Wireless interface of the Windows API. It seems that
there is no support for these functions in Free Pascal so I defined them myself
and accessed them via "Loadlibrary". But WlanOpenHandle always results in error
87 (invalid parameter). I defined:
-----------------------------------------------------------------------
type WlanOpenHandleTyp = function(ClientVersion : DWord;
Reserved : Pointer;
var NegotiatedVersion : DWord;
var ClientHandle : Hwnd) : DWord;
-----------------------------------------------------------------------
but also tried a different definitions of the first two parameters with CONST.
I then coded:
-----------------------------------------------------------------------
Var LibHandle : THandle;
H : Hwnd;
WlanOpenHandle : WlanOpenHandleTyp;
begin
LibHandle := Windows.LoadLibrary('wlanapi.dll');
if LibHandle<>0 then
begin
WlanOpenHandle :=
WlanOpenHandleTyp(GetProcAddress(LibHandle,'WlanOpenHandle'));
if WlanOpenHandle<>nil then
begin
j := WlanOpenHandle(1,nil,i,H);
if j=Error_Success then ....
-----------------------------------------------------------------------
at this point j is 87 (should be 0). Anybody who has an idea why WlanOpenHandle
is reporting this error?
--
Empfehlen Sie GMX DSL Ihren Freunden und Bekannten und wir
belohnen Sie mit bis zu 50,- Euro! https://freundschaftswerbung.gmx.de
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
