[davidvamo]

Buenas compañer@s :

llevo como unos dos meses intentando que me funcione el componente : "TServerXMLHTTP40" y el envío de datos por POST.

Mi programa hace lo siguiente: tengo que enviar por "post" (obligatorio) un archivo XML y el parámetro de envío es xmlQuestion.

Tengo que enviar por post porque tiene capada la url (get) a 2k de tamaño.

Por cierto uso W2000PRO SP4 + DELPHI 7 + MSXML PARSER 4 - creo que voy completo de "parches" -

Os paso función para ver si sabéis donde me equivoco:

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
var
   ServerXMLHTTP: TServerXMLHTTP40;
   url, usr, pwd: String;
begin
   url := 'https://xxxxx/yyy.asp'';
   usr := 'usuario';
   pwd := 'password';
 
   ServerXMLHTTP:=TServerXMLHTTP40.Create(NIL);

  ServerXMLHTTP.open('POST',url,false,usr,pwd);
//  ServerXMLHTTP.setRequestHeader('Content-Type','text/xml');
  ServerXMLHTTP.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
  // memo1 contiene el archivo xml
  // reemplazo saltos de linia por '' para tener texto todo seguido
  Memo1.Text:=StringReplace(Memo1.Text,CHR(13)+CHAR(10),'',[rfReplaceAll]);
  ServerXMLHTTP.send('xmlQuestion=' + Memo1.text);

  // memo2 muestro resultado devuelto y me devuelve error interno de la compañia que envío el post
  memo2.Text := ServerXMLHTTP.responseText;
  ServerXMLHTTP.Free;
end;

Muchas gracias por todo