Discussion :

[hgoethe]

Bonjour,

Je suis nouveau dans l'environnement Windev, et je suis actuellement en train de tester l'utilisation d'assemblage .NET de la gamme de logiciel ESRI dans Windev.

J'ai ajouté les assemblages dont j'ai besoin dans mon projet Windev via le menu "Atelier->.NET->Utiliser un assemblage .NET dans ce projet". Je peux voir dans la section "Assemblage .NET" de la fenêtre flottante "Projet" les classes ESRI que je compte manipuler.

J'ai écrit une procédure derrière un bouton qui doit me permettre d'utiliser l'assemblage .NET pour me connecter à une source de données.

Voici le code Windev :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
MyFactoryEXPRESS est un WorkspaceFactoryClass dynamique
MyFactoryEXPRESS = allouer un ShapefileWorkspaceFactoryClass
 
MyWorkspaceEXPRESS est un WorkspaceClass dynamique
MyWorkspaceEXPRESS = MyFactoryEXPRESS:OpenFromFile("D:\Esri BeLux\1516 SIGA 2006\PYL\Internet 2007\arbor2002\",0)
 
IF MyWorkspaceEXPRESS=Null THEN
	Info("workspace null")
ELSE
	Info(MyWorkspaceEXPRESS:pathName)
END

La méthode OpenFromFile doit me renvoyer un objet de type WorkspaceClass, mais je reçois un message d'erreur sur la ligne "Info(MyWorkspaceEXPRESS:pathName)" qui doit simplement me donner le répertoire auquel l'objet est connecté qui est une chaîne.

Voici l'erreur : Echec lors de la lecture du champ <PathName> du type <__ComObject>

Je sais que mon objet MyFactoryEXPRESS est bien alloué, car je peux utiliser une méthode de cet objet qui teste si le répertoire que je vais utiliser dans la méthode OpenFromFile est correct. Mais on dirait que lorsque j'utilise la méthode OpenFromFile, l'objet renvoyé dans la variable MyWorkspaceEXPRESS n'est pas du bon type.

Voici une version du code en VB.NET qui fonctionne très bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        Dim pWSFClass As WorkspaceFactory
        pWSFClass = New ShapefileWorkspaceFactory
 
        Dim pWSClass As Workspace
        pWSClass = pWSFClass.OpenFromFile("D:\Esri BeLux\1516 SIGA 2006\PYL\Internet 2007\arbor2002\", 0)
 
        If pWSClass Is Nothing Then
            MessageBox.Show("workspace null")
        Else
            MessageBox.Show(pWSClass.PathName)
        End If

Y a-t-il une manière particulière d'initialiser un objet dans windev à partir de l'appel d'une méthode d'un autre objet (comme c'est le cas ici) ? Je ne peux pas utiliser l'instruction "allouer un" pour mon objet MyWorkspaceEXPRESS parce que le constructeur de la classe WorkspaceClass est protégé. L'objet doit être dérivé d'une autre classe, en appelant une méthode de celle-ci.

Merci pour toute l'aide que vous pourrez m'apporter.

[Lo²]

Salut à toi,

Pour débugger et être certain qu'il y a les bons types, etc... tu peux utiliser un point d'arrêt ce qui te permetra d'avoir le contenu, le type de tes variables dans le bas de la fenêtre.
Dans le cas d'un objet par exemple, si tu doubles-cliques sur la ligne de l'objet, une fenêtre s'ouvrira avec l'ensemble de ses membres et leur valeur.

[hgoethe]

Merci pour ta réponse, mais je n'arrive pas à ouvrir les valeurs de l'objet.

Existe-t-il un opérateur de casting en Windev ?

[Lo²]

Pas à ma connaissance mais étant donné que j'ai très peu utilisé d'élèments externe à Windev, ma réponse n'est pas une certitude.

Pour le debuggage, il faut double-cliquer sur la partie droite de l'objet, là où la "valeur" est s'affiche.

[hgoethe]

Voilà la fénêtre windev que j'ai en mode débogage :

[Lo²]

ah oui, donc je confirme, je n'ai pas assez utilisé d'élèments externe car je ne suis jamais tombé sur ce type de message.

Navré, je ne pense pas pouvoir plus t'aider.

[hgoethe]

Merci pour ton aide malgré tout.

C'est assez frustrant, ça fait un bout de temps qu'on cherche comment utiliser ces classes .NET dans Windev sans résultats.

Je me pose la question de savoir si Windev est vraiment capable d'utiliser les classes .NET d'un fournisseur logiciel. Pourtant il détecte correctement les classes .NET que l'on veut utiliser. Y'a quelque chose qui nous échappe complètement.

[Lo²]

Alors petite remarque, je n'avais pas fait attention que tu étais en version Express, donc version limitée, mais je m'avance peut-être.