Problemas con POST (Internet) y MSXML2_TLB
Publicado por David (1 intervención) el 04/10/2006 19:33:39
Buenas, y muchas gracias por leer este mensaje,
Me han pedido, hace casi un año, que realice una aplicación que recoja un XML, lo formatee, lo envie a una dirección en concreto, previa validación de usuario y contraseña, y me duelve resultados XML.
Os explico....
=== PAUTAS OBLIGADAS A SEGUIR ====
1.- Tengo que enviar los datos por POST de Internet a través de un parámetro que se llame xmlQuestion (la idea es equivalente como si hiciera un post de una página web con un Textarea -alias TMemo en Delphi- que se llame xmlQuestion, que contendrá todo el código XML)
2.- Los datos los envío a una compañía que únicamente me ha dicho que use la libreria MSXML3. (en Delphi MSXML2_TLB) y el componente serverXMLHTTP (supongo que tendrá desarrollala la aplicación en MS Visual Studio .NET)
=== ERROR QUE SIEMPRE ME APERECE ===
HTTP/1.0 501 NOT IMPLEMENTED
mi problema es que ya no sé como solucionar le problema. He copiado todos los ejemplos que hay en MSDN online y tampoco.
Os agradecería cualquier tipo de ayuda
==================================================
======== Mi código es el siguiente ===========
==================================================
procedure TForm1.FormCreate(Sender: TObject);
var
str: String;
begin
Memo1.Clear;
str := 'https://host/servicios/brokers/tariff.asp';
ServerXMLHTTP401.Connect;
ServerXMLHTTP401.open('POST',str,false,'USUARIO1','CONTRASEÑA1');
ServerXMLHTTP401.setRequestHeader('WWW-Authenticate','Basic realm=NOMBRE_HOST');
ServerXMLHTTP401.send('xmlQuestion=<DS_REQUEST><COMMUNIC '+
'ID_PARTNER="USUARIO2" PWD="CONTRASEÑA2" PN="11"/>'+
'<CAR_SEARCH TM_ID="00017" MODEL_ID="" MODEL="XSARA"'+
' VERSION="1.9" NB_DOOR="5" FUEL="D" POWER=""/>'+
'</DS_REQUEST>');
Memo1.lines.Add(ServerXMLHTTP401.responseText);
ServerXMLHTTP401.Disconnect;
end;
==================================================
Teóricamente tiene que funcionar pero la respueta es NO.
Alguien puede ayudarme.
Muchas gracias por adelantado.
Me han pedido, hace casi un año, que realice una aplicación que recoja un XML, lo formatee, lo envie a una dirección en concreto, previa validación de usuario y contraseña, y me duelve resultados XML.
Os explico....
=== PAUTAS OBLIGADAS A SEGUIR ====
1.- Tengo que enviar los datos por POST de Internet a través de un parámetro que se llame xmlQuestion (la idea es equivalente como si hiciera un post de una página web con un Textarea -alias TMemo en Delphi- que se llame xmlQuestion, que contendrá todo el código XML)
2.- Los datos los envío a una compañía que únicamente me ha dicho que use la libreria MSXML3. (en Delphi MSXML2_TLB) y el componente serverXMLHTTP (supongo que tendrá desarrollala la aplicación en MS Visual Studio .NET)
=== ERROR QUE SIEMPRE ME APERECE ===
HTTP/1.0 501 NOT IMPLEMENTED
mi problema es que ya no sé como solucionar le problema. He copiado todos los ejemplos que hay en MSDN online y tampoco.
Os agradecería cualquier tipo de ayuda
==================================================
======== Mi código es el siguiente ===========
==================================================
procedure TForm1.FormCreate(Sender: TObject);
var
str: String;
begin
Memo1.Clear;
str := 'https://host/servicios/brokers/tariff.asp';
ServerXMLHTTP401.Connect;
ServerXMLHTTP401.open('POST',str,false,'USUARIO1','CONTRASEÑA1');
ServerXMLHTTP401.setRequestHeader('WWW-Authenticate','Basic realm=NOMBRE_HOST');
ServerXMLHTTP401.send('xmlQuestion=<DS_REQUEST><COMMUNIC '+
'ID_PARTNER="USUARIO2" PWD="CONTRASEÑA2" PN="11"/>'+
'<CAR_SEARCH TM_ID="00017" MODEL_ID="" MODEL="XSARA"'+
' VERSION="1.9" NB_DOOR="5" FUEL="D" POWER=""/>'+
'</DS_REQUEST>');
Memo1.lines.Add(ServerXMLHTTP401.responseText);
ServerXMLHTTP401.Disconnect;
end;
==================================================
Teóricamente tiene que funcionar pero la respueta es NO.
Alguien puede ayudarme.
Muchas gracias por adelantado.
Valora esta pregunta


0