Discussion :

[Lung]

Comment détecter si on est connecté à un réseau par wifi ?

Après avoir fouillé la msdn, je suis tombé sur ça : http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
Et sur DVP, j'ai trouvé ça : http://ram-0000.developpez.com/tutor...t-native-wifi/
J'ai cherché à traduire ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
DWORD negotiatedVersion = 0;
HANDLE clientHandle = NULL;
DWORD lastError;
 
lastError = WlanOpenHandle(WLAN_API_VERSION, NULL, &negotiatedVersion, &clientHandle); /* open the Wifi box */
   if(lastError != ERROR_SUCCESS)
   {
      DisplayError(..., lastError);
   }
   else
   {

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
   nResultat: DWORD;
   dwNegotiatedVersion: DWORD;
   hClientHandle: THandle;
begin
   hClientHandle := 0;
   nResultat := WlanOpenHandle(1, nil, @dwNegotiatedVersion, @hClientHandle);
   if nResultat <> ERROR_SUCCESS then
   begin
      ShowMessage(SysErrorMessage(nResultat));
      Exit;
   end;

Et avec ça, j'obtiens :

Paramètre incorrect

Qu'ai-je mal fait ?

Si quelqu'un a une autre solution (plus simple), je prend aussi.

[SergioMaster]

Bonjour
à part le fait que tu n'as pas initialisé dwNegotiatedVersion , je vois pas

[Lung]

Bonjour
à part le fait que tu n'as pas initialisé dwNegotiatedVersion , je vois pas

C'est un paramètre en sortie. C'est indispensable ?
De toute façon, j'ai testé, ca ne change rien.

Voici mes prototypes de fonctions (j'avais oublié de le préciser):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
   function WlanOpenHandle(dwClientVersion: DWORD; pReserved: Pointer; pdwNegotiatedVersion: PDWORD; phClientHandle: PHandle): DWORD;   external 'Wlanapi.dll';
   function WlanScan(hClientHandle: THANDLE; const pInterfaceGuid: PGUID; const pDot11Ssid: PDOT11_SSID; const pIeData: PWLAN_RAW_DATA; pReserved: Pointer): DWORD;   external 'Wlanapi.dll';
   function WlanCloseHandle(hClientHandle: THANDLE; pReserved: Pointer): DWORD;   external 'Wlanapi.dll';

[SergioMaster]

J'ai pas encore fait de test mais , autre chose me titille
la valeur WLAN_API_VERSION dans ton appel de fonction =1


cela dépend de l'OS que tu utilises (pas top)
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

de plus selon MSDN

[quote =MSDN ] ERROR_INVALID_PARAMETER <<
pdwNegotiatedVersion is NULL, phClientHandle is NULL, or pReserved is not NULL.
[/quote]
pour pRreserved nil et NULL ce n'est peut être pas la même chose non plus

As tu songé au WMI plutôt qu'a ces fonctions ? pour l'instant je ne les ai utilisé que pour les support de sauvegardes mais ....

[Thierry Laborde]

Salut Ludwig,

En fait il manque juste une petite chose pour que ça fonctionne correctement. Essayes comme ça :

function WlanOpenHandle(dwClientVersion: DWORD; pReserved: Pointer; pdwNegotiatedVersion: PDWORD; phClientHandle: PHandle): DWORD; stdcall; external 'Wlanapi.dll';

et ça marchera beaucoup mieux.

[Lung]

As tu songé au WMI plutôt qu'a ces fonctions ? pour l'instant je ne les ai utilisé que pour les support de sauvegardes mais ....

Je n'ai jamais utilisé WMI. Ca a pas l'air d'être plus simple.

En fait il manque juste une petite chose pour que ça fonctionne correctement. Essayes comme ça :
et ça marchera beaucoup mieux.

CA MARCHE !

Je vais pouvoir passer à la fonction suivante.