WLAN Signalstärke auslesen???

[Muellermilchtrinker]

Ich habs mal mit Adminrechten gestartet.
Immer noch bei beiden, bekomm ich ein Error zurück.
Vllt kann mir jemand ja sagen, wie ich das mit der obigen Wlanapi.dll oder einer der anderen dlls rausbekomm.

[Muellermilchtrinker]

Also ich hab nochmal gesucht und bin auf das gestoßen: WRAPI
Ich hab mir die WRAPI.dll runtergeladen und mit Dependency Walker geöffnet.
Dort gibt es auch die besagte long WRAPIGetSignalStrength(long *) Funktion.
Es gibt jetzt aber folgendes Problem bzw. Probleme:
a) Die dll ist in C++
b) Wie bekomme ich die Funktion, dass ich sie übersetzen kann oder
C) Wie kann ich die dll in Delphi verwenden???

Wäre nett wenn mir jemand helfen kann.

EDIT: Ich hab gerade gesehen, das der SOurceCode dort auch zum Download gibt.
Hab mal die Funktion rausgefischt:

Code:

HRESULT CWRAPIApp::GetSignalStrength(LONG * plRssi)
{
   UCHAR               QueryBuffer[1024];
   PNDISUIO_QUERY_OID      pQueryOid;

   if (!plRssi)
   {
      m_hRes = E_POINTER;
   }

   else
   {
      pQueryOid = (PNDISUIO_QUERY_OID)&QueryBuffer[0];
      pQueryOid->Oid = OID_802_11_RSSI;

      if (DeviceIoControl(m_hFileHandle,
                     IOCTL_NDISUIO_QUERY_OID_VALUE,
                     (LPVOID) &QueryBuffer[0],
                     sizeof(QueryBuffer),
                     (LPVOID) &QueryBuffer[0],
                     sizeof(QueryBuffer),
                     &m_dwBytesReturned,
                     NULL))
      {
         DEBUGP(("IOCTL GET_RSSI succeeded\n"));
         memcpy(plRssi, &pQueryOid->Data[0], sizeof(NDIS_802_11_RSSI));
      }

      else
      {
         m_dwError = GetLastError();
         DEBUGP(("IOCTL GET_RSSI failed: %d\n", m_dwError));
         m_hRes = E_FAIL;
      }
   }

   return m_hRes;
}

[Muellermilchtrinker]

Noch mal zurück zu dem Code von hathor.
Ich habs mal mit Breakpoints durchgestept und dort bekomm ich bei folgende Zeilen die Errors:

Delphi-Quellcode:

tmpstr := getWMIstring2('','MSAcpi_ThermalZoneTemperature','CurrentTemperature');
//und
tmpstr := getWMIstring2('','MSNdis_80211_ReceivedSignalStrength','Ndis80211ReceivedSignalStrength');

Und dort bekomm ich dann '' und deswegen kommt bei der if-Abfrage dann else (also: Error) raus.
Noch mal die Errormeldung:
Erste Gelegenheit für Exception bei $776AFBAE. Exception-Klasse EOleException mit Meldung 'Nicht unterstützt'. Prozess Project1.exe (17936) Meine Frage: Es wurde ja gesagt, dass das unter Vista nicht mehr bverfügbar ist. Kann man das vllt nachinstallieren???