HTTP, XML

[Xevi]

Necesito conectar una aplicación web con mi aplicación, ya que ésta (mi
aplicación) és la que dispone de datos (cliente, vehí­culo, artí­culos) que se
deben gestionar en la aplicación web (pedidos, pressupuestos...).
Para ello, por el dossier que he recibido de la marca, la petición de datos
y respuesta se hacen mediante HTTP XML, utilizando la dirección IP del
servidor de datos (que entiendo que es la que está mi aplicación con mis
BBDD) y utilizando el puerto 8080 para dicha comunicación.
¿Alguien puede darme un poco de luz en este asunto???
Gracias.
Un Saludo,
Xevi.
__________ Información de ESET Smart Security, versión de la base de firmas de virus 3957 (20090324) __________
ESET Smart Security ha comprobado este mensaje.
http://www.eset.com

[rafa]

Es a traves de SOAP, CGI, etc... ?
Saludos
Rafa Carmona

[rafa]

POST, GET... ?
Saludos
Rafa Carmona

[rafa]

Puedes poner un ejemplo de llamada ?
Lo digo porque yo estoy liado con esto hace tiempo...
Saludos
Rafa Carmona

[jasm.quitaesto]

Hace algun tiempo hice un programa para comunicar con un servidor SOAP
desde Alaska xBase. Hay que tener la estructura del mensaje XML y
disponer de harramientas para crear, enviar y validar el sobre SOAP.
Saludos
Añf+.
Xevi escribió:
> Necesito conectar una aplicación web con mi aplicación, ya que ésta (mi
> aplicación) és la que dispone de datos (cliente, vehí­culo, artí­culos)
> que se deben gestionar en la aplicación web (pedidos, pressupuestos...).
> Para ello, por el dossier que he recibido de la marca, la petición de
> datos y respuesta se hacen mediante HTTP XML, utilizando la dirección IP
> del servidor de datos (que entiendo que es la que está mi aplicación con
> mis BBDD) y utilizando el puerto 8080 para dicha comunicación.
>
> ¿Alguien puede darme un poco de luz en este asunto???
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
> __________ Información de ESET Smart Security, versión de la base de
> firmas de virus 3957 (20090324) __________
>
> ESET Smart Security ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>

[Xevi]

Rafa,
Dispongo del dossier, que está en inglés... si puedes echarle un vistazo, te
lo agradecerí­a.
Te lo mando por mail
Un Saludo,
Xevi.
"rafa" <thefull_quita@t-gtk.org> escribió en el mensaje de noticias
news:49c91aef$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Puedes poner un ejemplo de llamada ?
>
> Lo digo porque yo estoy liado con esto hace tiempo...
>
> Saludos
> Rafa Carmona
>
> __________ Información de ESET Smart Security, versión de la base de
> firmas de virus 3957 (20090324) __________
>
> ESET Smart Security ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET Smart Security, versión de la base de firmas de virus 3957 (20090324) __________
ESET Smart Security ha comprobado este mensaje.
http://www.eset.com

[Xevi]

José Alfonso,
Esas herramientas son las que creo que no dispongo, o es que no se como
hacerlo funcionar...
Pues para enviar SMSs también utilizan envios en XML pero a través de un OCX
que me pasa el distribuidor de mensajes, se convierte en una tarea muy fácil
de añadir a mi aplicación.
Un Saludo,
Xevi.
"José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
mensaje de noticias news:49c920ef$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hace algun tiempo hice un programa para comunicar con un servidor SOAP
> desde Alaska xBase. Hay que tener la estructura del mensaje XML y disponer
> de harramientas para crear, enviar y validar el sobre SOAP.
>
> Saludos
>
> Añf+.
>
>
> Xevi escribió:
>> Necesito conectar una aplicación web con mi aplicación, ya que ésta (mi
>> aplicación) és la que dispone de datos (cliente, vehí­culo, artí­culos) que
>> se deben gestionar en la aplicación web (pedidos, pressupuestos...).
>> Para ello, por el dossier que he recibido de la marca, la petición de
>> datos y respuesta se hacen mediante HTTP XML, utilizando la dirección IP
>> del servidor de datos (que entiendo que es la que está mi aplicación con
>> mis BBDD) y utilizando el puerto 8080 para dicha comunicación.
>>
>> ¿Alguien puede darme un poco de luz en este asunto???
>>
>> Gracias.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> __________ Información de ESET Smart Security, versión de la base de
>> firmas de virus 3957 (20090324) __________
>>
>> ESET Smart Security ha comprobado este mensaje.
>>
>> http://www.eset.com
>>
>>
>>
>
> __________ Información de ESET Smart Security, versión de la base de
> firmas de virus 3957 (20090324) __________
>
> ESET Smart Security ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET Smart Security, versión de la base de firmas de virus 3957 (20090324) __________
ESET Smart Security ha comprobado este mensaje.
http://www.eset.com

