- Code : Tout sélectionner
Use "mapweb"
Sub Initialize
Dim ws As New ServiceSoap_n0
Dim b As boolean
b=ws.Isloginvalid("admin","")
End Sub
L'agent ne veut pas compiler il me met type mismatch sur la ligne :
b=ws.Isloginvalid("admin","")
Mon webservice :
- Code : Tout sélectionner
%INCLUDE "lsxsd.lss"
Class MapDocument_n0 As XSD_ANYTYPE
Public datas As ArrayOfString_n0
Public nb_page As XSD_STRING
Public spool As XSD_STRING
Sub NEW
End Sub
End Class
Class Critere_n0 As XSD_ANYTYPE
Public m_critere As XSD_STRING
Public m_type As XSD_STRING
Public m_format As XSD_STRING
Public m_description As XSD_STRING
Public m_visu As XSD_STRING
Public m_visuSearch As XSD_STRING
Sub NEW
End Sub
End Class
Class MapResultatPages_n0 As XSD_ANYTYPE
Public limit As MapLimit_n0
Public header As ArrayOfString_n0
Public pages As ArrayOfPages_n0
Sub NEW
End Sub
End Class
Class ArrayOfCriteres_n0 As XSD_ANYTYPE
Public Critere() As Critere_n0
Sub NEW
End Sub
End Class
Class CriteriaSearch_n0 As XSD_ANYTYPE
Public criteriaName As XSD_STRING
Public searchType As XSD_STRING
Public valueToSearch_begin As XSD_STRING
Public valueToSearch_end As XSD_STRING
Public nextPage As XSD_STRING
Public user_can_modify As XSD_STRING
Public isGlobal As XSD_STRING
Sub NEW
End Sub
End Class
Class MapResultat_n0 As XSD_ANYTYPE
Public type As XSD_STRING
Public limit As MapLimit_n0
Public header As ArrayOfString_n0
Public documents As ArrayOfDocuments_n0
Sub NEW
End Sub
End Class
Class ArrayOfVolumes_n0 As XSD_ANYTYPE
Public Volume() As Volume_n0
Sub NEW
End Sub
End Class
Class MapPage_n0 As XSD_ANYTYPE
Public datas As ArrayOfString_n0
Public num_page As XSD_STRING
Public spool As XSD_STRING
Sub NEW
End Sub
End Class
Class ArrayOfPages_n0 As XSD_ANYTYPE
Public page() As MapPage_n0
Sub NEW
End Sub
End Class
Class MapLimit_n0 As XSD_ANYTYPE
Public previous As XSD_STRING
Public current As XSD_STRING
Public next As XSD_STRING
Public last As XSD_STRING
Sub NEW
End Sub
End Class
Class Volume_n0 As XSD_ANYTYPE
Public m_description As XSD_STRING
Public m_volume As XSD_STRING
Public m_groupcriteria As XSD_STRING
Public m_groupTitle As XSD_STRING
Sub NEW
End Sub
End Class
Class ArrayOfString_n0 As XSD_ANYTYPE
Public string() As XSD_STRING
Sub NEW
End Sub
End Class
Class ArrayOfDocuments_n0 As XSD_ANYTYPE
Public document() As MapDocument_n0
Sub NEW
End Sub
End Class
Class ArrayOfPredefineSearchCriteria_n0 As XSD_ANYTYPE
Public PredefineSearchCriteria() As PredefineSearchCriteria_n0
Sub NEW
End Sub
End Class
Class MapLayer_n0 As XSD_ANYTYPE
Public m_numLayer As XSD_STRING
Public m_nomFileLayer As XSD_STRING
Public m_nomLayer As XSD_STRING
Public m_isDefault As XSD_STRING
Sub NEW
End Sub
End Class
Class ArrayOfPredefineSearch_n0 As XSD_ANYTYPE
Public PredefineSearch() As PredefineSearch_n0
Sub NEW
End Sub
End Class
Class ArrayOfLayers_n0 As XSD_ANYTYPE
Public layer() As MapLayer_n0
Sub NEW
End Sub
End Class
Class PredefineSearchCriteria_n0 As XSD_ANYTYPE
Public critere As XSD_STRING
Public description As XSD_STRING
Public typeSearch As XSD_STRING
Public begin As XSD_STRING
Public end As XSD_STRING
Sub NEW
End Sub
End Class
Class PredefineSearch_n0 As XSD_ANYTYPE
Public m_numRecherche As XSD_STRING
Public m_nomRecherche As XSD_STRING
Public m_listCriteres As ArrayOfPredefineSearchCriteria_n0
Public m_nextPage As XSD_STRING
Public m_nomTravail As XSD_STRING
Public m_nomUser As XSD_STRING
Public m_fichierSpool As XSD_STRING
Public m_OUTQ As XSD_STRING
Public m_reference As XSD_STRING
Public m_formatPapier As XSD_STRING
Public m_sequence As XSD_STRING
Public m_format As XSD_STRING
Public m_programmeEdition As XSD_STRING
Public m_nomPC As XSD_STRING
Sub NEW
End Sub
End Class
Class ArrayOfCriteriaSearch_n0 As XSD_ANYTYPE
Public CriteriaSearch() As CriteriaSearch_n0
Sub NEW
End Sub
End Class
Const n0 = "HelloServer"
Class ServiceSoap_n0 As PortTypeBase
Sub NEW
Call Service.Initialize ("HelloServerService", _
"Service.ServiceSoap", "http://10.91.1.12/MapWebFiles/mapSoapServer.php", _
"ServiceSoap_n0")
End Sub
Function changePass(login As XSD_STRING, passwd As XSD_STRING, passwd_new As XSD_STRING, _
passwd_confirm As XSD_STRING) As Boolean
Let changePass = Service.Invoke("changePass", login, passwd, passwd_new, passwd_confirm)
End Function
Function getLayers(login As XSD_STRING, passwd As XSD_STRING) As ArrayOfLayers_n0
Set getLayers = Service.Invoke("getLayers", login, passwd)
End Function
Function sendByMail(login As XSD_STRING, passwd As XSD_STRING, mail_from As XSD_STRING, _
mail_to As XSD_STRING, mail_subject As XSD_STRING, mail_attach As XSD_STRING, mail_mesg As XSD_STRING, _
spool As XSD_STRING, pages As XSD_STRING, layer As XSD_STRING, volumes As ArrayOfString_n0, _
CriteriaSearch As ArrayOfCriteriaSearch_n0, nextPage As Boolean) As Boolean
Let sendByMail = Service.Invoke("sendByMail", login, passwd, mail_from, mail_to, mail_subject, mail_attach, mail_mesg, spool, pages, layer, volumes, CriteriaSearch, nextPage)
End Function
Function getPredefineSearch(login As XSD_STRING, passwd As XSD_STRING, volumes As ArrayOfString_n0) As ArrayOfPredefineSearch_n0
Set getPredefineSearch = Service.Invoke("getPredefineSearch", login, passwd, volumes)
End Function
Function isLoginValid(login As XSD_STRING, passwd As XSD_STRING) As Boolean
Let isLoginValid = Service.Invoke("isLoginValid", login, passwd)
End Function
Function getFile(login As XSD_STRING, passwd As XSD_STRING, spool As XSD_STRING, _
pages As XSD_STRING, layer As XSD_STRING, typeFile As XSD_STRING) As XSD_BASE64BINARY
Set getFile = Service.Invoke("getFile", login, passwd, spool, pages, layer, typeFile)
End Function
Function getFileNoPages(login As XSD_STRING, passwd As XSD_STRING, spool As XSD_STRING, _
typeFile As XSD_STRING, layer As XSD_STRING, volumes As ArrayOfString_n0, CriteriaSearch As ArrayOfCriteriaSearch_n0, _
nextPage As Boolean) As XSD_BASE64BINARY
Set getFileNoPages = Service.Invoke("getFileNoPages", login, passwd, spool, typeFile, layer, volumes, CriteriaSearch, nextPage)
End Function
Function getCriteres(login As XSD_STRING, passwd As XSD_STRING, volumes As ArrayOfString_n0) As ArrayOfCriteres_n0
Set getCriteres = Service.Invoke("getCriteres", login, passwd, volumes)
End Function
Function getVolumes(login As XSD_STRING, passwd As XSD_STRING) As ArrayOfVolumes_n0
Set getVolumes = Service.Invoke("getVolumes", login, passwd)
End Function
Function Search(login As XSD_STRING, passwd As XSD_STRING, volumes As ArrayOfString_n0, _
viewCriterias As ArrayOfString_n0, CriteriaSearch As ArrayOfCriteriaSearch_n0, limit As XSD_INTEGER, _
nextPage As Boolean, SearchGlobal As Boolean) As MapResultat_n0
Set Search = Service.Invoke("Search", login, passwd, volumes, viewCriterias, CriteriaSearch, limit, nextPage, SearchGlobal)
End Function
Function SearchPages(login As XSD_STRING, passwd As XSD_STRING, spool_name As XSD_STRING, _
critere As XSD_STRING, critereValeur As XSD_STRING, volumes As ArrayOfString_n0, _
viewCriterias As ArrayOfString_n0, CriteriaSearch As ArrayOfCriteriaSearch_n0, limit As XSD_INTEGER, _
nextPage As Boolean, SearchGlobal As Boolean) As MapResultatPages_n0
Set SearchPages = Service.Invoke("SearchPages", login, passwd, spool_name, critere, critereValeur, volumes, viewCriterias, CriteriaSearch, limit, nextPage, SearchGlobal)
End Function
End Class
Je ne comprends pas pourquoi ??
