XAS, Xml Server, Xml Services, XML Kiosk, Administration des lots de cartes, (Web, Web Services, PDA, WidGet, Fat Client)

Administration des lots de cartes, (Web, Web Services, PDA, WidGet, Fat Client)

Technologie	XAS.Technology	Version	V 6.0.1
Dernière modification	Lundi 19 Avril 2010	Par	Zaïr BEZGHICHE
Dernière vérification	Mardi 4 Mai 2010	Par	Support France
Thème	Administration des lots de cartes, (Web, Web Services, PDA, WidGet, Fat Client)	Fonction	SQLDATA.ServeurDoPilote

Prototype

Function ServeurDoPilote (Id As Integer, screa As String) As Integer

Usage
Administration-des-lots-de-cartes.ServeurDoPilote(...)
HTTP (GET,POST)	SOAP WSDL	SOAP REST	XML-RPC

Format de sortie
XML	HTML	TEXT	EXCEL(CSV)

Code Source - développement open source

Function ServeurDoPilote (Id As Integer, screa As String) As Integer

Function ServeurDoPilote (Id As Integer, screa As String) As Integer
Dim Ret%
Dim sData$

ServeurDoPilote = False
Select Case Id
    Case 1
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,port,filename,content "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','0','1','DORSAL Maitre','4501','MAITRE.COD','P1=0;') "
    Case 2
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,port,portname,maxuser,filename,content  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','0','19','DORSAL Agent','4502','4501','2','XASM2M.COD','P1=3;P2=50;P3=600;P4=0;P5=0;') "
    Case 3
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,port,filename,content,enabled  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','2','11','Service WEB','80','XASDRM.COD','P1=GUEST;','1') "
    Case 4
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,port,filename,content,enabled  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','13','15','Service XMLRPC','4500','XDESKTOP.COD','P1=0;','1') "
    Case 5
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,port,Directory,filename,content  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','12','20','Service PROXY','8080','WWWROOT','SiteOff.htm','P1=0;' ) "
    Case 6
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,port,portname,filename,content,enabled  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','14','4','Service MAIL','26','25','relay.xasbusiness.com','P1=0;','1' ) "
    Case 7
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,port,filename,content  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','5','5','Service VOCAL','8080','VOCAL.COD','P1=0;') "
    Case 8
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,filename,content   "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','11','8','Service X25','MINITEL.COD','P1=0;') "
    Case 9
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation ,filename,content  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','12','9','Service ISDN','WWWROOT','SiteOff.htm') "
    Case 10
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation ,filename,content,enabled  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','14','18','Service BATCH','SiteOff.htm','P1=0;','1') "
    Case 11
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation ,configcom,filename,content  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','5','2','Service RS232','P1=COM1:9600,n,8,1;P2=COM2:9600,n,8,1;P3=COM3:9600,n,8,1;P4=COM4:9600,n,8,1;') "
    Case 12
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation ,port,filename,content,enabled  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','3','14','Service WAP','4080','WAP.COD','P1=0;','1') "
    Case 13
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,filename,content,enabled   "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','0','17','Service COCKPIT','WATCHDOG.COD','P1=0;','1') "
    Case 14
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,filename,content ,enabled,Directory  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','0','6','Service CORBEILLE','InOut.txt','P1=0;','1','C:\CORBEILLE') "
    Case 15
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation ,port,filename,content,enabled  "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','0','10','Service XASTCP','25','InOut.txt','P1=0;','1') "
    Case 16
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,port,filename,content,enabled   "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','1','0','22','Service XASODBC','1033','SQLDATA.COD','P1=0;','1') "
    Case 17
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,directory,filename,content   "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','2','0','0','Cockpit','COCKPIT','COCKPIT.COD','P1=1;P2=3;P3=122;P4=0;P5=0;') "
    Case 18
	sData = "INSERT INTO maitre.dbo.XmlServeur.xmlpilote (Creation,Maj,type,media,network,designation,directory,filename,content   "
	sData = sData + " ) VALUES ('" + screa + "','" + screa + "','3','0','0','Internet Explorer','C:\Program Files\Internet Explorer','IEXPLORE.EXE','http://www.xasservices.com') "
End Select
Ret = pExecute(sData)
If Ret = True Then
    ServeurDoPilote = True
End If

End Function

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.