WLAN Kieker

[Garfield]

Das Programm zeigt WLAN-Netze an.

Vielmehr hat jemand Kritik oder Verbesserungsvorschläge.

Das Program ist mit XE5 unter Win8.1Pro compiliert. Dürfte dann wohl nur unter Win8 laufen.

Änderungen:

2014-05-13: Änderungen entsprechend Anmerkungen von Himitsu in #6 und #8.

[hathor]

Schlechter Scherz - Das Warnfenster kommt im Sekundentakt.
Musste ich abschiessen mit dem Task-Manager!

Problem: Fehlende Überprüfung, ob WLAN vorhanden UND eingeschaltet ist!

[Garfield]

Kein Scherz, nur ein Timer, der die Abfrage wiederholt.

[DateTimeError]

Zitat von hathor:

Schlechter Scherz - Das Warnfenster kommt im Sekundentakt.
Musste ich abschiessen mit dem Task-Manager!

Problem: Fehlende Überprüfung, ob WLAN vorhanden UND eingeschaltet ist!

Hier das Gleiche, WLAN im Router abgeschaltet, Abschuß nur mit dem Task-Manager. Win8.11pro 32-Bit.

[Garfield]

Das sit die Funktion:

Delphi-Quellcode:

function TNativeWifi.GetAvailableNetworkList(I: DWORD): Boolean;
{*******************************************************************************
*  -2- Die für das Interface verfügbaren Netzwerke ermitteln.
* ------------------------------------------------------------------------------
*  http://msdn.microsoft.com/en-us/library/windows/desktop/ms706749.aspx
}
var
  dwResult : DWord;
begin
  {
  *  Ggfs. Netzwerkliste freigeben.
  }
  if pAnList <> nil
  then begin
    WlanFreeMemory(pAnList);
    pAnList := nil;
  end;
  {
  *  Liste der verfügbaren Netzwwerke holen.
  }
  dwResult := WlanGetAvailableNetworkList(hClient, @pIfList^.InterfaceInfo[pIfList^.dwIndex].InterfaceGuid, 0, nil, @pAnList);
  Result   := dwResult = ERROR_SUCCESS;
  if not(Result)
  then raise EWLANError.CreateFmt('WlanGetAvailableNetworkList fehlgeschlagen mit Fehler %d', [dwResult])
end;

Ich hab Win8.1Pro64bit

Habe die EXE ausgetauscht. Wenn bei der Abfrage ein Fehler auftaucht sollte der Timer abgestellt werden.

[himitsu]

Was soll denn der Parameter machen?

Und dann sollte man sich entscheiden:
- entweder Fehlerbehandlung über Rückgabewerte
- oder Fehlerbehandlung mitteld Exceptions.

Beides geht nicht, denn das Result kann niemals False sein.

Und in einem Timer sollter man niemals Exceptions oder sonstige modale Dialoge anzeigen/verursachen.
Es sei denn man deaktiviert so lange den Timer und das nächste Event kommt nicht sofort, nachdem der Timer wieder freigegeben wurde, bzw. der Timer wird danach für immer/länger deaktiviert.

Delphi-Quellcode:

// Liste der verfügbaren Netzwwerke holen.
procedure TNativeWifi.GetAvailableNetworkList;
var
  dwResult: HRESULT;
begin
  if Assigned (pAnList) then begin  // Ggfs. Netzwerkliste freigeben.
    WlanFreeMemory(pAnList);
    pAnList := nil;
  end;
  dwResult := WlanGetAvailableNetworkList(hClient, @pIfList^.InterfaceInfo[pIfList^.dwIndex].InterfaceGuid, 0, nil, @pAnList);
  if dwResult <> ERROR_SUCCESS then 
    raise EWLANError.CreateFmt('WlanGetAvailableNetworkList fehlgeschlagen mit Fehler %d', [dwResult])
end;

Delphi-Quellcode:

// Liste der verfügbaren Netzwwerke holen.
function TNativeWifi.GetAvailableNetworkList: Boolean;
var
  dwResult: HRESULT;
begin
  if Assigned (pAnList) then begin  // Ggfs. Netzwerkliste freigeben.
    WlanFreeMemory(pAnList);
    pAnList := nil;
  end;
  dwResult := WlanGetAvailableNetworkList(hClient, @pIfList^.InterfaceInfo[pIfList^.dwIndex].InterfaceGuid, 0, nil, @pAnList);
  Result := dwResult = ERROR_SUCCESS;
end;

Letzteres ist blöd, da hier sämtliche Fehlerinfos verloren gehen, also wenn schon, dann eher so. (oder den Fehler als Property "letzter Fehlercode" ins TNativeWifi)

Delphi-Quellcode:

// Liste der verfügbaren Netzwwerke holen.
function TNativeWifi.GetAvailableNetworkList: HRESULT;
begin
  if Assigned (pAnList) then begin  // Ggfs. Netzwerkliste freigeben.
    WlanFreeMemory(pAnList);
    pAnList := nil;
  end;
  Result := WlanGetAvailableNetworkList(hClient, @pIfList^.InterfaceInfo[pIfList^.dwIndex].InterfaceGuid, 0, nil, @pAnList);
end;

Und bei Ersterem muß natürlich ein Try-Except außen drumrum, wenn es im Timer aufgerufen wird.

[Garfield]

Danke Himitsu. Meinst Du mit Parameter dwResult?

Die zweite Möglichkeit mit einen LastErrorCode wäre meiner Ansicht nach wohl das sinnvollste.

Interessant wäre zu wissen was der Fehlercode -2144067582 bedeutet.

[himitsu]

Nee, ich meinte das I.


Entweder im MSDN (WlanGetAvailableNetworkList) sind die möglichen/speziellen Fehlercodes genannt,

oder man versucht einfach mal SysErrorMessage, bzw. RaiseLastWin32Error RaiseLastOSError zu befragen.


Den Wert der Konstanten findet man entweder in Header-Übersetzungen (vielleicht kennt es Delphi ja schon), oder in anderen API-Projekten, oder über Google, oder man besorgt sich das entsprechende PSDK.

[Garfield]

Es gibt nur diese

Zitat:

ERROR_INVALID_PARAMETER
A parameter is incorrect. This error is returned if the hClientHandle, pInterfaceGuid, or ppAvailableNetworkList parameter is NULL. This error is returned if the pReserved is not NULL. This error is also returned if the dwFlags parameter value is set to value that is not valid or the hClientHandle parameter is not valid.

ERROR_INVALID_HANDLE
The handle hClientHandle was not found in the handle table.

ERROR_NDIS_DOT11_POWER_STATE_INVALID
The radio associated with the interface is turned off. There are no available networks when the radio is off.

RPC_STATUS
Various error codes.

ERROR_NOT_ENOUGH_MEMORY
Not enough memory is available to process this request and allocate memory for the query results.

[blondervolker]

EasyBoxKeyDecrypter