[XE7] Bugfix für TRESTResponseDataSetAdapter

[Sir Rufo]

Sodele ich habe mal dem TRESTResponseDataSetAdapter das Leaking (RSP-9623) ausgetrieben.

Wer also damit auf einer NON-ARC-Plattform sinnvoll arbeiten möchte, der kopiert sich die beiden Units und baut sich den BugFix ein:

Delphi-Quellcode:

unit REST.Client;

function TCustomRESTResponse.HasJSONResponse: Boolean;
{$IFDEF USE_BUGFIX}
var
  LJSONValue : TJSONValue;
begin
  if not Assigned( FJSONValue ) then
    begin
      LJSONValue := TJSONObject.ParseJSONValue(Content);
      try
        Result := Assigned( LJSONValue );
      finally
        LJSONValue.Free;
      end;
    end
  else
    Result := True;
end;
{$ELSE}
begin
  Result := (FJSONValue <> nil) or (TJSONObject.ParseJSONValue(Content) <> nil);
end;
{$ENDIF}

und zusätzlich noch

Delphi-Quellcode:

unit REST.Response.Adapter;

destructor TCustomRESTResponseDataSetAdapter.Destroy;
begin
  {$IFDEF USE_BUGFIX}
  FreeAndNil(FJSONValue);
  {$ENDIF}
  inherited;
  FAdapter.Free;
  if FResponse <> nil then
    if FResponse.NotifyList <> nil then
      FResponse.NotifyList.RemoveNotify(FNotify);
  FNotify.Free;
end;

[Sir Rufo]

Der Vorgang hat es tatsächlich gestern schon bis zum Internal Dev geschafft ... nun ja, einen Fix haben die ja auch schon an der Hand.

Ich bin jetzt mal gespannt ob das noch den Weg in ein XE7 Update findet oder erst in ein XE8 Upgrade.

[Daniel]

Wenn ich raten müsste, würde ich auf XE(7+1) tippen.