[VB.NET]Exposer une classe

Bonjour,

J'ai lu dans la FAQ ASPNET qu'on pouvait exposer une classe dans un webservice de la sorte: (cet exemple est en C#)

Citation:

---

Pour qu'un Service Web expose votre classe, il faut préciser votre classe en valeur de retour à votre WebMethod. Le fichier WSDL sera généré automatiquement en fonction de votre classe pour autant qu'elle soit sérialisable.

[WebMethod]
Public MaClasse GetClasse()

---

Quelqu'un pourrait-il m'aider à adapter cet exemple en VB.Net? Je ne sais pas vraiment comment créer la fonction GetClasse().

Salut,

Je ne suis pas sur d'avoir bien compris ton problème.
Si tu veux faire un Web Service il faut créer un projet Web Service.
Ensuit dans ton web service pour retourner ta classe tu fais :

Code:

---

1 2 3 4 5 6 7 8

[WebMethod] Public MaClasse GetClasse() { MaClasse maClasse = new MaCLasse(); //... Return maClasse ; }

---

N'oubli pas que ta classe doit être sérialisable.

++

Salut!

Mon premier problème était que je ne savais pas quoi mettre dans la fonction GetClasse pour l'adapter en VBNet.

Merci à toi! :P

Mon second problème est en fait le suivant:

- J'ai une application de test de mon webservice.

- L' une de mes méthodes "getToutesPersonnes()" appartenant à la classe "personne" exposées par mon webservice retourne un objet de type "personnes" (collection d'objets "personne").

- Or la classe "personnes" n'est pas exposée par mon webservice car elle ne comporte aucune méthode publique que je pourrais définir en tant que <WebMethod()>. Le .wsdl généré ne comporte donc pas la définition de ma classe "personnes".

Je ne peux donc, dans mon application de test, instancier une variable de type "personnes" pour récupérer l'objet "personnes" retourné par la méthode "getToutesPersonnes()" de mon webservice.

Voilà pourquoi je cherchais à exposer cette classe dans mon webservice.
Le getclass() me permet effectivement bien de récupérer une instance de ma classe "personnes".

Par contre, je ne peux pas, dans mon appli de test, déclarer une variable de la sorte:

Code:

---

1 2	dim mesPersonnes as refSurWebService.personnes

---

ou une méthode de la sorte:

Code:

---

1 2 3 4 5 6 7 8

Private Sub affichePersonne(ByVal mesPersonnes As refSurWebservice.personnes) Dim objPersonne As refSurWebService.Personne For each objPersonne in mesPersonnes 'traitement Next End Sub

---

C'est ce que je souhaite faire.
Je peux bien sûr placer ma méthode "getToutesPersonnes()" dans ma classe "personnes", et exposer cette méthode, mais j'aimerais quand même savoir comment faire autrement.

J'espère avoir été plus précis dans ma question...

Bon j'ai résolu mon problème:
Les classes de type collection du webservice ne sont pas accessibles depuis mon appli de test. Du coup,j'utilise un tableau d'objets de type Personne pour récupérer l'objet de type Personnes retourné par le webService.

Merci de penser au tag :resolu: la prochian fois.