Gecko/IE

[Heis Spiter]

Voici un exemple sur l'utilisation de Gecko et d'IE. Vous devez d'abord installer l'activeX Mozilla, puis copier la DLL xpcom.dll dans le répertoire de de compilation.

Code : Tout sélectionner

;-********************
;-Author : Heis Spiter
;-Date : 02/01/06
;-ID : 200201065101
;-PB Version : 3.94
; Forum Fr : http://purebasic.hmt-forum.com/viewtopic.php?t=4214
; 
; This example shows how to use Internet Explorer deamon and Gecko in the same application.
;-********************
; To use this be sure that you have these dll into your app dir :
; - Atl.dll (For IE deamon)
; - xpcom.dll (For Gecko)
If FileSize("Atl.dll") = -1 Or FileSize("xpcom.dll") = -1
  MessageRequester("Error", "You should have Atl.dll and xpcom.dll into your dir !", #MB_ICONERROR)
  End
EndIf
If OpenWindow(0,0,0,800,600,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"WebGadget") And CreateGadgetList(WindowID(0))
  OptionGadget(1, 10, 10, 150, 15, "Internet Explorer")
  OptionGadget(2, 390, 10, 150, 15, "Gecko")
  WebGadget(3, 10, 25, 780, 565,"http://www.purebasic.com", #PB_Web_Mozilla)
  WebGadget(0, 10, 25, 780, 565,"http://www.purebasic.com")
  HideGadget(3, 1)
  SetGadgetState(1, 1)
  Id = 0
  Repeat
    Event = WindowEvent()
    If Event = #PB_Event_Gadget
      If GetGadgetState(1) And Id = 3
        HideGadget(Id, 1)
        Id = 0
        HideGadget(Id, 0)
      ElseIf GetGadgetState(2) And Id = 0
        HideGadget(Id, 1)
        Id = 3
        HideGadget(Id, 0)
      EndIf
    EndIf
    Delay(1)
  Until Event = #PB_Event_CloseWindow
EndIf
End

[flaith]

Salut et merci pour le prog, je viens de le tester, mon seul soucis est que sous Gecko je n'ai plus la barre de défilement verticale, elle ne s'affiche que sous IExplorer
NB : Version de xpcom.dll : 1.7.12: 2005092314

[Heis Spiter]

Arf zut... Ca ne me le fait pas ça... Tu as essayé d'aller sur un site qui modifie les couleurs de cette barre de défilement ?

Un exemple un plus utile et complexe :

Code : Tout sélectionner

;-********************
;-Author : Heis Spiter
;-Date : 02/01/06
;-ID : 210201062601
;-PB Version : 3.94
; Forum Fr : http://purebasic.hmt-forum.com/viewtopic.php?p=40756#40756
; 
; This example shows how to use Internet Explorer deamon and Gecko in the same application.
;-********************
; To use this be sure that you have these dll into your app dir :
; - Atl.dll (For IE deamon)
; - xpcom.dll (For Gecko)
Debug FileSize("Atl.dll")
Debug FileSize("xpcom.dll")
If FileSize("Atl.dll") = -1 Or FileSize("xpcom.dll") = -1
  MessageRequester("Error", "You should have Atl.dll and xpcom.dll into your dir !", #MB_ICONERROR)
  End
EndIf
If OpenWindow(0,0,0,800,600,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"WebGadget") And CreateGadgetList(WindowID(0))
  OptionGadget(1, 10, 10, 150, 15, "Internet Explorer")
  OptionGadget(2, 390, 10, 150, 15, "Gecko")
  StringGadget(4, 10, 25, 720, 20, "http://www.purebasic.com")
  ButtonGadget(5, 720, 25, 60, 20, "Go !") 
  WebGadget(3, 10, 45, 780, 545,"http://www.purebasic.com", #PB_Web_Mozilla)
  WebGadget(0, 10, 45, 780, 545,"http://www.purebasic.com")
  AddKeyboardShortcut(0, #PB_Shortcut_Return, 4)
  HideGadget(3, 1)
  SetGadgetState(1, 1)
  Id = 0
  Repeat
    Event = WindowEvent()
    If Event = #PB_Event_Gadget
      If EventGadgetID() = 5
        SetGadgetText(Id, GetGadgetText(4))
      Else
        If GetGadgetState(1) And Id = 3
          HideGadget(Id, 1)
          Id = 0
          HideGadget(Id, 0)
          SetGadgetText(4, GetGadgetText(Id))
        ElseIf GetGadgetState(2) And Id = 0
          HideGadget(Id, 1)
          Id = 3
          HideGadget(Id, 0)
          SetGadgetText(4, GetGadgetText(Id))
        EndIf
      EndIf
    ElseIf Event = #PB_Event_Menu
      If EventMenuID() = 4
        SetGadgetText(Id, GetGadgetText(4))
      EndIf
    EndIf
    Delay(1)
  Until Event = #PB_Event_CloseWindow
EndIf
End

[Heis Spiter]

Un couac : l'ActiveX Mozilla ne supporte pas SSL.

[flaith]

arf

[LOULOU25]

Ou peut-on trouver en téléchargement l'zctivex mozilla ?

[flaith]

bah, une p'tite recherche et hop !!!
http://www.dlldump.com/download-dll-fil ... nload.html

[Thyphoon]

bah, une p'tite recherche et hop !!!
http://www.dlldump.com/download-dll-fil ... nload.html

vous avez testé avec la dernière version de purebasic ? car je ne trouve pas de xpcom.dll qui fonctionne. AU pire j'ai des messages d'erreur en me disant qu'il ne trouve pas tel truc. et au mieux le web gadget reste tout blanc.
Une idée ?