Delphi 12 ist offiziell da!!!

[MEissing]

Ein Quality Eintrag dazu?

[Bbommel]

Zitat von MEissing:

Ein Quality Eintrag dazu?

Gibt es seit Ende August im QC für die Beta. (Da wir ja vor ein paar Tagen festgestellt haben, dass das jetzt offenbar jeder lesen kann, ist der Link dahin hoffentlich okay, sonst lösche ich das natürlich). Im "normalen" QC kann man noch keine Einträge für D12 machen.

Das macht es alles noch etwas ärgerlicher.

[Uwe Raabe]

Das in dem Report angehängte Testprogramm zeigt den Fehler aber gar nicht im 12er Release.

Kannst du bitte einen entsprechenden Testcase hier einstellen mit dem wir das von dir beschriebene Problem reproduzieren können?

[Bbommel]

Muss ich kurz was basteln. Ich habe das gerade nur kurz in unserem Standardprogramm getestet, das kann ich natürlich nicht hier reinstellen.

[Bbommel]

Danke für die Anregung, das nochmal zu testen. Der Fehler ist jetzt etwas schwieriger nachzuvollziehen als wahrscheinlich im ursprünglichen Bug-Report vom August. Er tritt jetzt nur noch auf, wenn man den Parameter selbst in die URL mit reinschreibt und nicht mehr, wenn man ihn per "AddParameter" setzt. In D11.2 funktionierten allerdings beide Wege völlig fehlerlos und so sollte es auch weiterhin sein. Es gibt ja diverse Gründe, warum es mal vorkommen kann, dass man nicht AddParameter nutzt, sondern die URL selbst zusammensetzt - in REST-APIs könnte es auch eine durch einen Call vorgegebene URL sein, um weitere Ergebnisse abzurufen (macht die Graph API von Microsoft zum Beispiel). Wäre blöd, wenn Delphi da reingrätscht.

Aber klar, so fällt der Fehler weniger auf.

Beispielprogramm:

Delphi-Quellcode:

program restSpace;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, REST.Client;


var
  myRest: TRESTClient;
  myQuery: TRESTRequest;
  resultText: string;

begin
  myRest:=TRESTClient.Create('https://httpbin.org/');
  myQuery:=TRESTRequest.Create(nil);
  myQuery.Client:=myRest;
  try
    { TODO -oUser -cConsole Main : Code hier einfügen }
    myQuery.Resource:='get?param=hello world';
    myQuery.AddParameter('param_added','hello world');
    myQuery.Execute;

    if (myQuery.Response.StatusCode=200) and (myQuery.Response.JSONValue<>nil) then begin
      resultText:=myQuery.Response.JSONValue.GetValue<string>('args.param','!! Not found !!');
      Writeln(resultText);
      resultText:=myQuery.Response.JSONValue.GetValue<string>('args.param_added','!! Not found !!');
      Writeln(resultText);
      Readln;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  myQuery.Free;
  myRest.Free;
end.

Ausgabe mit D11.2:

Code:

hello world
hello world

Ausgabe mit D12:

Code:

hello%20world
hello world

Tja, wie vorgehen?

[Uwe Raabe]

Zitat von Bbommel:

und so sollte es auch weiterhin sein.

Da scheint es unterschiedliche Ansichten zu geben. Die Änderung fixt den QP-Eintrag RSP-38522 - TNetEncoding.Url.EncodeQuery and EncodeAuth producing wrong encoding.

[Bbommel]

Da kann es eigentlich keine zwei Ansichten geben. Das Ergebnis, das jetzt erzeugt wird, ist schlicht falsch.

Wenn du beispielsweise die erwähnte Microsoft Graph API benutzt, dann bekommst du ab einer bestimmten Zahl von Einträgen einen "nextLink", um weitere Einträge abzurufen. In diesem NextLink sind dann ggf. auch Mandantennamen oder andere IDs kodiert und Microsoft sagt in den Dokus explizit, man soll diese angegebene Adresse einfach nehmen und verwenden und sie nicht selber parsen.

Das ginge so aber nicht mehr, da man selbst die Parameter parsen müsste, um sie dann wieder neu hinzuzufügen, damit Delphi keinen Mist macht. Das ist nicht nur überflüssiger Blödsinn, sondern widerspricht auch der Doku. Solche Fälle gibt es öfter in APIs.

[Stevie]

myQuery.URLAlreadyEncoded := True;

[Bbommel]

Zitat von Stevie:

myQuery.URLAlreadyEncoded := True;

Wäre für obiges Beispiel ja falsch. Die URL ist ja in dem konkreten Fall noch nicht kodiert.

[himitsu]

noch niemandem aufgefallen?

https://www.delphipraxis.net/214035-...r-auswahl.html






Hab vor Wochen mal gehört, dass bereits an der 13 nächsten Version gearbeitet wurde/wird.