Delphi 11.3 schon da?

[Uwe Raabe]

Ist auch mittlerweile für mich schwierig das nachzuverfolgen, da ich alle 11.2 schon auf 11.3 upgedated habe. Lediglich theoretisch anhand der RTL-Sourcen kann ich das versuchen zu analysieren.

Das Problem war für mich ganz sicher in 11.2 schon vorhanden, aber der Report sagt ja lediglich, dass application/json nicht erkannt wird, worauf das JSONValue Property nicht gefüllt wurde. Bei dir ist das zwar auch so, aber mit 11.3 ist zusätzlich der Content leer.

Den 11.3 Code habe ich damit noch gar nicht probiert, aber da ich den Workaround noch eingebaut habe gehe ich davon aus, dass TMimeTypes.Default.GetTypeInfo immer noch den korrekten Mimetype liefert und die in 11.3 eingebaute Fallback-Lösung (vermutlich ein Fix für RSP-39994) nicht relevant ist.

Ich kenne jetzt nicht die Bandbreite der in deinem Fall ankommenden ContentType. Wenn das eine überschaubare Menge ist, könntest du die ja auch vorab registrieren. Bei mir habe ich das in einen class constructor für die API-Klasse gemacht:

Delphi-Quellcode:

class constructor TDevOpsApi.ClassCreate;
begin
  for var I := 2 to 4 do
    TMimeTypes.Default.AddType('json', Format('application/json; api-version=7.1-preview.%d', [I]), TMimeTypes.TKind.Text, True);
end;

Alternativ kannst du auch über RawBytes an die Daten kommen.