Eine Routine zur Abfrage von Album-Daten von der Spotify Web
API zeigt ein merkwürdiges Verhalten:
Delphi-Quellcode:
Function TSpManager.CCRequest(accesspoint:
string; offset: Integer = 0; Limit: Integer = 50):TJSONValue;
var
Client: TRestClient;
Request: TRESTRequest;
URL:
string;
begin
result:=
NIL;
If not CCAuthenticationValid
Then exit;
URL:= '
https://api.spotify.com' + accesspoint;
Client:= TRESTClient.Create(
URL);
Request:= TRESTRequest.Create(Client);
try
Client.contentType:= '
application/json';
Client.Accept:= '
application/json';
Request.AddParameter('
Authorization','
Bearer ' + stcf.AccessData.CCAccessToken , pkHTTPHEADER, [poDoNotEncode]);
Request.AddParameter('
offset',offset.ToString,pkGetOrPost, [poDoNotEncode]);
Request.AddParameter('
limit',limit.ToString,pkGetOrPost, [poDoNotEncode]);
Request.Execute;
If Request.Response.StatusCode = 200
Then
begin
result:= Request.response.JSONValue;
// im Debugger: TJSONObject(result) = (True, $3277D20) (korrekt)
end;
finally
FreeAndNIL(Client);
// im Debugger:TJSONObject(result) = (True, nil) (Fehler)
end;
end;
Die Abfrage ist OK und liefert das gewünschte Ergebnis. Aber auf geheimnisvolle Weise zerstört das 'FreeAndNIL' den Rückgabewert und erzeugt bei dessen weiterer Vearbeitung Accessviolations.
Mache ich irgendwas falsch oder ist das womöglich ein Bug? Vielleicht weiß hier jemand mehr.
Als Workaround erzeuge ich Request und Client im 'OnCreate' der TSpManager - Klasse und entsorge sie im OnDestroy; Das funktioniert einwandfrei.
Gruß LP