Re: RE : Windev+IE ou Firefox

Posté par Th0rA le 27/7/2005 9:46:58
Bonjour

J'ai juste une probleme c'est que votre oWeb>>Visible = Vrai je voie pas trop ou le placer car j'ai essayer quelque truc avec oWeb est un objet Automation "InternetExplorer.Application" comme voila une petit exemple

// Classe de pilotage de Internet Explorer

CiExplore est une classe
	m_sActiveX est une chaîne						// Nom de l'ActiveX contenant l'explorateur
	m_pActiveX est un objet OLE dynamique			// ActiveX contenant l'explorateur
	
	m_pCollectionInput est un objet OLE dynamique	// Collection d'objets de type Input
	m_nNbInput est un entier						// Nombre d'objets de la collection
	
	m_pCollectionSelect est un objet OLE dynamique	// Collection d'objets de type Select
	m_nNbSelect est un entier						// Nombre d'objets de la collection
		
	m_pCollectionTextArea est un objet OLE dynamique// Collection d'objets de type TextArea
	m_nNbTextArea est un entier						// Nombre d'objets de la collection
		
	m_pDisp est un objet OLE dynamique
	
	m_bCharge est un booléen
	m_sTexte est une chaîne
	m_sNomTag est une chaîne
	m_sType est une chaîne
	m_sNom est une chaîne
	m_sValeur est une chaîne
	m_nHauteur est un entier
	m_nLargeur est un entier
	m_nX est un entier
	m_nY est un entier
	m_nOccurrence est un entier

FIN



PROCEDURE Constructeur(psActiveX)
// psActiveX est le NOM du champ ActiveX (de type chaîne)

:m_sActiveX = psActiveX

Je sais pas si vous avez regarder cette classe mais pa exemple j'ai essayer de psActiveX par oWeb est un objet Automation "InternetExplorer.Application" mais il me dit que je peut pas transformer une automation en une chaine se qui me parait normal alors j'ai essayer de modifier m_sActiveX en objet d'automation mais sane marche pas nom plus avec la suite de la classe et je croit que c'est a cause de cette parti du code
PROCEDURE InitActiveX()
// Initialisation du champ ActiveX

// L'ActiveX est-il installé ?
SI PAS RegistreExiste("HKEY_CLASSES_ROOT\Shell.Explorer") ALORS
	Erreur("Cette application nécessite Internet Explorer 4 minimum")
	FinProgramme()	
FIN

// Chargement de l'ActiveX
{:m_sActiveX}="Shell.Explorer"

// Instanciation OK ?
:m_pActiveX = {:m_sActiveX}
SI :m_pActiveX=Null ALORS
	FinProgramme("L'ActiveX Internet Explorer n'a pas pu être chargé.")
FIN

// Evénement de début de chargement de page
ActiveXEvénement(":XWEB_DownloadBegin",:m_sActiveX,"DownloadBegin")

// Evénement de fin de chargement de page
ActiveXEvénement(":XWEB_DownloadComplete",:m_sActiveX,"DownloadComplete")

donc c'est assez complexe pour faire cette modification. Il y'a peut etre moyen de mettre en commentaire se code d'initialisation de l'activeX puisque on n'utilise plus d'activeX et de se coups la modifier en haut m_sActiveX et le mettre en objet automation "InternetExplorer.Application" mais je suis pas trop sur alors je demande votre avis.

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=14&topic_id=2523&post_id=10826