XAS, Xml Server, Xml Services, XML Kiosk, XML Service Collaboratif, (Web, Web Services, PDA, WidGet, Fat Client)

XML Service Collaboratif, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Mardi 27 Juillet 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Jeudi 29 Juillet 2010	Par	Support France
Thème	XML Service Collaboratif, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	FrmEditeur.SetIhmOut

Prototype

Function SetIhmOut (sFileOut As String, iType As Integer) As Integer

Usage
XML-Service-Collaboratif.SetIhmOut(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function SetIhmOut (sFileOut As String, iType As Integer) As Integer

Function SetIhmOut (sFileOut As String, iType As Integer) As Integer
Dim Ret%
Dim s$

Ret = XasUserSetProperties(Cel(2), 1, sFileOut + "." + CStr(XasGetRanDom(10000, 99999)))
Cel(2).Visible = True
If iType = True Then
    If Len(GlobxRpcLastURL) > 100 Then
        s = Left$(GlobxRpcLastURL, 100) + "..."
        xLb(11).Caption = s
    Else
        xLb(11).Caption = GlobxRpcLastURL
    End If
    If Len(GlobxRpcLastURI) > 100 Then
        s = Left$(GlobxRpcLastURI, 100) + "..."
        xLb(13).Caption = s
    Else
        xLb(13).Caption = GlobxRpcLastURI
    End If
    Ico(3).Visible = True
    Ico(4).Visible = True
Else
    xLb(11).Caption = ""
    xLb(13).Caption = ""
    Ico(3).Visible = False
    Ico(4).Visible = False
End If
End Function

Références XAS.Technology

XasUserSetProperties , Cstr , XasGetRandom , Len , Left ,

Audience

Cette documentation est destinée aux personnes s'intéressant aux systèmes d'information collaboratifs.
Les Webservices, les architectures collabortives et distribuées, les moteurs transactionnelles et les concepts de programmation orientés objet.