[Martin Del Angel]

Xevi wrote:
> Necesito conectar una aplicación web con mi aplicación, ya que ésta (mi
> aplicación) és la que dispone de datos (cliente, vehí­culo, artí­culos)
> que se deben gestionar en la aplicación web (pedidos, pressupuestos...).
> Para ello, por el dossier que he recibido de la marca, la petición de
> datos y respuesta se hacen mediante HTTP XML, utilizando la dirección IP
> del servidor de datos (que entiendo que es la que está mi aplicación con
> mis BBDD) y utilizando el puerto 8080 para dicha comunicación.
>
> ¿Alguien puede darme un poco de luz en este asunto???
>
> Gracias.
>
> Un Saludo,
> Xevi.
>
>
> __________ Información de ESET Smart Security, versión de la base de
> firmas de virus 3957 (20090324) __________
>
> ESET Smart Security ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
Hola Xevi !
Podrí­as poner mas a detalle lo que deseas !
Acabo de terminar un programa donde por medio de SOAP transmito datos a
un Servidor WebServices.
Tuve que instalar MS SOAP Tool Kit 3.0
http://www.microsoft.com/downloads/deta ... milyId=C94 3C0DD-CEEC-4088-9753-86F052EC8450&displaylang=en
y despues en el codigo:
TRY
::oACR := CreateObject("MSSOAP.SoapClient30")
CATCH oError
lResult := .F.
MsgStop(oError:Operation,"Error al Inicializar Servicios Web")
END
::oACR:MSSoapInit("http://www.lacompania.com.mx/wstxp/service.asmx?wsdl")
(www.lacompania.com.mx es para mera ilustración , claro la direccción
real es otra.)
asi de esta manera me conecto a servidor de ellos:
hay 2 posibilidades para mandar inf.:
1. Que escribas la función o codigo en XML para transmitir los datos.
2. Que por el lado del WebService te proporcionen la función o Metodo
para Transmitir los Datos , el cual fue mi caso.
Ellos ya tenian una función para que el cliente les mandase inf.
y para transmitir los datos utilice un función de los servicios web de
ellos:
TRY

wResult:=::oACR:PolizasRemotasNUICTX(wClaveAgente,wCodSeg,wP refijo,;

wFolio,wTipoEndoso,wEstadoEntrada,wMotivoVisita,wFechaRegist ro,;

wInicioVigencia,wHora_Inicio,wFinVigencia,wFormaPago,wMoneda ,;

wAsegurado,wCalleNumero,wColonia,wCodPostal,wEmail,wProducto ,;

wMunicipio,wEstado,wLada,wTelefono,wAnio,wNumSerie,wPlacas,w Marca,;

wModelo,wDescripcionUso,wPaisPlacas,wPaisPlacasOtro,wEstadoP lacas,;

wRemolque,wDescripcionRemolque,wPuertoEntrada,wPrima,wDerech o,;

wAuxilioVial,wMiscelaneo,wDescuento,wExtraPrima,wConceptoExt raPrima,;

wPrefijoAnterior,wFolioAnterior,wObservaciones,wSubAgente,;

wFinanciamiento,wEnganche,wMesesFinanciamiento,wVehiculos,;

wFolioCertificado,wEstatus,wReferenciaPago,wFiller1,wFiller2 )
CATCH oError

