Fórum Trabalhar com Soap sem utilizar Paleta Web Services #578016

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP1: TIdHTTP;
  postData: TMemoryStream;
begin
  IdHTTP1 := TIdHTTP.Create(nil);
  postData := TMemoryStream.Create;
  try
    Memo1.Lines.Clear;
    postData.Position := 0;
    postData.LoadFromFile('soap11.xml');
    IdHTTP1.Request.ContentType := 'text/xml';
    IdHTTP1.Request.Charset := 'utf-8';
    IdHTTP1.Request.ContentLength := postData.Size;
    IdHTTP1.Request.CustomHeaders.Values['SOAPAction'] := 'http://www.webserviceX.NET/GetWeather';
    IdHTTP1.ProtocolVersion := pv1_1;
    IdHTTP1.HTTPOptions := IdHTTP1.HTTPOptions + [hoKeepOrigProtocol];
    Memo1.Lines.Text := IdHTTP1.Post('http://www.webservicex.net/globalweather.asmx', postData);
  except
    on e: Exception do
    begin
      Memo1.Lines.Text := e.Message;
      Memo1.Lines.Add(IdHTTP1.ResponseText);
    end;
  end;
  postData.Free;
  IdHTTP1.Free;
end;