Ошибка приложения Delphi/Android: «Неподдерживаемый тип носителя» ⇐ Android

[Anonymous]

Я создал мультиплатформенный апплет с помощью Delphi 11.3. Я использую компонент TNetHTTPClient для отправки текста в формате XML в REST API. Запуск в режиме Win32 работает нормально. Запуск в режиме Android вызывает ошибку:

Неподдерживаемый тип носителя

Здесь это код:

Код: Выделить всё

procedure TForm13.Button1Click(Sender: TObject);
var
HttpClient: TNetHTTPClient;
Response: IHTTPResponse;
URL,user,key,XML, AFM: string;
s, F : TstringStream;
FormData: TMultipartFormData;
XMLData: TBytesStream;
PostData: TBytes;
begin
HttpClient := TNetHTTPClient.Create(nil);
try
URL := 'https://www1.gsis.gr/wsaade/RgWsPublic2/RgWsPublic2?WSDL';
XML := ''
+'   '
+'      '
+'         '
+'            username'
+'            key'
+'         '
+'      '
+'   '
+'   '
+'      '
+'         '
+'            '
+'            '+AFM+''
+'            '+formatDateTime('yyyy-mm-dd',date)+''
+'         '
+'      '
+'   '
+'';
s := TstringStream.create(UTF8encode(XML));
Response := HttpClient.Post(URL, s, nil); // succeeds in win32, fails in Android
//  Response := HttpClient.Post(URL, s, nil, [TNetHeader.Create('Content-Type', 'text/xml')]); // fails in both platforms
if Response.StatusCode = 200 then
begin
Memo1.Lines.Text := Response.ContentAsString();
end
else
begin
ShowMessage('Error: ' + Response.StatusCode.ToString + ' - ' + Response.StatusText);
end;
finally
HttpClient.Free;
end;
end;

Я пытался опубликовать сообщение как TMultipartFormData или как XMLData:= TBytesStream.Create(TEncoding.UTF8.GetBytes(XML)) или как Response:= HttpClient .Post(URL, s, nil, [TNetHeader.Create('Content-Type', 'text or application/xml')]), но это всегда терпит неудачу.

Подробнее здесь: https://stackoverflow.com/questions/790 ... media-type