Я разрабатываю запрос клиента SOAP для подключения к серверу https.Серверу требуется тип контента application / soap + xml, bud HTTPRIO может отправлять текст / html.
Я нашел const ContentType12UTF8 = 'application / soap + xml;charset = utf-8 ';
function THTTPReqResp.GetContentType: string;
begin
Result := '';
if not (wnoSOAP12 in GetWebNodeOptions) then
begin
if UseUTF8InHeader then
Result := ContentTypeUTF8
else
Result := ContentTypeNoUTF8;
end
else
begin
if UseUTF8InHeader then
Result := Format(ContentTypeWithActionNoLabelFmt, [ContentType12UTF8, GetSOAPAction])
else
Result := Format(ContentTypeWithActionNoLabelFmt, [ContentType12NoUTF8, GetSOAPAction]);
end;
end;
HTTPRIO1.HTTPWebNode.WebNodeOption установлен wnoSOAP12 также установлен UseUTF8InHeader: = True
Delphi XE7