FiveTech Software tech support forums

Hola alguien a integrado algún web services para recargas electrónicas de teléfono celulares ?

Yo lo hago por sockets

perdón pero con que se come eso de los sockets.
saludos.

Excelente...

Que Tal Rober68

Te envio un ejemplo , que se conecta con el webservice pasando el nombre de usuario y pass,
si el usuario es correcto , pasas a la recarga ,

Fabian

Function webservice

*'<wsr:intAgenteID>2</wsr:intAgenteID>'+ ;
*'<wsr:strAgentePass>123</wsr:strAgentePass>'+ ;



cXMlBody = '<?xml version="1.0" encoding="UTF-8"?>' + ;
'<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:wsr="WSRecarga">'+ ;
'<soap:Header/>'+ ;
'<soap:Body>'+ ;
'<wsr:Login>'+ ;
'<wsr:intAgenteID>9</wsr:intAgenteID>'+ ;
'<wsr:strAgentePass>quioscos</wsr:strAgentePass>'+ ;
'</wsr:Login>'+ ;
'</soap:Body>'+ ;
'</soap:Envelope>'


// Abertura de funçiones para WebService xHarbour //
doc = CreateObject( "MSXML2.DOMDocument" )
http = CreateObject( "MSXML2.XMLHTTP" )

// Colocar la direccion del WebService //


http:Open( "POST" , "http://190.7.440.38/WSRecarga/WSRecarga.asmx" , .f. )


// Accion que debe ejecutar el webservice
http:SetRequestHeader( "SOAPAction" , "WSRecarga/Login" )
http:SetRequestHeader( "Content-Type" , "text/xml" )

// Funçiones del WebService //
doc:LoadXML( cXmlBody ) //
http:Send( doc:xml ) //
response = http:responseText // Recibe respuesta
cFilename:="texto.xml" // Nombre del archivo temporal
ferase(cfilename)

oText:= TTxtFile():New( cfilename )
if oText:Open()
oText:add(alltrim(response))
endif
oText:close()


? response

hFile := FOpen( cFileName )
IF hFile == -1
MsgStop("Erro ao abrir arquivo:"+cFileName)
Return Nil
ENDIF


xmlDoc := TXmlDocument():New( hFile )


xmlNode := xmlDoc:oRoot:oChild
DO WHILE xmlNode != NIL
cNome:=xmlNode:cName
if cNome=='WS_Busc_ProjetosResult'
cXMLRetorno:=xmlNode:cData
endif
xmlNode := xmlNode:NextInTree()
ENDDO
fclose(hFile)

Hola Fabian me podrias dar algún correo para estar en contacto ? y preguntarte algunas cosas que tengo duda

Algun Mail Fabian ?

Databaselab2002 wrote:Que Tal Rober68

Te envio un ejemplo , que se conecta con el webservice pasando el nombre de usuario y pass,
si el usuario es correcto , pasas a la recarga ,

Fabian

Function webservice

*'<wsr:intAgenteID>2</wsr:intAgenteID>'+ ;
*'<wsr:strAgentePass>123</wsr:strAgentePass>'+ ;



cXMlBody = '<?xml version="1.0" encoding="UTF-8"?>' + ;
'<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:wsr="WSRecarga">'+ ;
'<soap:Header/>'+ ;
'<soap:Body>'+ ;
'<wsr:Login>'+ ;
'<wsr:intAgenteID>9</wsr:intAgenteID>'+ ;
'<wsr:strAgentePass>quioscos</wsr:strAgentePass>'+ ;
'</wsr:Login>'+ ;
'</soap:Body>'+ ;
'</soap:Envelope>'


// Abertura de funçiones para WebService xHarbour //
doc = CreateObject( "MSXML2.DOMDocument" )
http = CreateObject( "MSXML2.XMLHTTP" )

// Colocar la direccion del WebService //


http:Open( "POST" , "http://190.7.440.38/WSRecarga/WSRecarga.asmx" , .f. )


// Accion que debe ejecutar el webservice
http:SetRequestHeader( "SOAPAction" , "WSRecarga/Login" )
http:SetRequestHeader( "Content-Type" , "text/xml" )

// Funçiones del WebService //
doc:LoadXML( cXmlBody ) //
http:Send( doc:xml ) //
response = http:responseText // Recibe respuesta
cFilename:="texto.xml" // Nombre del archivo temporal
ferase(cfilename)

oText:= TTxtFile():New( cfilename )
if oText:Open()
oText:add(alltrim(response))
endif
oText:close()


? response

hFile := FOpen( cFileName )
IF hFile == -1
MsgStop("Erro ao abrir arquivo:"+cFileName)
Return Nil
ENDIF


xmlDoc := TXmlDocument():New( hFile )


xmlNode := xmlDoc:oRoot:oChild
DO WHILE xmlNode != NIL
cNome:=xmlNode:cName
if cNome=='WS_Busc_ProjetosResult'
cXMLRetorno:=xmlNode:cData
endif
xmlNode := xmlNode:NextInTree()
ENDDO
fclose(hFile)

Los proveedores de este servicio aquí en la tienda
me dieron un ejecutable en java

Lo ejecuto con unos parámetros y me retorna un archivo txt
donde viene los datos a poner en el ticket.

y eso es todo.