Soyez le premier à donner votre avis sur cette source.
Vue 41 047 fois - Téléchargée 2 254 fois
Imports System.Web.Services Imports System.io <System.Web.Services.WebService(Namespace:="http://fr-cyrildurand.int.webmatrixhosting.net/DownloadFile/Service1")> _ Public Class Service1 Inherits System.Web.Services.WebService #Region " Code généré par le Concepteur des services Web " Public Sub New() MyBase.New() 'Cet appel est requis par le Concepteur des services Web. InitializeComponent() 'Ajoutez votre code d'initialisation après l'appel InitializeComponent() End Sub 'Requis par le Concepteur des services Web Private components As System.ComponentModel.IContainer 'REMARQUE : la procédure suivante est requise par le Concepteur des services Web 'Elle peut être modifiée en utilisant le Concepteur des services Web. 'Ne la modifiez pas en utilisant l'éditeur de code. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() components = New System.ComponentModel.Container End Sub Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) 'CODEGEN : cette procédure est requise par le Concepteur des services Web 'Ne la modifiez pas en utilisant l'éditeur de code. If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub #End Region Private Const DirectoryImages As String = "Images" Private Const AdressWebService As String = "http://fr-cyrildurand.int.webmatrixhosting.net/DownloadFile" <WebMethod()> Public Function GetCategories() As String() If Directory.Exists(Server.MapPath(DirectoryImages)) Then Dim DI() As DirectoryInfo = New DirectoryInfo(Server.MapPath(DirectoryImages)).GetDirectories Dim _GetCategories(DI.Length - 1) As String Dim i As Integer For Each _DI As DirectoryInfo In DI _GetCategories(i) = _DI.Name i += 1 Next Return _GetCategories Else 'Erreur : le Dossier des images n'existe pas End If End Function <WebMethod()> Public Function GetFilesName(ByVal Category As String) As String() If Directory.Exists(Server.MapPath(DirectoryImages & "\" & Category)) Then Dim FI() As FileInfo = New DirectoryInfo(Server.MapPath(DirectoryImages & "/" & Category)).GetFiles("*.jpg") Dim _GetFilesName(FI.Length - 1) As String Dim i As Integer For Each _FI As FileInfo In FI _GetFilesName(i) = _FI.Name i += 1 Next Return _GetFilesName End If End Function <WebMethod()> Public Function GetFilesFullName(ByVal Category As String) As String() Dim _GetFilesFullName() As String = GetFilesName(Category) Dim _GetFilesFullNameTemp(_GetFilesFullName.Length - 1) As String Dim i As Integer For Each s As String In _GetFilesFullName _GetFilesFullNameTemp(i) = AdressWebService & "/" & DirectoryImages & "/" & Category & "/" & s i += 1 Next Return _GetFilesFullNameTemp End Function End Class
7 janv. 2011 à 01:32
je suis débutant en développement,je veux faire fonctionner un web service simple j'ai essayer de faire comme est montré sur la video suivante mi le web service est la mi dés que je rentre sur le WSDL il affiche une erreur,j'esper que j'aurai une réponse a ca c urgent et merci bcp d'avance.voici le lien de la video http://www.codes-sources.com/video.aspx?id=12.
11 nov. 2009 à 22:31
je suis debutant en developpement et je veux savoir pour faire une laison de page asp avec un dossier dans le server
comment faire la liason (le not cle)
merci de votre code tres bien developper
9 mars 2009 à 16:58
je ss entraine de realiser un projet de fin d'étude concernant les services web. et je ne sais pas comment creer un service web avec java sous eclipse j'aimerais bien si vous m'aider et me donner toutes les étapes afin de creer un service web. merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.