WlanRegisterNotification Problem

[nitschchedu]

Hallo Leute,
wie sicherlich schon einige mitbekommen und auch mit gewirkt haben, an der WLanAPI, ist mal wieder ein Probelm aufgetreten.
Also wie im Titel schon erwähnt geht es um die WlanRegisterNotification.

Volgendes habe ich gemacht.

Delphi-Quellcode:

procedure WLanNotifyProc(pNotifyData: Pndu_WLAN_NOTIFICATION_DATA;
   pContext: PVOID);
begin
   if pNotifyData.NotificationSource = NDU_WLAN_NOTIFICATION_SOURCE_ACM then
  begin
     if Tndu_WLAN_NOTIFICATION_ACM(pNotifyData.NotificationCode) = wlan_notification_acm_scan_complete then
    begin
       SetEvent(THandle(pContext));
    end;
  end;
end;


procedure .... ;
var
  hClient: THandle;
  hScanCompleteEvent: THandle;
  back: DWORD;
begin
  .....
  hScanCompleteEvent := CreateEvent(nil, False, False, nil);
  
  back := WlanRegisterNotification(hClient, NDU_WLAN_NOTIFICATION_SOURCE_ALL,
     True, @WLanNotifyProc, @hScanCompleteEvent, nil, nil);

  ...
  
  if back <> ERROR_SUCCESS then
  begin
     Memo1.Lines.Add('Fehler bei WlanRegisterNotification');
     Exit;
  end;

  back := WlanScan(hClient, @pInterface.InterfaceInfo[0].InterfaceGuid,
     nil, nil, nil);

  if back <> ERROR_SUCCESS then
  begin
     Memo1.Lines.Add('Fehler bei WlanScan');
     Exit;
  end;

  WaitForSingleObject(hScanCompleteEvent, INFINITE);

  ....
end;

So das Problem:
In der Procedure "WLanNotifyProc" wo ich auch schön reinspringe, bekomme ich in der Variable "pNotifyData"
nur Müll und somit komme ich bei "WaitForSingleObject" nicht weiter .

Ich hoffe es kann mir jemand weiter Helfen.
PS: Habe unten noch ein Bild mit dem was im Speicher ist angehangen.

[nitschchedu]

Ok da keiner Antwortet will ich meine Frage anders stellen.
Kann ich einfach eine Procedure Deklarieren und dann mit @name auf PVoid übergeben ?

So ist es in C++ Deklariert.

Code:

// the callback function for notifications
typedef VOID (WINAPI *WLAN_NOTIFICATION_CALLBACK) (PWLAN_NOTIFICATION_DATA, PVOID);


....

DWORD WINAPI
WlanRegisterNotification(
    __in HANDLE hClientHandle,
    __in DWORD dwNotifSource,
    __in BOOL bIgnoreDuplicate,
    __in_opt WLAN_NOTIFICATION_CALLBACK funcCallback,
    __in_opt PVOID pCallbackContext,
    __reserved PVOID pReserved,
    __out_opt PDWORD pdwPrevNotifSource
);

Und meine :

Delphi-Quellcode:

PVOID                     = Pointer;            ///C PVoid
Tndu_WLAN_NOTIFICATION_CALLBACK   = PVOID;

function WlanRegisterNotification(hClientHandle: Handle;
     dwNotifSource: DWORD; bIgnoreDuplicate: Bool;
    funcCallback: Tndu_WLAN_NOTIFICATION_CALLBACK;
    pCallbackContext: PVOID; pReserved: PVOID;
    pdwPrevNotifSource: PDWORD): DWORD; stdcall;

[Muetze1]

Na endlich etwas womit man eine Antwort definieren kann ohne sich erstmal die MSDN installieren zu müssen...

Warum definierst du dir keinen Callback Prototypen?

Delphi-Quellcode:

type
    // Deklaration von WLAN_NOTIFICATION_DATA fehlt noch...
    // durch das Var entfällt das Pxxx
  WLAN_NOTIFICATION_CALLBACK = procedure(var WLAN_Notification_Data: ???; pCallbackContext: Pointer);

function WLanRegisterNotification(hClientHandle: THandle; dwNotifySource: LongWord; bIgnoreDuplicate: LongBool; 
  FuncCallBack: WLAN_NOTIFICATION_CALLBACK; pCallbackContext: Pointer; pReserved: Pointer; var pdwPrevNotifySource: LongWord): LongWord; stdcall;

[negaH]

typedef void WINAPI*...

dh. deine Callback sollte wohl stdcall sein ?

Delphi-Quellcode:

procedure WLanNotifyProc(pNotifyData: Pndu_WLAN_NOTIFICATION_DATA; pContext: PVOID); stdcall; // <--
begin
.... bla bla
end;

Gruß Hagen

[nitschchedu]

Omg es geht auf das stdcall wäre ich wohl nie gekommen .... Danke
Und das mit dem Callback Prototypen ist auch keine schlechte Idee !

Edit: Und schon gibt es ein neues Problem

Ich komme bei WaitForSingleObject(hScanCompleteEvent, INFINITE); nicht weiter.

[Muetze1]

Zitat von nitschchedu:

Ich komme bei WaitForSingleObject(hScanCompleteEvent, INFINITE); nicht weiter.

Das heisst?

[nitschchedu]

Also beim Debugen komme ich zu den Punkt WaitForSingleObject(hScanCompleteEvent, INFINITE); dann sage ich geh weiter (damit muss er dort anhalten) ... springe nach einer weile in

Delphi-Quellcode:

procedure WLanNotifyProc(pNotifyData: Pndu_WLAN_NOTIFICATION_DATA;
   pContext: PVOID);

wo ich wieder sage
SetEvent(THandle(pContext)); damit er bei
WaitForSingleObject(hScanCompleteEvent, INFINITE); weiter geht ... aber nix passiert

Weil er muss an der der Stelle warten bis das Scannen fertig ist und dann darf er weiter gehen.

[sirius]

Wird WlanRegisterNotification in einem eigenen Thread ausgeführt?

[nitschchedu]

Jop und zwar von der WlanAPI selbst ... also ich könnte ich nur die Procedure REgistrieren und wenn jemand anders Scant springt er bei mir rein.

[Muetze1]

Das Problem ist einfach nur, dass das Handle von SetEvent() nicht stimmt. Der Result wird dir das bestätigen.

Du übergibst beim Aufruf ein @Handle, also die Adresse der Variable mit dem handle und im CallBack nutzt du den Pointer direkt als Handle.

Also entweder beim Aufruf Pointer(Handle) und Callback so lassen oder im CallBack PHandle(pContext)^ nutzen.