MsgStop(oError:Operation+"("+ALLTRIM(CSTR(oError:GenCode))+ ")","Error al
Enviar Poliza Via Servicios Web")
END
y asi de facil les transmiti la Inf.
lo unico complicado es generar el archivo wsdl en el caso que tu
tuvieras que hacerlo.
No se cual sea tu caso, porque no detallas lo que necesitas y tal vez
pudieramos aportar alguna idea.
Saludos...

[Xevi]

Martin,
No se como detallar mi "necesidad"... a ver si me sale...
Tengo una aplicación de Gestión/Facturación, en Xailer, la cual contiene mis
Bases de Datos, DBFs, y funcionando perfectamente.
Luego por otra parte, una web del proveedor, hay una "cesta" para
confeccionar Presupuestos o Pedidos.
Dicha cesta hay que indicar la IP (donde se alla mi aplicación con las BBDD)
y el puerto 8080 de comunicación entre aplicaciones.
O sea que no es mi aplicación la que "manda" la información al formulario
web, sinó que el formulario hace la "petición" de información, envia un XML
y luego SI mi aplicación o directamente el servidor debe responder a esa
petición de datos.
Es ahí­ donde me pierdo...
¿Cómo capturo y leo lo que llega al puerto 8080 de un ordenador en
cuestión???
¿Cómo le enviaré la información???
En aplicativos como enviar SMSs, se utiliza un OCX que se encarga de este
menester, sólo creo el XML y el OCX lo manda.
Pero ahí­ se trata de primero recibir, y luego mandar.
Si puedes hecharme una mano, te puedo enviar el dossier.
Estoy muy necesitado de este enlace entre aplicativos.
Gracias por tu tiempo.
Un Saludo,
Xevi.
"Martin Del Angel" <mdangel@dymsasistemas.com> escribió en el mensaje de
noticias news:49c95557$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Xevi wrote:
>> Necesito conectar una aplicación web con mi aplicación, ya que ésta (mi
>> aplicación) és la que dispone de datos (cliente, vehí­culo, artí­culos) que
>> se deben gestionar en la aplicación web (pedidos, pressupuestos...).
>> Para ello, por el dossier que he recibido de la marca, la petición de
>> datos y respuesta se hacen mediante HTTP XML, utilizando la dirección IP
>> del servidor de datos (que entiendo que es la que está mi aplicación con
>> mis BBDD) y utilizando el puerto 8080 para dicha comunicación.
>>
>> ¿Alguien puede darme un poco de luz en este asunto???
>>
>> Gracias.
>>
>> Un Saludo,
>> Xevi.
>>
>>
>> __________ Información de ESET Smart Security, versión de la base de
>> firmas de virus 3957 (20090324) __________
>>
>> ESET Smart Security ha comprobado este mensaje.
>>
>> http://www.eset.com
>>
>>
>>
> Hola Xevi !
>
> Podrí­as poner mas a detalle lo que deseas !
>
>
> Acabo de terminar un programa donde por medio de SOAP transmito datos a un
> Servidor WebServices.
>
> Tuve que instalar MS SOAP Tool Kit 3.0
> http://www.microsoft.com/downloads/deta ... milyId=C94 3C0DD-CEEC-4088-9753-86F052EC8450&displaylang=en
>
> y despues en el codigo:
>
> TRY
> ::oACR := CreateObject("MSSOAP.SoapClient30")
> CATCH oError
> lResult := .F.
> MsgStop(oError:Operation,"Error al Inicializar Servicios Web")
> END
> ::oACR:MSSoapInit("http://www.lacompania.com.mx/wstxp/service.asmx?wsdl")
>
> (www.lacompania.com.mx es para mera ilustración , claro la direccción real
> es otra.)
>
> asi de esta manera me conecto a servidor de ellos:
>
> hay 2 posibilidades para mandar inf.:
>
> 1. Que escribas la función o codigo en XML para transmitir los datos.
>
> 2. Que por el lado del WebService te proporcionen la función o Metodo para
> Transmitir los Datos , el cual fue mi caso.
>
> Ellos ya tenian una función para que el cliente les mandase inf.
>
>
>
>
>
> y para transmitir los datos utilice un función de los servicios web de
> ellos:
>
> TRY
>
> wResult:=::oACR:PolizasRemotasNUICTX(wClaveAgente,wCodSeg,wP refijo,;
>
> wFolio,wTipoEndoso,wEstadoEntrada,wMotivoVisita,wFechaRegist ro,;
>
> wInicioVigencia,wHora_Inicio,wFinVigencia,wFormaPago,wMoneda ,;
>
> wAsegurado,wCalleNumero,wColonia,wCodPostal,wEmail,wProducto ,;
>
> wMunicipio,wEstado,wLada,wTelefono,wAnio,wNumSerie,wPlacas,w Marca,;
>
> wModelo,wDescripcionUso,wPaisPlacas,wPaisPlacasOtro,wEstadoP lacas,;
>
> wRemolque,wDescripcionRemolque,wPuertoEntrada,wPrima,wDerech o,;
>
> wAuxilioVial,wMiscelaneo,wDescuento,wExtraPrima,wConceptoExt raPrima,;
>
> wPrefijoAnterior,wFolioAnterior,wObservaciones,wSubAgente,;
>
> wFinanciamiento,wEnganche,wMesesFinanciamiento,wVehiculos,;
>
> wFolioCertificado,wEstatus,wReferenciaPago,wFiller1,wFiller2 )
>
> CATCH oError
>
> MsgStop(oError:Operation+"("+ALLTRIM(CSTR(oError:GenCode))+ ")","Error al
> Enviar Poliza Via Servicios Web")
>
> END
>
> y asi de facil les transmiti la Inf.
>
> lo unico complicado es generar el archivo wsdl en el caso que tu tuvieras
> que hacerlo.
>
>
> No se cual sea tu caso, porque no detallas lo que necesitas y tal vez
> pudieramos aportar alguna idea.
>
>
> Saludos...
>
> __________ Información de ESET Smart Security, versión de la base de
> firmas de virus 3957 (20090324) __________
>
> ESET Smart Security ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET Smart Security, versión de la base de firmas de virus 3960 (20090325) __________
ESET Smart Security ha comprobado este mensaje.
http://www.eset.com

[rafa]

Por lo que veo no es SOAP, es enviar simplemente por POST el mensaje XML.
Te pongo un ejemplo;
/*********************************************************** ****************/
/*********************************************************** ****************/
METHOD CREATEHTTP() CLASS TPeticion
Local oHttp, e
try
oHttp := CreateObject( "MSXML2.XMLHTTP" ) // Version.
catch e
try
oHttp := CreateObject( "MSXML2.XMLHTTP.4.0" ) // Version.
catch e
try
oHttp := CreateObject( "MSXML2.XMLHTTP.6.0" ) // Version.
catch e
oHttp := NIL
end
end
oHttp := NIL
end
RETURN oHttp
/*********************************************************** ****************/
cDominio , URL donde quieres enviar el mensaje
&mensaje=XML , es el paramentro que contiene el XML que vas a enviar, y
XML en contenido en si, tienes que usar UNICODE, según vi por encima en
la documentacion.
METHOD SendPost( ) CLASS TPeticion
Local oHttp, lRet := .F. , e
Local oLog
oHttp := ::CreateHttp()
if !Empty( oHttp )
oHttp:Open( "POST", ::cDominio, .F. )
oHttp:SetRequestHeader(
"Content-Type","application/x-www-form-urlencoded" )
try
oHttp:Send( "&mensaje=" + ::GetXML() )
// Un ejemplo de envio.
// oHttp:Send( '&mensaje=<?xml version="1.0"
encoding="ISO-8859-15"?><GetListaHotelesRQ IDUSER="1" />' )
::cResponse := oHttp:ResponseText // Aqui tienes la respuesta
del servidor, tienes que tratarla según interese.
lRet := .T.
catch e
::cResponse := "["+ Time() + "] Exception conexion: "+
cValtoChar( oHttp:Status )
lRet := .F.
end
endif
oHttp := NIL
hb_gcall( .T. )
inkey( .2 )
RETURN lRet
Esto es todo lo que necesitas para enviar/recibir desde la URL.
El tratamiento de los datos, esa es la parte más dura....
Saludos
Rafa Carmona