Danke für den Hinweis. Ich hab's sofort eingebaut und so sieht es natürlich deutlich besser aus:
Delphi-Quellcode:
Function TSpManager.GetRefreshToken(Quiet: Boolean):Boolean;
var s,Encoded:
string;
Client: TRestClient;
Request: TRESTRequest;
Response: TRestResponse;
MValue:TJSONValue;
encoder: TBase64Encoding;
begin
result:= false;
Client := TRestClient.Create('
https://accounts.spotify.com/api/token');
Response := TREStResponse.Create(
NIL);
Request := TRESTRequest.Create(
NIL);
encoder := TBase64Encoding.Create(0, '
');
try
s := stcf.AccessData.clientID + '
:' + stcf.AccessData.clientsecret;
Encoded:= encoder.encode(s);
[...]
finally
FreeAndNIL(Request);
FreeAndNIL(Response);
FreeAndNIL(Client);
FreeAndNIL(Encoder);
end;
end
Im 'Versuchs-Aufbau' war meine Lösung die erste, die mir einfiel und sich ohne lange Recherchen umsetzen ließ. Wieder mal ein deutliches Zeichen dafür, dass ich eigentlich nur einen geringen Teil des Sprachumfangs von Delphi kenne und auf vieles nur durch Zufall oder wie hier durch einen Hinweis stoße
Gruß LP