Error usando HTTP
Posted: Mon Apr 01, 2013 7:11 pm
Hola a todos.
Estoy con este error hace rato y no logro resolverlo, tampoco encuentro mucha documentacion sobre HTTP.
Intento comunicarme con un web server al que debo enviarle un xml en base 64 y se supone que el me envia en respuesta otro xml, el problema es que cuando ejecuto el envio del xml me da este error y de ahi no salgo. Estoy basandome en un ejemplo puesto aqui por Rafa Carmona que es lo unico que pude encontrar en HTTP.
El contenido de la variable que muestra el error es el xml que envio en base 64.
Application
===========
Path and name: C:\WPS Gestion Bin\TRABAJO WEB SERVER\WebClien.EXE (32 bits)
Size: 2,422,784 bytes
Compiler version: Harbour 3.2.0dev (Rev. 18449)
FiveWin Version: FWH 12.11
Windows version: 6.1, Build 7600
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 04/01/13, 15:57:58
Error description: (DOS Error -2147352567) WINOLE/1007 Error en la descarga del recurso solicitado.
(0x800C0008): msxml3.dll
Args:
[ 1] = C PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iSVNPLTg4NTktMTUiPz4NCjxzb2FwOkVudmVsb3BlIHhtbG5zOnhzZD0iaHR0cDovL3d3dy53My5vcmcvMjAwMS9YTUxTY2hlbWEiIHhtbG5zOnhzaT0iaHR0cDovL3d3dy53My5vcmcvMjAwMS9YTUxTY2hlbWEtaW5zdGFuY2UiIHhtbG5zOnNvYXA9Imh0dHA6Ly9zY2hlbWFzLnhtbHNvYXAub3JnL3NvYXAvZW52ZWxvcGUvIj4NCiAgIDxzb2FwOkJvZHk+DQogICAgICA8T2J0ZW5lck1hZXN0cm8geG1sbnM9Imh0dHA6Ly90ZW1wdXJpLm9yZy8iPg0KICAgICAgICAgPE1hZXN0cm9SZXEgeG1sbnM9Imh0dHA6Ly9CVFM4MDcyX0ZSQU5RX0ZVTExfRVhQUkVTUy5TQ0hFTUFTLndzTWFlc3Ryb1JlcXVlc3QiPg0KICAgICAgICAgICAgPENvZGlnb0VzdGFjaW9uIHhtbG5zPSIiPjcwMTU8L0NvZGlnb0VzdGFjaW9uPg0KICAgICAgICAgICAgPENsYXZlQXV0ZW50aWNhY2lvbiB4bWxucz0iIj5XUjBESTI4NE1TOUc8L0NsYXZlQXV0ZW50aWNhY2lvbj4NCiAgICAgICAgICAgIDxUaXBvUHJvY2VzbyB4bWxucz0iIj5NPC9UaXBvUHJvY2Vzbz4NCiAgICAgICAgICAgIDxUaXBvUHJvY2Vzb1NvbGljaXRhbnRlIHhtbG5zPSIiPk9idGVuZXJNYWVzdHJvPC9UaXBvUHJvY2Vzb1NvbGljaXRhbnRlPg0KICAgICAgICAgICAgPFRyYXphIHhtbG5zPSIiPk5PIFVTQVIgMjcvMDMvMjAxMyAxOTowMTwvVHJhemE+DQogICAgICAgICA8L01hZXN0cm9SZXE+DQogICAgICA8L09idGVuZXJNYWVzdHJvPg0KICAgPC9zb2FwOkJvZHk+DQo8L3NvYXA6RW52ZWxvcGU+DQoNCg==
Esto hago en mi prg:
try
oHttp := CreateObject( "MSXML2.XMLHTTP" )
catch e
? "Error de creacion"
end
ContXML :=MEMOREAD("ObtenerMaestros.xml")
Codi64XML:=hb_base64encode(ContXML)
oHttp:Open( "POST", cLocation, .F. )
oHttp:SetRequestHeader( "SOAPAction","http://tempuri.org/BTS8072_FRANQ_FULL_EXPRESS/ObtenerMaestro" )
oHttp:SetRequestHeader( "Content-Type","text/xml" )
oHttp:Send( Codi64XML ) && ACA SE PRODUCE EL ERROR.
Desde ya muchas gracias.
Jorge Jaurena
Estoy con este error hace rato y no logro resolverlo, tampoco encuentro mucha documentacion sobre HTTP.
Intento comunicarme con un web server al que debo enviarle un xml en base 64 y se supone que el me envia en respuesta otro xml, el problema es que cuando ejecuto el envio del xml me da este error y de ahi no salgo. Estoy basandome en un ejemplo puesto aqui por Rafa Carmona que es lo unico que pude encontrar en HTTP.
El contenido de la variable que muestra el error es el xml que envio en base 64.
Application
===========
Path and name: C:\WPS Gestion Bin\TRABAJO WEB SERVER\WebClien.EXE (32 bits)
Size: 2,422,784 bytes
Compiler version: Harbour 3.2.0dev (Rev. 18449)
FiveWin Version: FWH 12.11
Windows version: 6.1, Build 7600
Time from start: 0 hours 0 mins 5 secs
Error occurred at: 04/01/13, 15:57:58
Error description: (DOS Error -2147352567) WINOLE/1007 Error en la descarga del recurso solicitado.
(0x800C0008): msxml3.dll
Args:
[ 1] = C PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0iSVNPLTg4NTktMTUiPz4NCjxzb2FwOkVudmVsb3BlIHhtbG5zOnhzZD0iaHR0cDovL3d3dy53My5vcmcvMjAwMS9YTUxTY2hlbWEiIHhtbG5zOnhzaT0iaHR0cDovL3d3dy53My5vcmcvMjAwMS9YTUxTY2hlbWEtaW5zdGFuY2UiIHhtbG5zOnNvYXA9Imh0dHA6Ly9zY2hlbWFzLnhtbHNvYXAub3JnL3NvYXAvZW52ZWxvcGUvIj4NCiAgIDxzb2FwOkJvZHk+DQogICAgICA8T2J0ZW5lck1hZXN0cm8geG1sbnM9Imh0dHA6Ly90ZW1wdXJpLm9yZy8iPg0KICAgICAgICAgPE1hZXN0cm9SZXEgeG1sbnM9Imh0dHA6Ly9CVFM4MDcyX0ZSQU5RX0ZVTExfRVhQUkVTUy5TQ0hFTUFTLndzTWFlc3Ryb1JlcXVlc3QiPg0KICAgICAgICAgICAgPENvZGlnb0VzdGFjaW9uIHhtbG5zPSIiPjcwMTU8L0NvZGlnb0VzdGFjaW9uPg0KICAgICAgICAgICAgPENsYXZlQXV0ZW50aWNhY2lvbiB4bWxucz0iIj5XUjBESTI4NE1TOUc8L0NsYXZlQXV0ZW50aWNhY2lvbj4NCiAgICAgICAgICAgIDxUaXBvUHJvY2VzbyB4bWxucz0iIj5NPC9UaXBvUHJvY2Vzbz4NCiAgICAgICAgICAgIDxUaXBvUHJvY2Vzb1NvbGljaXRhbnRlIHhtbG5zPSIiPk9idGVuZXJNYWVzdHJvPC9UaXBvUHJvY2Vzb1NvbGljaXRhbnRlPg0KICAgICAgICAgICAgPFRyYXphIHhtbG5zPSIiPk5PIFVTQVIgMjcvMDMvMjAxMyAxOTowMTwvVHJhemE+DQogICAgICAgICA8L01hZXN0cm9SZXE+DQogICAgICA8L09idGVuZXJNYWVzdHJvPg0KICAgPC9zb2FwOkJvZHk+DQo8L3NvYXA6RW52ZWxvcGU+DQoNCg==
Esto hago en mi prg:
try
oHttp := CreateObject( "MSXML2.XMLHTTP" )
catch e
? "Error de creacion"
end
ContXML :=MEMOREAD("ObtenerMaestros.xml")
Codi64XML:=hb_base64encode(ContXML)
oHttp:Open( "POST", cLocation, .F. )
oHttp:SetRequestHeader( "SOAPAction","http://tempuri.org/BTS8072_FRANQ_FULL_EXPRESS/ObtenerMaestro" )
oHttp:SetRequestHeader( "Content-Type","text/xml" )
oHttp:Send( Codi64XML ) && ACA SE PRODUCE EL ERROR.
Desde ya muchas gracias.
Jorge Jaurena