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.Text := ServerXMLHTTP.responseText;
ServerXMLHTTP.Free;
end;
Muchas gracias por todo