Créer un logo en utilisant le ServiceWeb Xara3D
Date de publication : 18/03/2005 ,
Date de mise a jour : 18/03/2005
Par
Selkis (selkis.developpez.com)
Comment créer un logo 3D en utilisant le Service Web distant de Xara3D
I. Introduction
II. Ajouter une référence Web
III. Utiliser la référence
IV. En savoir plus sur les Services Web
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.wsdl
Il 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
Dim Fonts As Array = InstXara.GetFonts
Dim i As Integer
For i = 0 To Fonts.Length - 1
Listbox1.Items.Add(Fonts.GetValue(i))
Next i
Catch ex As Exception
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
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)
Dim web1 As System.Net.WebClient
web1 = New WebClient
Try
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)
IV. En savoir plus sur les Services Web
|
