Indy HTTP DELETE request with a body

Below is a code shows how to send DELETE request with a body. So an input body stream could consists with the JSON\XML or whatever you want.

type
  TIdHTTPAccess = class(TIdHTTP)
  end;

...
var
  IdHTTP: TIdHTTP;
...

function DELETE_HTTP(AURL, ABody: String): String;
var
  bodyStream: TStringStream;
  responseStream: TStringStream;
begin
  Result := '';
  IdHTTP.Request.ContentType := 'application/xml';
  IdHTTP.Request.AcceptCharSet := 'utf-8';
  responseStream := TStringStream.Create('', TEncoding.UTF8);
  try
    bodyStream := TStringStream.Create(ABody, TEncoding.UTF8);
    try
      TIdHTTPAccess(IdHTTP).DoRequest('DELETE', AURL, bodyStream, responseStream, []);
      if
        Assigned(responseStream)
        and(responseStream.DataString.Length > 0)
      then
      begin
        Result := responseStream.DataString;
      end;
    finally
      FreeAndNil(bodyStream);
    end;
  finally
    FreeAndNil(responseStream);
  end;
end;

Delphi right-to-left (RTL) languages (Arabic, Hebrew, Persian) don't appear as they should in Android (Firemonkey)

A text from a RTL language like Arabic, Persian or Hebrew doesnt show well in Android (Firemonkey application) for example the word "سلام" shows as "م ا ل س".

Even it shows correctly in WinXX application.

The best solution as for me is FMXRTL.

Just download required setup based on your Delphi version, put non-visual control RTLFixer on your form, setup settings for a digits and that's it.

Sure, the best solution shall be developing by Embarcadero, but probably we have to wait for a while.

QRCode supported Arabic text:

DelphiZXingQRCodeEx/DelphiZXingQRCodeTestAppMainForm.pas at master · MichaelDemidov/DelphiZXingQRCodeEx · GitHub