[gelöst] WebGadget: Beispielcode zickt
Verfasst: 10.08.2018 20:26
Hey,
probiere grade das WebGadget aus und habe den Beispielcode aus der Hilfe benutzt, um mal zu probieren, wie das mit dem Callback funktioniert. Leider funktioniert es bei mir überhaupt nicht. Also das Gadget und die die PB-Homepage werden angezeigt, aber leider auch die News-Seite, die ja durch die Callbackfunktion verhindert werden soll. Ich habe den Code erst abgetippt und es dann noch einmal mit Copy-Paste probiert, aber das Ergebnis ist das Gleiche.
Könnt ihr mir sagen, woran das liegt? Ich arbeite mit PureBasic 5.62 (Windows - x64) auf Win10.
Hier der Code:
probiere grade das WebGadget aus und habe den Beispielcode aus der Hilfe benutzt, um mal zu probieren, wie das mit dem Callback funktioniert. Leider funktioniert es bei mir überhaupt nicht. Also das Gadget und die die PB-Homepage werden angezeigt, aber leider auch die News-Seite, die ja durch die Callbackfunktion verhindert werden soll. Ich habe den Code erst abgetippt und es dann noch einmal mit Copy-Paste probiert, aber das Ergebnis ist das Gleiche.
Könnt ihr mir sagen, woran das liegt? Ich arbeite mit PureBasic 5.62 (Windows - x64) auf Win10.
Hier der Code:
Code: Alles auswählen
; Dieses Beispiel zeigt die PureBasic.com Webseite an. Innerhalb der Callback-Prozedur
; wird das Navigieren zur 'News' Seite verhindert (#False zurückgegeben), jedoch für
; alle anderen Seite erlaubt (#True zurückgegeben).
Procedure NavigationCallback(Gadget, Url$)
If Url$= "http://www.purebasic.com/news.php"
MessageRequester("", "No news today!")
ProcedureReturn #False
Else
ProcedureReturn #True
EndIf
EndProcedure
If OpenWindow(0, 0, 0, 600, 300, "WebGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
WebGadget(0, 10, 10, 580, 280, "http://www.purebasic.com")
SetGadgetAttribute(0, #PB_Web_NavigationCallback, @NavigationCallback())
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
