Delphi 7 i Synapse. Synapse dodaje zbędne dla mnie nagłówki.

(Request-Line):POST /RangesAndPorts.asmx HTTP/1.1
Content-Type:text/xml; charset=utf-8
SOAPAction:"http://iptv-backend.apphb.com/GetData"
Host:iptv-backend.apphb.com
Expect:100-continue
Connection:Keep-Alive
Accept-Encoding:gzip, deflate
Content-Length:262

<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"><s:Body><GetData xmlns="http://iptv-backend.apphb.com/" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"><ip>IP</ip><port>80</port><source>pf1.18</source></GetData></s:Body></s:Envelope>

function StreamToStr(AStream : TMemoryStream) : string;
begin
  Result := '';
  if AStream.Size > 0 then
  begin
    SetLength(Result, AStream.Size);
    AStream.Read(PChar(Result)^, Length(Result));
    Result := UTF8ToAnsi(Result);
  end;
end;

procedure post();
var
  DocStr : string;
  data : String;
  IP, PORT : string;
  Base_Url : string;
  SynHttp : THTTPSend;
begin
  Base_Url := 'http://iptv-backend.apphb.com/RangesAndPorts.asmx';

    IP := '89.66.193.3';
    PORT := '80';

      with SynHttp do
      begin
        data := '<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"><s:Body><GetData xmlns="http://iptv-backend.apphb.com/" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"><ip>'+IP+'</ip><port>'+PORT+'</port><source>pf1.18</source></GetData></s:Body></s:Envelope>';

        //MimeType := 'text/xml;charset=utf-8';
        Protocol := '1.1';
        KeepAlive := True;
        //UserAgent := 'Mozilla/5.0';
        Headers.Add('SOAPAction:"http://iptv-backend.apphb.com/GetData"');
        Headers.Add('Expect:100-continue');
        Headers.Add('Accept-Encoding:gzip,deflate');
        Headers.Add('Host:iptv-backend.apphb.com');
        Headers.Add('Content-Type:text/xml;charset=utf-8');

        Document.Write(Pointer(data)^, Length(data));

        HTTPMethod('POST',Base_Url);
        DocStr := StreamToStr(Document);
        Form1.Memo1.Text := DocStr;
      end;
  SynHttp.Free;
end;

procedure post();
var
  DocStr : string;
  data : String;
  IP, PORT : string;
  Base_Url : string;
  SynHttp : THTTPSend;
begin
   Base_Url := 'http://iptv-backend.apphb.com/RangesAndPorts.asmx';

    IP := '89.66.193.3';
    PORT := '80';

  SynHttp:= THTTPSend.Create;

  with SynHttp do
  begin
    data := '<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"><s:Body><GetData xmlns="http://iptv-backend.apphb.com/" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"><ip>'+IP+'</ip><port>'+PORT+'</port><source>pf1.18</source></GetData></s:Body></s:Envelope>';

    Protocol := '1.1';
    KeepAlive := True;
    UserAgent := 'python-requests/2.20.0';
    SynHttp.MimeType:= 'text/xml;charset=utf-8';
    Headers.Add('SOAPAction:http://iptv-backend.apphb.com/GetData');
    Headers.Add('Expect:100-continue');
    Headers.Add('Accept-Encoding:gzip,deflate');
    Headers.Add('Host:iptv-backend.apphb.com');

    Document.Write(Pointer(data)^, Length(data));

    HTTPMethod('POST',Base_Url);

    DocStr := StreamToStr(Document);
    Form1.Memo1.Text := DocStr;
  end;
  SynHttp.Free;
end;

procedure post();
var
  DocStr : string;
  data : String;
  IP, PORT : string;
  Base_Url : string;
  SynHttp : THTTPSend;
begin
  Base_Url := 'http://iptv-backend.apphb.com/RangesAndPorts.asmx';

    IP := '89.66.193.3';
    PORT := '80';

    SynHttp := THttpSend.Create;

      with SynHttp do
      begin
        data := DecodeUrl(EncodeUrlElement('<s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/"><s:Body><GetData xmlns="http://iptv-backend.apphb.com/" xmlns:i="http://www.w3.org/2001/XMLSchema-instance"><ip>'+IP+'</ip><port>'+PORT+'</port><source>pf1.18</source></GetData></s:Body></s:Envelope>'));

        MimeType := 'text/xml;charset=utf-8';
        UserAgent := '';
        Headers.Add('SOAPAction:http://iptv-backend.apphb.com/GetData');
        Headers.Add('Expect:100-continue');
        Headers.Add('Accept-Encoding:xml,deflate');
        Headers.Add('Connection:Keep-Alive');

        Document.Write(Pointer(data)^, Length(data));

        HTTPMethod('POST',Base_Url);
        DocStr := StreamToStr(Document);
        Document.SaveToFile('a.txt');
        Form1.Memo1.Text := DocStr;
      end;
  SynHttp.Free;
end;