Warum geht dass nicht??

[Konne]

Bei mir stuerzt dieser Code mit einem Invalid Memory Acces ab (Beta 6).
Weiss jemand warum???
Die procedure ist irgendwas zum Scrollen im Webgadget und die hab ich irgendwo im inet gefunden.

Code: Alles auswählen

Procedure WebGadget_Scroll(Gadget.l, x.l, y.l)
  Protected Browser.IWebBrowser2
  Protected Window.IHTMLWindow2
  Protected DocumentDispatch.IDispatch
  Protected Document.IHTMLDocument2

  Browser.IWebBrowser2 = GetWindowLong_(GadgetID(Gadget), #GWL_USERDATA)
  If Browser
    If Browser\get_Document(@DocumentDispatch.IDispatch) = #S_OK
      If DocumentDispatch\QueryInterface(?IID_IHTMLDocument2, @Document.IHTMLDocument2) = #S_OK           
        If Document\get_parentWindow(@Window.IHTMLWindow2) = #S_OK               
          While WindowEvent(): Wend ; wichtig!
          Window\ScrollTo(x, y)         
          
          Window\Release()
        EndIf                   
        Document\Release()
      EndIf         
      DocumentDispatch\Release()
    EndIf 
  EndIf   
EndProcedure

OpenWindow(1, 0, 0,363, 144, "KoMaNi Login", #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_TitleBar); | #PB_Window_Invisible)
OpenPreferences("Test")
End

DataSection
  IID_IHTMLDocument2: ; {332C4425-26CB-11D0-B483-00C04FD90119}
    Data.l $332C4425
    Data.w $26CB, $11D0
    Data.b $B4, $83, $00, $C0, $4F, $D9, $01, $19   
EndDataSection  

[Kiffi]

Hallo Konne,

bei mir (Beta7) stürzt nix ab.

Grüße ... Kiffi

P.S.: Bitte Betreff sinnvoll anpassen!

[Nik]

Die tut aber doch in meiner Version vom KIM für PB 4.0

[bobobo]

Das liegt sicher an dem geknackten XP was Konne immer noch einsetzt.

[Nik]

Lol naja im moment wäre es das geknackte xp seiner gasteltern^^
Und sein PB ist ja jetzt auch legal

[Nik]

Ok es liegt ab Threadsafe ode und kann eindeutig wiederholt werden, bin auch auf den Bug gestoßen und kann ihn auch mit oberem snippet wiederholen ich werde das mal im englischen forum posten, danke Konne für deine Hilfe

[Konne]

Das liegt sicher an dem geknackten XP was Konne immer noch einsetzt.

Ich denke solche Kommentare kannst du dir sparen, IMHO ist es wichtig das ein Programm auf jedem Windows lauft. Wie oft hatte man schon das Problem das ein Program ohne Repeat : Until Windowevent=0 auf einem PC lauft auf dem anderen nicht. deshalb ist es auch meiner Meinung nach wichtig FEHLER zu melden. Ich haette warscheinlich noch angeben sollten was ich im Complier fuer Optionen an hatte aber da es in aelteren PB Versionen damit eigendlich nie Probleme gab hielt ich es fuer nicht notwenig.

PS was soll das immernoch? War es vor 2 Jahren intelligenter/duemmer ein gecknacktes Windows einzusetzen???

[Zaphod]

Nein, aber es wahr noch nie sehr intelligent das jedem auf die nase zu binden