Service Web et Xara3D
Découvrez dans cet article comment utiliser le service Web fournit par Xara3D afin de créer un logo depuis une Windows Form.
Site web officiel de Xara3D : http://www.xara.com/products/xara3d/
|
|
Vu
14725
fois
|
I. Introduction
Un service Web est un composant écrit dans différents langage et déployé sur toutes les plates formes, accessible par une URI dont l'interface est définie en XML. Il propose aux applications de faire appel à ses services et ainsi permettre de simplifier l'échange de données entre eux. Dans cette exemple nous utiliserons le Service Web gratuit RenderServer3D du site ws.xara.com disponible à cette adresse : http://ws.xara.com/graphicrender/render3d.wsdlIl nous permet de créer une bannière 3d de différents types suivants les paramètres passés
II. Ajouter une référence Web
Positionnez vous dans L'explorateur de solutions, faites un clic droit sur "Référence" et sélectionnez "Ajouter une référence Web".
Vous devez saisir l'adresse de la référence dans la barre d'adresse et cliquer sur la petite flèche verte.
La référence va se télécharger et vous afficher les méthodes disponibles soit :
- GetExportTypes() qui nous permet de récupérer sous forme d'array la liste des extensions de sortie possible.
- GetFonts() qui nous permet de récupérer sous forme d'array la liste des police disponible
- GetTemplates() qui nous permet de lister sous forme d'array les modèles disponible
- RenderUrl() qui nous permet , grâce a des paramètres envoyés de type string de récupérer l'adresse url de sortie de notre logo
Il ne vous reste plus qu'à cliquer sur le bouton [Ajouter la référence] pour voir apparaître dans votre explorateur de solution, la Référence.
III. Utiliser la référence
La manière de proceder est tres simple, nous allons lister les polices, templates, extentions de sortie possible fournit par le service.
Lui indiquer Le texte, la couleur du texte , son fond, sa taille et lancer la requete.
Il ne nous restera plus qu'a attendre la reponse du service et recuperer notre logo via une url.
Voici la methode utilisé pour lister les polices disponibles.
 |
il en va de meme pour lister les templates et les extentions.
|
La première chose à faire est de déclarer une instance de la classe RenderServer3D, soit :
Dim InstXara As New com.xara.ws.RenderServer3D
Le reste est très simple, on récupère le tableau des polices par la propriété GetFonts de l'instance, et un simple parcours de tableau suffit à remplir notre zone de liste. Soit :
Try
´Récupère la liste des police disponibles
Dim Fonts As Array = InstXara.GetFonts
´parcours de la liste des polices
Dim i As Integer
For i = 0 To Fonts.Length - 1
Listbox1.Items.Add(Fonts.GetValue(i))
Next i
Catch ex As Exception
´si erreur
MsgBox(ex.Message, MsgBoxStyle.Information)
Exit Sub
End Try |
La methode RenderUrl() quand a elle est différente car elle attend des valeurs en paramètre pour créer notre logo et nous retourner l'url de ce dernier.
Voici le code vb.net correspondant:
´affectation des valeur nécessaire a l´envoi des données
Dim modele, texte, couleurtexte, couleurfond, police, taillepolice, sorti, longueur _
hauteur, logoSortie As String
modele = "Arial round"
texte = "Mon logo"
couleurtexte = "000000"
couleurfond = "FFFFFF"
police = " Arial "
taillepolice = " 20 "
sorti = " .jpg "
longueur = 150
hauteur = 60
´recuperation de l´url du fichier de sortie
logoSortie = InstXara.RenderURL(modele, texte, couleurtexte, couleurfond, police, _
taillepolice, sorti, longueur, hauteur) |
logoSortie contient le chemin http de votre logo, il ne vous reste plus qu'a le récupérer par la methode DownloadFile de la classe Web client.
Voici le code source correspondant:
´Extraction du nom de fichier à partir de l´url
Dim pos As Integer
pos = InStrRev(Trim(logoSortie), "/", -1, 1)
Dim fichier As String = Mid(Trim(logoSortie), pos + 1)
´creation d´une instance webclient
Dim web1 As System.Net.WebClient
web1 = New WebClient
Try
´telecharge le fichier
web1.DownloadFile(logoSortie, fichier)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try |
Une fois le fichier récupérer, il suffit de l'afficher dans une picturebox, et cela très simplement en créant une instance d'un bitmap , soit :
Dim img As Image
img = New Bitmap(Application.StartupPath & "" & lelogo)
PictureBox1.Image = CType(img, Image) |
|